rmailout fix for bug#9978.

* lisp/mail/rmailout.el (rmail-output-to-rmail-buffer):
Handle empty buffers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 091117ef53d762c2eb1999414a975be28e5ebd61..a6d49015422261880d680c67540ed2cd0694bc9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-15  Glenn Morris  <rgm@gnu.org>
+
+       * mail/rmailout.el (rmail-output-to-rmail-buffer):
+       Handle empty buffers.  (Bug#9978)
+
 2011-11-14  Juanma Barranquero  <lekktu@gmail.com>
 
        * international/mule.el (define-charset):

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 3926b426a67a5ec811abf4b8e6955fa7218d53ed..c168ca9d8f51c2c3c3a6247a9994e7f4df419031 100644 (file)
--- 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.