]> git.eshelyaron.com Git - emacs.git/commitdiff
(rmail-summary-font-lock-keywords): New variable.
authorRichard M. Stallman <rms@gnu.org>
Fri, 7 Oct 1994 09:56:40 +0000 (09:56 +0000)
committerRichard M. Stallman <rms@gnu.org>
Fri, 7 Oct 1994 09:56:40 +0000 (09:56 +0000)
(rmail-summary-mode): Set font-lock-keywords locally.

lisp/mail/rmailsum.el

index 6458d06f47fd80c1016e1ae80c5df3fc7b10e4c9..5ed5cc26bc94d78ce8a7aca56fcf3ee853a5b792 100644 (file)
 
 ;;; 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))