Mercurial > emacs
changeset 4340:505fb5222dea
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Jul 1993 05:37:32 +0000 |
| parents | 2b1aa3183d79 |
| children | d07ef5ea3b58 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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")