Commit d2992a38 authored by Mark Lillibridge's avatar Mark Lillibridge Committed by Glenn Morris
Browse files

* lisp/mail/unrmail.el (unrmail): Always add blank line. (tiny change)

Fixes: debbugs:7743
parent 8038d2d2
2011-11-23 Mark Lillibridge <> (tiny change)
* mail/unrmail.el (unrmail): Always add blank line. (Bug#7743)
2011-11-23 Glenn Morris <>
* mail/rmail.el (rmail-forward):
......@@ -231,10 +231,9 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
(while (search-forward "\nFrom " nil t)
(forward-char -5)
(insert ?>)))
;; Make sure the message ends with two newlines
(goto-char (point-max))
(unless (looking-back "\n\n")
(insert "\n"))
;; Add terminator blank line to message.
(insert "\n")
;; Write it to the output file, suitably encoded.
(let ((coding-system-for-write coding))
(write-region (point-min) (point-max) to-file t
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