# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 826195109 0
# Node ID afbd0214f6ec2d65c5b4fbe6593f29543bd00f2e
# Parent  af95abc39d75c605dcb273c639fc188ea9d34127
Must fontify only if we're actually showing a message.

diff -r af95abc39d75 -r afbd0214f6ec lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Mar 07 07:11:03 1996 +0000
+++ b/lisp/mail/rmail.el	Thu Mar 07 10:38:29 1996 +0000
@@ -2524,8 +2524,7 @@
 	 (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 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 ()