diff options
author | Simon Marshall <simon@gnu.org> | 1996-03-07 10:38:29 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1996-03-07 10:38:29 +0000 |
commit | 65de8bbd7ce34b174f05b1cddad5281742b9acf6 (patch) | |
tree | 8983e558b7e56184072df8f22c8dac24d1d65af7 /lisp/mail | |
parent | 2752153c46314f64d000200971cb63a099abab18 (diff) | |
download | emacs-65de8bbd7ce34b174f05b1cddad5281742b9acf6.tar.gz |
Must fontify only if we're actually showing a message.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files 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 () |