# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743924252 0
# Node ID 505fb5222dea2a25ab1bca092835ed719c469eaf
# Parent  2b1aa3183d7987856dc6c44e2ffb0583a8976a5c
(rmail-nuke-pinhead-header): Tell replace-match not to alter the case.
(rmail-toggle-header, rmail-reformat-message): Ignore case
when checking for Summary-line.

diff -r 2b1aa3183d79 -r 505fb5222dea lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Jul 29 05:13:26 1993 +0000
+++ b/lisp/mail/rmail.el	Thu Jul 29 05:37:32 1993 +0000
@@ -965,7 +965,8 @@
 		  ;; have a From: field.
 		  (if has-from
 		      ""
-		    "From: \\1\n")))))))))
+		    "From: \\1\n"))
+		t)))))))
 
 ;;;; *** Rmail Message Formatting and Header Manipulation ***
 
@@ -979,8 +980,9 @@
     (delete-char 1)
     (insert ?1)
     (forward-line 1)
-    (if (looking-at "Summary-line: ")
-	(forward-line 1))
+    (let ((case-fold-search t))
+      (if (looking-at "Summary-line: ")
+	  (forward-line 1)))
     (if (looking-at "\\*\\*\\* EOOH \\*\\*\\*\n")
 	(delete-region (point)
 		       (progn (forward-line 1) (point))))
@@ -1019,8 +1021,9 @@
 	(progn (delete-char 1)
 	       (insert ?0)
 	       (forward-line 1)
-	       (if (looking-at "Summary-Line:")
-		   (forward-line 1))
+	       (let ((case-fold-search t))
+		 (if (looking-at "Summary-Line:")
+		     (forward-line 1)))
 	       (insert "*** EOOH ***\n")
 	       (forward-char -1)
 	       (search-forward "\n*** EOOH ***\n")