diff options
| author | Mark Lillibridge <[email protected]> | 2011-11-22 23:49:53 -0800 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2011-11-22 23:49:53 -0800 |
| commit | d2992a38a4186067221287314d8dd6b2d4f31d7e (patch) | |
| tree | 45c5b2d8b8dc0116502244a00143122c6cc88db0 /lisp/mail/unrmail.el | |
| parent | 8038d2d2900195ee31941abe6d3b5df2ed7f75d9 (diff) | |
* lisp/mail/unrmail.el (unrmail): Always add blank line. (tiny change)
Fixes: debbugs:7743
Diffstat (limited to 'lisp/mail/unrmail.el')
| -rw-r--r-- | lisp/mail/unrmail.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 9ed2e90b45..652693209e 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el @@ -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 |