[Emacs-diffs] /srv/bzr/emacs/trunk r106487: * lisp/mail/unrmail.el (unrmail): Always add blank line. (tiny change)

[Glenn Morris]

------------------------------------------------------------
revno: 106487
fixes bug(s): http://debbugs.gnu.org/7743
author: Mark Lillibridge <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-11-22 23:49:53 -0800
message:
  * lisp/mail/unrmail.el (unrmail): Always add blank line.  (tiny change)
modified:
  lisp/ChangeLog
  lisp/mail/unrmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-23 07:41:17 +0000
+++ b/lisp/ChangeLog    2011-11-23 07:49:53 +0000
@@ -1,3 +1,7 @@
+2011-11-23  Mark Lillibridge  <address@hidden>  (tiny change)
+
+       * mail/unrmail.el (unrmail): Always add blank line.  (Bug#7743)
+
 2011-11-23  Glenn Morris  <address@hidden>
 
        * mail/rmail.el (rmail-forward):

=== modified file 'lisp/mail/unrmail.el'
--- a/lisp/mail/unrmail.el      2011-01-25 04:08:28 +0000
+++ b/lisp/mail/unrmail.el      2011-11-23 07:49:53 +0000
@@ -231,10 +231,9 @@
              (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