changeset 23528:3bb7a66a51a8

(rmail-output): Insert newline only if necessary.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Oct 1998 18:08:17 +0000
parents 06e8c3b9deec
children ccedc9675dab
files lisp/mail/rmailout.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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")