diff options
Diffstat (limited to 'lisp/mail/rmailout.el')
| -rw-r--r-- | lisp/mail/rmailout.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 3926b426a67..c168ca9d8f5 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -377,11 +377,12 @@ display message number MSG." (rmail-maybe-set-message-counters) ;; Insert the new message after the last old message. (widen) - ;; Make sure the last old message ends with a blank line. - (goto-char (point-max)) - (rmail-ensure-blank-line) - ;; Insert the new message at the end. - (narrow-to-region (point-max) (point-max)) + (unless (zerop (buffer-size)) + ;; Make sure the last old message ends with a blank line. + (goto-char (point-max)) + (rmail-ensure-blank-line) + ;; Insert the new message at the end. + (narrow-to-region (point-max) (point-max))) (insert-buffer-substring tembuf) (rmail-count-new-messages t) ;; FIXME should re-use existing windows. |