diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-27 23:32:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-27 23:32:46 +0000 |
| commit | 1afb7be2926786b437e11d45c0301f909ba07f37 (patch) | |
| tree | bda4084c0fbf0a960c4f94d595e35de6ad332ea0 | |
| parent | 5babefcfaf560dbd8fbdd1fbeaba0087a8793437 (diff) | |
| download | emacs-1afb7be2926786b437e11d45c0301f909ba07f37.tar.gz | |
(rmail-fontify-message, rmail-unfontify-buffer-function):
Reset the buffer modified state if necessary.
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4f7aa070836..099a809bbb7 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2548,7 +2548,8 @@ This has an effect only if a summary buffer exists.") (widen) (remove-hook 'rmail-show-message-hook 'rmail-fontify-message t) (remove-text-properties (point-min) (point-max) '(rmail-fontified nil)) - (font-lock-default-unfontify-buffer)))) + (font-lock-default-unfontify-buffer) + (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil))))) (defun rmail-fontify-message () ;; Fontify the current message if it is not already fontified. @@ -2560,7 +2561,8 @@ This has an effect only if a summary buffer exists.") (save-excursion (save-match-data (add-text-properties (point-min) (point-max) '(rmail-fontified t)) - (font-lock-fontify-region (point-min) (point-max))))))) + (font-lock-fontify-region (point-min) (point-max)) + (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil))))))) ;;;; *** Rmail Specify Inbox Files *** |