diff options
| author | Richard M. Stallman <[email protected]> | 1994-10-07 09:56:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-10-07 09:56:40 +0000 |
| commit | 1a6bc985cf0be7530a17cc9c2d684823f8958291 (patch) | |
| tree | ba31f93ca5c2136fdf10e420c6c9932d5ec6930d /lisp | |
| parent | b9998c334df527b87e4fc4695a8044d563208625 (diff) | |
(rmail-summary-font-lock-keywords): New variable.
(rmail-summary-mode): Set font-lock-keywords locally.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmailsum.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 6458d06f47..5ed5cc26bc 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)) |