# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1232697623 0
# Node ID 6505850d379f501d5e66b5839ee23fac7e1ba430
# Parent  d2c49097995e516e1c2314bb360dfbad571664e6
(rmail-write-region-annotate): Only switch buffer if
start is nil, as was done in tar-mode.el.

diff -r d2c49097995e -r 6505850d379f lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jan 23 05:07:37 2009 +0000
+++ b/lisp/ChangeLog	Fri Jan 23 08:00:23 2009 +0000
@@ -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 -r d2c49097995e -r 6505850d379f lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jan 23 05:07:37 2009 +0000
+++ b/lisp/mail/rmail.el	Fri Jan 23 08:00:23 2009 +0000
@@ -3878,7 +3878,7 @@
 
 ;; 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))