From 15a36ac5acf7800ea3e65ccaf2e2decae999b3d1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Jul 1993 05:37:32 +0000 Subject: [PATCH] (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. --- lisp/mail/rmail.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index e0d07beb917..f600251de83 100644 --- 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))))))) ;;;; *** 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") -- 2.39.5