diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2009-08-01 08:20:17 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2009-08-01 08:20:17 +0000 |
| commit | 8f94cbed0924f46ae017a41c6e3fa6ec0c411306 (patch) | |
| tree | 7b19818a9a6ff84ba2d8d1739484feb67dbaa9fc /lisp/mail | |
| parent | 59d616309d79f0a05956ab799704fce8d826d582 (diff) | |
| download | emacs-8f94cbed0924f46ae017a41c6e3fa6ec0c411306.tar.gz emacs-8f94cbed0924f46ae017a41c6e3fa6ec0c411306.tar.bz2 emacs-8f94cbed0924f46ae017a41c6e3fa6ec0c411306.zip | |
(rmail-header-summary): Ignore letter-case of month names. (Bug#3987)
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index c35e4856f9c..b8175c36f23 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -518,16 +518,19 @@ the message being processed." (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) |