(rmail-fontify-message, rmail-unfontify-buffer-function):

Reset the buffer modified state if necessary.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4f7aa070836f1450bc5f63eda5780e904759513f..099a809bbb7eb676b398565b3fd2c7aec23ba407 100644 (file)
--- 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)))))))
 \f
 ;;;; *** Rmail Specify Inbox Files ***