(rmail-highlighted-face): New variable.

[gnu-emacs] / lisp / mail / rmail.el

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 509d3d0f05ede092ea47b50eed420c9f6b2d1e1c..cf3ddac3e85d77539caa6293645497a62485f9cf 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -68,13 +68,17 @@ It is useful to set this variable in the site customization file.")
 
 ;;;###autoload
 (defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^message-id:\\|^summary-line:" "\
-*Regexp to match Header fields that rmail should normally hide.")
+*Regexp to match Header fields that Rmail should normally hide.")
 
 ;;;###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-highlight-face nil "\
+*Face used by Rmail for highlighting headers.")
+
 ;;;###autoload
 (defvar rmail-delete-after-output nil "\
 *Non-nil means automatically delete a message that is copied to a file.")
@@ -1428,8 +1432,9 @@ If summary buffer is currently displayed, update current message there also."
                (inhibit-read-only t)
                ;; Highlight with boldface if that is available.
                ;; Otherwise use the `highlight' face.
-               (face (if (face-differs-from-default-p 'bold)
-                         'bold 'highlight))
+               (face (or rmail-highlight-face
+                         (if (face-differs-from-default-p 'bold)
+                             'bold 'highlight)))
                ;; List of overlays to reuse.
                (overlays rmail-overlay-list))
            (goto-char (point-min))