Mercurial > emacs

comparison lisp/mail/rmail.el @ 4340:505fb5222dea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 9715c82333ab
children acb5dda629d7
comparison
equal deleted inserted replaced
4339:2b1aa3183d79 4340:505fb5222dea
963 "\n")) 963 "\n"))
964 ;; Keep and reformat the sender if we don't 964 ;; Keep and reformat the sender if we don't
965 ;; have a From: field. 965 ;; have a From: field.
966 (if has-from 966 (if has-from
967 "" 967 ""
968 "From: \\1\n"))))))))) 968 "From: \\1\n"))
969 t)))))))
969 970
970 ;;;; *** Rmail Message Formatting and Header Manipulation *** 971 ;;;; *** Rmail Message Formatting and Header Manipulation ***
971 972
972 (defun rmail-reformat-message (beg end) 973 (defun rmail-reformat-message (beg end)
973 (goto-char beg) 974 (goto-char beg)
977 (let ((buffer-read-only nil) 978 (let ((buffer-read-only nil)
978 (delta (- (buffer-size) end))) 979 (delta (- (buffer-size) end)))
979 (delete-char 1) 980 (delete-char 1)
980 (insert ?1) 981 (insert ?1)
981 (forward-line 1) 982 (forward-line 1)
982 (if (looking-at "Summary-line: ") 983 (let ((case-fold-search t))
983 (forward-line 1)) 984 (if (looking-at "Summary-line: ")
985 (forward-line 1)))
984 (if (looking-at "\\*\\*\\* EOOH \\*\\*\\*\n") 986 (if (looking-at "\\*\\*\\* EOOH \\*\\*\\*\n")
985 (delete-region (point) 987 (delete-region (point)
986 (progn (forward-line 1) (point)))) 988 (progn (forward-line 1) (point))))
987 (let ((str (buffer-substring (point) 989 (let ((str (buffer-substring (point)
988 (save-excursion (search-forward "\n\n" end 'move) 990 (save-excursion (search-forward "\n\n" end 'move)
1017 (forward-line 1) 1019 (forward-line 1)
1018 (if (= (following-char) ?1) 1020 (if (= (following-char) ?1)
1019 (progn (delete-char 1) 1021 (progn (delete-char 1)
1020 (insert ?0) 1022 (insert ?0)
1021 (forward-line 1) 1023 (forward-line 1)
1022 (if (looking-at "Summary-Line:") 1024 (let ((case-fold-search t))
1023 (forward-line 1)) 1025 (if (looking-at "Summary-Line:")
1026 (forward-line 1)))
1024 (insert "*** EOOH ***\n") 1027 (insert "*** EOOH ***\n")
1025 (forward-char -1) 1028 (forward-char -1)
1026 (search-forward "\n*** EOOH ***\n") 1029 (search-forward "\n*** EOOH ***\n")
1027 (forward-line -1) 1030 (forward-line -1)
1028 (let ((temp (point))) 1031 (let ((temp (point)))