Commit 2b3a206d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

mail-yank-ignored-headers is nil.
parent 6c714afe
......@@ -893,6 +893,7 @@ and don't delete any header fields."
(if (not (eolp)) (insert ?\n)))))
(defun mail-yank-clear-headers (start end)
(if mail-yank-ignored-headers
(save-excursion
(goto-char start)
(if (search-forward "\n\n" end t)
......@@ -905,7 +906,7 @@ and don't delete any header fields."
(delete-region (point)
(progn (re-search-forward "\n[^ \t]")
(forward-char -1)
(point))))))))
(point)))))))))
;; Put these last, to reduce chance of lossage from quitting in middle of loading the file.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment