# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908993297 0
# Node ID 3bb7a66a51a878e2e098bc55dd28a25235c2aa24
# Parent  06e8c3b9deec1ab2a96bfd33be19577c9653a97c
(rmail-output): Insert newline only if necessary.

diff -r 06e8c3b9deec -r 3bb7a66a51a8 lisp/mail/rmailout.el
--- a/lisp/mail/rmailout.el	Wed Oct 21 11:50:56 1998 +0000
+++ b/lisp/mail/rmailout.el	Wed Oct 21 18:08:17 1998 +0000
@@ -295,7 +295,7 @@
 	  (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")