Mercurial > emacs
changeset 9380:5eb799a4819b
(rmail-font-lock-keywords): New variable.
(rmail-variables): Set font-lock-keywords locally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Oct 1994 09:59:00 +0000 |
| parents | 138d99e53e94 |
| children | 535197b3fc42 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Oct 07 09:56:40 1994 +0000 +++ b/lisp/mail/rmail.el Fri Oct 07 09:59:00 1994 +0000 @@ -141,6 +141,15 @@ (defvar rmail-overlay-list nil) +(defvar rmail-font-lock-keywords + '(("^\\(From\\|Sender\\):" . font-lock-function-name-face) + ("^Reply-To:.*$" . font-lock-function-name-face) + ("^Subject:" . font-lock-comment-face) + ("^\\(To\\|Apparently-To\\|Cc\\):" . font-lock-keyword-face) + ("^[ \t]*\\sw*[>|}].*$" . font-lock-reference-face) ; Citation. + ("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" . font-lock-string-face)) + "Additional expressions to highlight in Rmail mode.") + ;; These are used by autoloaded rmail-summary. (defvar rmail-summary-buffer nil) @@ -605,6 +614,8 @@ (defun rmail-variables () (make-local-variable 'revert-buffer-function) (setq revert-buffer-function 'rmail-revert) + (make-local-variable 'font-lock-keywords) + (setq font-lock-keywords rmail-font-lock-keywords) (make-local-variable 'rmail-last-label) (make-local-variable 'rmail-last-regexp) (make-local-variable 'rmail-deleted-vector)