From f9a9d26e5b5b51309e236a116c121145ddcf44dc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Jun 1994 18:57:17 +0000 Subject: [PATCH] (rmail-highlight-headers): Do nothing if rmail-highlighted-headers is nil. --- lisp/mail/rmail.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index df4e7d36a24..02e122d620d 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -69,7 +69,8 @@ It is useful to set this variable in the site customization file.") ;;;###autoload (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\ -*Regexp to match Header fields that rmail should normally highlight.") +*Regexp to match Header fields that rmail should normally highlight. +A value of nil means don't highlight.") ;;;###autoload (defvar rmail-delete-after-output nil "\ @@ -1404,7 +1405,8 @@ If summary buffer is currently displayed, update current message there also." ;; Find all occurrences of certain fields, and highlight them. (defun rmail-highlight-headers () ;; Do this only if the system supports faces. - (if (fboundp 'internal-find-face) + (if (and (fboundp 'internal-find-face) + rmail-highlighted-headers) (save-excursion (search-forward "\n\n" nil 'move) (save-restriction