Mercurial > emacs
changeset 102478:f4571df6b6cc
(rmail-edit-mode): Set write-region-annotate-functions. (Bug#2625)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 11 Mar 2009 03:22:37 +0000 |
| parents | b340d0515fb5 |
| children | 53f69b319f5d |
| files | lisp/ChangeLog lisp/mail/rmailedit.el |
| diffstat | 2 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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.