diff options
| author | Lars Ingebrigtsen | 2020-10-27 19:28:57 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-10-27 19:29:02 +0100 |
| commit | f1bf89e3837199fd9ac37faf52a166b2af9ead0f (patch) | |
| tree | 7b63b51e61dff48404f29631316d4df24113990c | |
| parent | 15a67102dd9581b6c53eb2e168c1387e9b2ba796 (diff) | |
| download | emacs-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.el | 6 |
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 |