(rmail-output): Insert newline only if necessary.

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 7ced999..a029f5e 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -295,7 +295,7 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
          (erase-buffer)
          (insert-buffer-substring rmailbuf)
          (rmail-delete-unwanted-fields t)
-         (insert "\n")
+         (or (bolp) (insert "\n"))
          (goto-char (point-min))
          (if mail-from
              (insert mail-from "\n")