diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-03-11 03:22:37 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-03-11 03:22:37 +0000 |
| commit | 2f72dea5c4ebd4680075ac455f805fd3838e9306 (patch) | |
| tree | 421f544ddc091bb661efda1adcc2bf4e262f4240 /lisp/mail/rmailedit.el | |
| parent | aad2cee5c732f0a37dea35901c7988a8d60be045 (diff) | |
| download | emacs-2f72dea5c4ebd4680075ac455f805fd3838e9306.tar.gz | |
(rmail-edit-mode): Set write-region-annotate-functions. (Bug#2625)
Diffstat (limited to 'lisp/mail/rmailedit.el')
| -rw-r--r-- | lisp/mail/rmailedit.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 5b01e943541..80cc7c4578b 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -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. |