From 91b0cb7d8ad9ff71aa3ddfeaf1a5336e3d4992b1 Mon Sep 17 00:00:00 2001 From: Henrik Enberg Date: Sun, 22 Jan 2006 19:14:26 +0000 Subject: [PATCH] (rmail-fontify-message): Reformat, Doc String. (rmail-ignored-headers): Generate with regexp-opt. (rmail-displayed-headers): Default value set to nil. --- lisp/mail/rmail.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 275119bce9e..19229eb4b69 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -3241,17 +3241,18 @@ This has an effect only if a summary buffer exists." (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)) -- 2.39.2