procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Fixes: debbugs:7743
This commit is contained in:
Mark Lillibridge 2011-11-22 23:49:53 -08:00 • committed by Glenn Morris
parent 8038d2d290
commit d2992a38a4
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2011-11-23 Mark Lillibridge <mark.lillibridge@hp.com> (tiny change)
* mail/unrmail.el (unrmail): Always add blank line. (Bug#7743)
2011-11-23 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-forward):

5
lisp/mail/unrmail.el
View file

@ -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