diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-02-23 07:09:01 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-02-23 07:09:01 +0000 |
| commit | 274c835c35de89cfccef7bcde163a4eb8126e1c7 (patch) | |
| tree | b3759d8b61f7d5af5a0ddb00a470cbffb3fa07f9 | |
| parent | 5a065ca1c104e3a7129d18d0ac8bb6255a207382 (diff) | |
| download | emacs-274c835c35de89cfccef7bcde163a4eb8126e1c7.tar.gz | |
(rmail-next-same-subject, rmail-reply): Ignore case, to
match "RE:" as well as "Re:".
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c4565650fe2..3e2d5eae86b 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -158,7 +158,7 @@ before obeying `rmail-ignored-headers'.") (defvar rmail-reply-prefix "Re: " "String to prepend to Subject line when replying to a message.") -;; Some mailers use "Re(2):" or "Re^2:" or "Re: Re:" or "Re[2]". +;; Some mailers use "Re(2):" or "Re^2:" or "Re: Re:" or "Re[2]:". ;; This pattern should catch all the common variants. (defvar rmail-reply-regexp "\\`\\(Re\\(([0-9]+)\\|\\[[0-9]+\\]\\|\\^[0-9]+\\)?: *\\)*" "Regexp to delete from Subject line before inserting `rmail-reply-prefix'.") @@ -2006,6 +2006,7 @@ If N is negative, go backwards instead." (let ((subject (mail-fetch-field "Subject")) (forward (> n 0)) (i rmail-current-message) + (case-fold-search t) search-regexp found) (if (string-match "Re:[ \t]*" subject) (setq subject (substring subject (match-end 0)))) @@ -2308,7 +2309,8 @@ use \\[mail-yank-original] to yank the original message into it." (and (stringp subject) (setq subject (concat rmail-reply-prefix - (if (string-match rmail-reply-regexp subject) + (if (let ((case-fold-search t)) + (string-match rmail-reply-regexp subject)) (substring subject (match-end 0)) subject)))) (rmail-start-mail nil |