From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 27 Oct 2020 18:28:57 +0000 (+0100)
Subject: Make gnus-output-to-rmail appending work better
X-Git-Tag: emacs-28.0.90~5378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1bf89e3837199fd9ac37faf52a166b2af9ead0f;p=emacs.git

Make gnus-output-to-rmail appending work better

* lisp/gnus/gnus-util.el (gnus-output-to-rmail): Ensure we have a
blank line before the next line when using mbox format (bug#39580).
---

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 807bd6a14af..ef811c65b86 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1013,6 +1013,12 @@ FILENAME exists and is Babyl format."
                 (rmail-swap-buffers-maybe)
                 (rmail-maybe-set-message-counters))
               (widen)
+              (unless babyl
+		(goto-char (point-max))
+		;; Ensure we have a blank line before the next message.
+		(unless (bolp)
+		  (insert "\n"))
+		(insert "\n"))
               (narrow-to-region (point-max) (point-max)))
 	    (insert-buffer-substring tmpbuf)
 	    (when msg