[Emacs-diffs] emacs/lisp/mail rmailsum.el

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    09/08/01 08:20:17

Modified files:
        lisp/mail      : rmailsum.el 

Log message:
        (rmail-header-summary): Ignore letter-case of month names.  (Bug#3987)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.179&r2=1.180

Patches:
Index: rmailsum.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.179
retrieving revision 1.180
diff -u -b -r1.179 -r1.180
--- rmailsum.el 4 Apr 2009 14:21:49 -0000       1.179
+++ rmailsum.el 1 Aug 2009 08:20:17 -0000       1.180
@@ -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)