Mercurial > emacs
changeset 8383:d2b1b642f4e6
(rmail-highlighted-face): New variable.
(rmail-highlight-headers): Use it if non-nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 30 Jul 1994 02:46:24 +0000 |
| parents | 425ac5eebc19 |
| children | 4c88569aaa73 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sat Jul 30 00:29:08 1994 +0000 +++ b/lisp/mail/rmail.el Sat Jul 30 02:46:24 1994 +0000 @@ -68,14 +68,18 @@ ;;;###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 @@ (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))