# HG changeset patch
# User Henrik Enberg <henrik.enberg@telia.com>
# Date 1137957266 0
# Node ID 7f1829816ec20f4f3c18f079b9cce6f904b7da6a
# Parent  8a210508c1d6f454f2614b8b055b90ceab14f57f
(rmail-fontify-message): Reformat, Doc String.
(rmail-ignored-headers): Generate with regexp-opt.
(rmail-displayed-headers): Default value set to nil.

diff -r 8a210508c1d6 -r 7f1829816ec2 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Jan 22 05:51:48 2006 +0000
+++ b/lisp/mail/rmail.el	Sun Jan 22 19:14:26 2006 +0000
@@ -3241,17 +3241,18 @@
       (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil)))))
 
 (defun rmail-fontify-message ()
-  ;; Fontify the current message if it is not already fontified.
-  (if (text-property-any (point-min) (point-max) 'rmail-fontified nil)
-      (let ((modified (buffer-modified-p))
-	    (buffer-undo-list t) (inhibit-read-only t)
-	    before-change-functions after-change-functions
-	    buffer-file-name buffer-file-truename)
-	(save-excursion
-	  (save-match-data
-	    (add-text-properties (point-min) (point-max) '(rmail-fontified t))
-	    (font-lock-fontify-region (point-min) (point-max))
-	    (and (not modified) (buffer-modified-p) (set-buffer-modified-p nil)))))))
+  "Fontify the current message if it is not already fontified."
+  (when (text-property-any (point-min) (point-max) 'rmail-fontified nil)
+    (let ((modified (buffer-modified-p))
+	  (buffer-undo-list t) (inhibit-read-only t)
+	  before-change-functions after-change-functions
+	  buffer-file-name buffer-file-truename)
+      (save-excursion
+	(save-match-data
+	  (add-text-properties (point-min) (point-max) '(rmail-fontified t))
+	  (font-lock-fontify-region (point-min) (point-max))
+	  (and (not modified) (buffer-modified-p)
+	       (set-buffer-modified-p nil)))))))
 
 ;;; Speedbar support for RMAIL files.
 (eval-when-compile (require 'speedbar))