mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source 
Reset the buffer modified state if necessary.
This commit is contained in:
Richard M. Stallman 1996-03-27 23:32:46 +00:00
parent 5babefcfaf
commit 1afb7be292
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/rmail.el
View File

@ -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 ***