(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 --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e0d07beb917224c57b714fc37fc51bec0cc473e3..f600251de83771d592d5cec6da754c097e14e936 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -965,7 +965,8 @@ argument causes us to read a file name and use that file as the inbox."
                  ;; have a From: field.
                  (if has-from
                      ""
-                   "From: \\1\n")))))))))
+                   "From: \\1\n"))
+               t)))))))
 \f
 ;;;; *** Rmail Message Formatting and Header Manipulation ***
 
@@ -979,8 +980,9 @@ argument causes us to read a file name and use that file as the inbox."
     (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 @@ argument causes us to read a file name and use that file as the inbox."
        (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")