diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-06-30 18:57:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-06-30 18:57:17 +0000 |
| commit | f9a9d26e5b5b51309e236a116c121145ddcf44dc (patch) | |
| tree | ddec555979c1f76873840150b9455cb84cb3d083 /lisp | |
| parent | ee50a52806c8c76b941394163bccbd112ce3b627 (diff) | |
| download | emacs-f9a9d26e5b5b51309e236a116c121145ddcf44dc.tar.gz emacs-f9a9d26e5b5b51309e236a116c121145ddcf44dc.tar.bz2 emacs-f9a9d26e5b5b51309e236a116c121145ddcf44dc.zip | |
(rmail-highlight-headers): Do nothing if
rmail-highlighted-headers is nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files 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 |