diff options
| author | Miles Bader <miles@gnu.org> | 1996-07-02 16:23:51 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 1996-07-02 16:23:51 +0000 |
| commit | 15065a0f177f46d13607e73815113be571818623 (patch) | |
| tree | 2968cd1dc254251ade3c04f1f1cce6a3d93b1591 /lisp/mail | |
| parent | 384bc96cb9da66a00087f815497d996ee92a4118 (diff) | |
| download | emacs-15065a0f177f46d13607e73815113be571818623.tar.gz | |
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 1d7fa475779..f2134f99934 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -334,6 +334,15 @@ nil for FUNCTION means all messages." (match-end 4))) (buffer-substring (match-beginning 2) (match-end 2)))) + ((re-search-forward "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)" + (save-excursion (end-of-line) (point)) t) + (format "%2s%2s%2s" + (buffer-substring + (match-beginning 2) (match-end 2)) + (buffer-substring + (match-beginning 3) (match-end 3)) + (buffer-substring + (match-beginning 4) (match-end 4)))) (t "??????")))) " " (save-excursion |