mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(rmail-nuke-pinhead-header): Tell replace-match not to alter the case.

Browse Source 
(rmail-toggle-header, rmail-reformat-message): Ignore case
when checking for Summary-line.
This commit is contained in:
Richard M. Stallman 1993-07-29 05:37:32 +00:00
parent 5e2a0ae4fb
commit 15a36ac5ac
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/mail/rmail.el
View File

@ -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")