[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog mail/rmailedit.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog mail/rmailedit.el |
Date: |
Wed, 11 Mar 2009 03:22:43 +0000 |
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.