(rmail-write-region-annotate): Only switch buffer if

start is nil, as was done in tar-mode.el.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 677ee82d6cb15b1c50f01af3b862c0258a61bee2..e2945021a93200bee57f7f66511dc49a5289ccf7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mail/rmail.el (rmail-write-region-annotate): Only switch buffer if
+       start is nil, as was done in tar-mode.el.
+
 2009-01-23  Glenn Morris  <rgm@gnu.org>
 
        * mail/sendmail.el (mail-bury): Revert previous change now pmail is no

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 562910ea4967929c795ed0c2d84d5439a0b6b507..d935f8f0043edc61ff7a2d14e19279012e9f0d03 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3878,7 +3878,7 @@ encoded string (and the same mask) will decode the string."
 
 ;; Used in `write-region-annotate-functions' to write rmail files.
 (defun rmail-write-region-annotate (start end)
-  (when (rmail-buffers-swapped-p)
+  (when (and (null start) (rmail-buffers-swapped-p))
     (set-buffer rmail-view-buffer)
     (widen)
     nil))