aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2020-10-27 19:28:57 +0100
committerLars Ingebrigtsen2020-10-27 19:29:02 +0100
commitf1bf89e3837199fd9ac37faf52a166b2af9ead0f (patch)
tree7b63b51e61dff48404f29631316d4df24113990c
parent15a67102dd9581b6c53eb2e168c1387e9b2ba796 (diff)
downloademacs-f1bf89e3837199fd9ac37faf52a166b2af9ead0f.tar.gz
emacs-f1bf89e3837199fd9ac37faf52a166b2af9ead0f.zip
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).
-rw-r--r--lisp/gnus/gnus-util.el6
1 files changed, 6 insertions, 0 deletions
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."
1013 (rmail-swap-buffers-maybe) 1013 (rmail-swap-buffers-maybe)
1014 (rmail-maybe-set-message-counters)) 1014 (rmail-maybe-set-message-counters))
1015 (widen) 1015 (widen)
1016 (unless babyl
1017 (goto-char (point-max))
1018 ;; Ensure we have a blank line before the next message.
1019 (unless (bolp)
1020 (insert "\n"))
1021 (insert "\n"))
1016 (narrow-to-region (point-max) (point-max))) 1022 (narrow-to-region (point-max) (point-max)))
1017 (insert-buffer-substring tmpbuf) 1023 (insert-buffer-substring tmpbuf)
1018 (when msg 1024 (when msg