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

(rmail-clear-headers): Make sure an empty line

still separates the headers from the body.
parent 1fa01bcd
......@@ -1657,7 +1657,8 @@ delete all header fields whose names match that regexp.
Otherwise, if `rmail-displayed-headers' is non-nil,
delete all header fields *except* those whose names match that regexp.
Otherwise, delete all header fields whose names match `rmail-ignored-headers'."
(if (search-forward "\n\n" nil t)
(when (search-forward "\n\n" nil t)
(forward-char -1)
(let ((case-fold-search t)
(buffer-read-only nil))
(if (and rmail-displayed-headers (null ignored-headers))
......
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