# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 836324631 0
# Node ID 2066a7282df94297689d3ce1b7ea9e5621ab2f1f
# Parent  4d843931581c3c9d1ae2a4a47c5572d3e50e7e6e
(rmail-make-basic-summary-line): Accept ISO 8601 dates as well.

diff -r 4d843931581c -r 2066a7282df9 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Tue Jul 02 16:23:34 1996 +0000
+++ b/lisp/mail/rmailsum.el	Tue Jul 02 16:23:51 1996 +0000
@@ -334,6 +334,15 @@
 					     (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