From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Oct 1994 09:56:40 +0000 (+0000)
Subject: (rmail-summary-font-lock-keywords): New variable.
X-Git-Tag: emacs-19.34~6475
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a6bc985cf0be7530a17cc9c2d684823f8958291;p=emacs.git

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

(rmail-summary-mode): Set font-lock-keywords locally.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 6458d06f47f..5ed5cc26bc9 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -29,6 +29,14 @@
 
 ;;; Code:
 
+(defvar rmail-summary-font-lock-keywords
+  '(("^....D.*$" . font-lock-string-face)			; Deleted.
+    ("^....-.*$" . font-lock-type-face)				; Unread.
+    ;; Neither of the below will be highlighted if either of the above are:
+    ("^....[^D-] \\(......\\)" 1 font-lock-keyword-face)	; Date.
+    ("{ \\([^}]+\\),}" 1 font-lock-comment-face))		; Labels.
+  "Additional expressions to highlight in Rmail Summary mode.")
+
 ;; Entry points for making a summary buffer.
 
 ;; Regenerate the contents of the summary
@@ -547,6 +555,8 @@ Commands for sorting the summary:
   (setq rmail-summary-redo nil)
   (make-local-variable 'revert-buffer-function)
   (make-local-variable 'post-command-hook)
+  (make-local-variable 'font-lock-keywords)
+  (setq font-lock-keywords rmail-summary-font-lock-keywords)
   (rmail-summary-enable)
   (run-hooks 'rmail-summary-mode-hook))