procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-highlight-headers): Do nothing if

Browse source 
rmail-highlighted-headers is nil.
This commit is contained in:
Richard M. Stallman 1994-06-30 18:57:17 +00:00
parent ee50a52806
commit f9a9d26e5b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/rmail.el
View file

@ -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