From: Miles Bader <miles@gnu.org>
Date: Tue, 2 Jul 1996 16:23:51 +0000 (+0000)
Subject: (rmail-make-basic-summary-line): Accept ISO 8601 dates as well.
X-Git-Tag: emacs-19.34~280
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15065a0f177f46d13607e73815113be571818623;p=emacs.git

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

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