# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 856681741 0
# Node ID 01cba1834368e14cbd05e36f52cbdaf9803b1504
# Parent  0f4ca446767c267577f4fecaf146a70364ae56c8
(rmail-next-same-subject, rmail-reply): Ignore case, to
match "RE:" as well as "Re:".

diff -r 0f4ca446767c -r 01cba1834368 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Feb 23 03:38:49 1997 +0000
+++ b/lisp/mail/rmail.el	Sun Feb 23 07:09:01 1997 +0000
@@ -158,7 +158,7 @@
 (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 @@
   (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 @@
     (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