mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 05:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(mail-yank-clear-headers): Do nothing if

Browse source 
mail-yank-ignored-headers is nil.
This commit is contained in:
Richard M. Stallman 1995-11-10 17:23:49 +00:00
parent 6c714afe4f
commit 2b3a206d69
1 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/mail/sendmail.el
View file

@ -893,19 +893,20 @@ and don't delete any header fields."
(if (not (eolp)) (insert ?\n)))))
(defun mail-yank-clear-headers (start end)
(save-excursion
(goto-char start)
(if (search-forward "\n\n" end t)
(save-restriction
(narrow-to-region start (point))
(goto-char start)
(while (let ((case-fold-search t))
(re-search-forward mail-yank-ignored-headers nil t))
(beginning-of-line)
(delete-region (point)
(progn (re-search-forward "\n[^ \t]")
(forward-char -1)
(point))))))))
(if mail-yank-ignored-headers
(save-excursion
(goto-char start)
(if (search-forward "\n\n" end t)
(save-restriction
(narrow-to-region start (point))
(goto-char start)
(while (let ((case-fold-search t))
(re-search-forward mail-yank-ignored-headers nil t))
(beginning-of-line)
(delete-region (point)
(progn (re-search-forward "\n[^ \t]")
(forward-char -1)
(point)))))))))
;; Put these last, to reduce chance of lossage from quitting in middle of loading the file.