(rmail-font-lock-keywords): New variable.

(rmail-variables): Set font-lock-keywords locally.

1 files changed, 11 insertions, 0 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index cc805e3ae37..0d5cd1c7608 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -141,6 +141,15 @@ Called with region narrowed to the message, including headers.")
 
 (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 @@ Instead, these commands are available:
 (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)