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 | 52b9c46105b8da58165c77542252e05900cb74e1 (patch) | |
| tree | d22c9ecef82fbe31a81e892b0742959791951a41 /lisp/mail/rmailedit.el | |
| parent | e6a498d964e3ccd48110952926e5c1ffdfe53de2 (diff) | |
| download | emacs-52b9c46105b8da58165c77542252e05900cb74e1.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. |