mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(rmail-summary-mode): Set font-lock-keywords locally.
This commit is contained in:
Richard M. Stallman 1994-10-07 09:56:40 +00:00
parent b9998c334d
commit 1a6bc985cf
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/mail/rmailsum.el
View file

@ -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))