# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1249114817 0
# Node ID 276df8a4316bab44befa2ddaea48b44fbaa393c4
# Parent  be3e01fa532ea269eac8cd0e08c4b2071ea6b593
(rmail-header-summary): Ignore letter-case of month names.  (Bug#3987)

diff -r be3e01fa532e -r 276df8a4316b lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Sat Aug 01 02:11:36 2009 +0000
+++ b/lisp/mail/rmailsum.el	Sat Aug 01 08:20:17 2009 +0000
@@ -518,16 +518,19 @@
    (concat (save-excursion
 	     (if (not (re-search-forward "^Date:" nil t))
 		 "      "
-	       (cond ((re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)"
-		       (line-end-position) t)
+	       ;; Match month names case-insensitively
+	       (cond ((let ((case-fold-search t))
+			(re-search-forward "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- \t_]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)"
+					   (line-end-position) t))
 		      (format "%2d-%3s"
 			      (string-to-number (buffer-substring
 						 (match-beginning 2)
 						 (match-end 2)))
 			      (buffer-substring
 			       (match-beginning 4) (match-end 4))))
-		     ((re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)"
-		       (line-end-position) t)
+		     ((let ((case-fold-search t))
+			(re-search-forward "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z \t_]*\\)\\([0-9][0-9]?\\)"
+					   (line-end-position) t))
 		      (format "%2d-%3s"
 			      (string-to-number (buffer-substring
 						 (match-beginning 4)