Mercurial > emacs
changeset 88275:7f1829816ec2
(rmail-fontify-message): Reformat, Doc String.
(rmail-ignored-headers): Generate with regexp-opt.
(rmail-displayed-headers): Default value set to nil.
| author | Henrik Enberg <henrik.enberg@telia.com> |
|---|---|
| date | Sun, 22 Jan 2006 19:14:26 +0000 |
| parents | 8a210508c1d6 |
| children | cbd2aedd8af1 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 12 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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))