[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/01/23 08:00:28

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-write-region-annotate): Only switch buffer if
        start is nil, as was done in tar-mode.el.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15155&r2=1.15156
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.461&r2=1.462

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15155
retrieving revision 1.15156
diff -u -b -r1.15155 -r1.15156
--- ChangeLog   23 Jan 2009 05:07:37 -0000      1.15155
+++ ChangeLog   23 Jan 2009 08:00:23 -0000      1.15156
@@ -1,3 +1,8 @@
+2009-01-23  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mail/sendmail.el (mail-bury): Revert previous change now pmail is no

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.461
retrieving revision 1.462
diff -u -b -r1.461 -r1.462
--- mail/rmail.el       23 Jan 2009 03:55:10 -0000      1.461
+++ mail/rmail.el       23 Jan 2009 08:00:27 -0000      1.462
@@ -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))