Mercurial > emacs

changeset 14898:467e9d219590

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-fontify-message, rmail-unfontify-buffer-function): Reset the buffer modified state if necessary.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Mar 1996 23:32:46 +0000
parents 9cce31ba2d61
children 4b7b8a937a5d
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Wed Mar 27 22:38:19 1996 +0000
+++ b/lisp/mail/rmail.el	Wed Mar 27 23:32:46 1996 +0000
@@ -2548,7 +2548,8 @@
       (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 @@
 	(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 ***