From 35aba73916dfc9a41e1fe8710efa0aca25da166d Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Thu, 7 Mar 1996 10:38:29 +0000 Subject: [PATCH] Must fontify only if we're actually showing a message. --- lisp/mail/rmail.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index ad3e4779908..4f7aa070836 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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 () -- 2.39.2