From 3df6812aab8772d08397c87f1d4788cf05e26534 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 30 Jul 1994 02:46:24 +0000 Subject: [PATCH] (rmail-highlighted-face): New variable. (rmail-highlight-headers): Use it if non-nil. --- lisp/mail/rmail.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 509d3d0f05e..cf3ddac3e85 100644 --- 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)) -- 2.39.5