Mercurial > emacs

changeset 14779:afbd0214f6ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Must fontify only if we're actually showing a message.
author Simon Marshall <simon@gnu.org>
date Thu, 07 Mar 1996 10:38:29 +0000
parents af95abc39d75
children 1d10e4a2fb51
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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 ()