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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/03/11 03:22:42

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

Log message:
        (rmail-edit-mode): Set write-region-annotate-functions.  (Bug#2625)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15449&r2=1.15450
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailedit.el?cvsroot=emacs&r1=1.55&r2=1.56

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15449
retrieving revision 1.15450
diff -u -b -r1.15449 -r1.15450
--- ChangeLog   10 Mar 2009 23:48:31 -0000      1.15449
+++ ChangeLog   11 Mar 2009 03:22:37 -0000      1.15450
@@ -1,3 +1,8 @@
+2009-03-11  Glenn Morris  <address@hidden>
+
+       * mail/rmailedit.el (rmail-edit-mode):
+       Set write-region-annotate-functions.  (Bug#2625)
+
 2009-03-10  Juanma Barranquero  <address@hidden>
 
        * w32-vars.el (w32-list-proportional-fonts): Fix typos in last change.

Index: mail/rmailedit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailedit.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- mail/rmailedit.el   5 Mar 2009 03:45:54 -0000       1.55
+++ mail/rmailedit.el   11 Mar 2009 03:22:42 -0000      1.56
@@ -64,6 +64,9 @@
     (if (boundp 'mode-line-modified)
        (setq mode-line-modified (default-value 'mode-line-modified))
       (setq mode-line-format (default-value 'mode-line-format)))
+    ;; If someone uses C-x C-s, don't clobber the rmail file (bug#2625).
+    (add-hook 'write-region-annotate-functions
+             'rmail-write-region-annotate nil t)
     (run-mode-hooks 'rmail-edit-mode-hook)))
 
 ;; Rmail Edit mode is suitable only for specially formatted data.