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

This commit is contained in:
Glenn Morris 2009-03-11 03:22:37 +00:00
parent e6a498d964
commit 52b9c46105
2 changed files with 8 additions and 0 deletions

View file

@ -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.

View file

@ -64,6 +64,9 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'.
(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.