# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1236741757 0
# Node ID f4571df6b6cc2c0117bf07e42cd4d428022b76b9
# Parent  b340d0515fb5313d5f12c9ca7b53cf13d8dc6633
(rmail-edit-mode): Set write-region-annotate-functions.  (Bug#2625)

diff -r b340d0515fb5 -r f4571df6b6cc lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Mar 11 03:20:35 2009 +0000
+++ b/lisp/ChangeLog	Wed Mar 11 03:22:37 2009 +0000
@@ -1,3 +1,8 @@
+2009-03-11  Glenn Morris  <rgm@gnu.org>
+
+	* mail/rmailedit.el (rmail-edit-mode):
+	Set write-region-annotate-functions.  (Bug#2625)
+
 2009-03-10  Juanma Barranquero  <lekktu@gmail.com>
 
 	* w32-vars.el (w32-list-proportional-fonts): Fix typos in last change.
diff -r b340d0515fb5 -r f4571df6b6cc lisp/mail/rmailedit.el
--- a/lisp/mail/rmailedit.el	Wed Mar 11 03:20:35 2009 +0000
+++ b/lisp/mail/rmailedit.el	Wed Mar 11 03:22:37 2009 +0000
@@ -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.