From d2992a38a4186067221287314d8dd6b2d4f31d7e Mon Sep 17 00:00:00 2001 From: Mark Lillibridge Date: Tue, 22 Nov 2011 23:49:53 -0800 Subject: [PATCH] * lisp/mail/unrmail.el (unrmail): Always add blank line. (tiny change) Fixes: debbugs:7743 --- lisp/ChangeLog | 4 ++++ lisp/mail/unrmail.el | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2a154b65890..bcb3dc56c80 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +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): diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 9ed2e90b456..652693209e8 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 -- 2.39.5