From 15065a0f177f46d13607e73815113be571818623 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 2 Jul 1996 16:23:51 +0000 Subject: [PATCH] (rmail-make-basic-summary-line): Accept ISO 8601 dates as well. --- lisp/mail/rmailsum.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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 -- 2.39.2