(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 1d7fa47577966ce01525ce787b414042209ee99e..f2134f99934eb8225d56d41e213fa9ea4123363e 100644 (file)
--- 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