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

Must fontify only if we're actually showing a message.

Browse Source
This commit is contained in:
Simon Marshall 1996-03-07 10:38:29 +00:00
parent 94de9afef1
commit 35aba73916
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/rmail.el
View File

@ -2524,8 +2524,7 @@ This has an effect only if a summary buffer exists.")
(unwind-protect
(progn
(select-window window)
(enlarge-window (- rmail-summary-window-size
(window-height))))
(enlarge-window (- rmail-summary-window-size (window-height))))
(select-window selected)))))
;;;; *** Rmail Local Fontification ***
@ -2534,7 +2533,9 @@ This has an effect only if a summary buffer exists.")
;; This function's symbol is bound to font-lock-fontify-buffer-function.
(make-local-hook 'rmail-show-message-hook)
(add-hook 'rmail-show-message-hook 'rmail-fontify-message nil t)
(rmail-fontify-message)
;; If we're already showing a message, fontify it now.
(if rmail-current-message (rmail-fontify-message))
;; Prevent Font Lock mode from kicking in.
(setq font-lock-fontified t))
(defun rmail-unfontify-buffer-function ()