Mercurial > emacs

comparison lisp/mail/rmail.el @ 9380:5eb799a4819b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-font-lock-keywords): New variable. (rmail-variables): Set font-lock-keywords locally.
author Richard M. Stallman <rms@gnu.org>
date Fri, 07 Oct 1994 09:59:00 +0000
parents 029821174e53
children 802381617d14
comparison
equal deleted inserted replaced
9379:138d99e53e94 9380:5eb799a4819b
138 (defvar rmail-total-messages nil) 138 (defvar rmail-total-messages nil)
139 (defvar rmail-message-vector nil) 139 (defvar rmail-message-vector nil)
140 (defvar rmail-deleted-vector nil) 140 (defvar rmail-deleted-vector nil)
141 141
142 (defvar rmail-overlay-list nil) 142 (defvar rmail-overlay-list nil)
143
144 (defvar rmail-font-lock-keywords
145 '(("^\\(From\\|Sender\\):" . font-lock-function-name-face)
146 ("^Reply-To:.*$" . font-lock-function-name-face)
147 ("^Subject:" . font-lock-comment-face)
148 ("^\\(To\\|Apparently-To\\|Cc\\):" . font-lock-keyword-face)
149 ("^[ \t]*\\sw*[>|}].*$" . font-lock-reference-face) ; Citation.
150 ("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" . font-lock-string-face))
151 "Additional expressions to highlight in Rmail mode.")
143 152
144 ;; These are used by autoloaded rmail-summary. 153 ;; These are used by autoloaded rmail-summary.
145 154
146 (defvar rmail-summary-buffer nil) 155 (defvar rmail-summary-buffer nil)
147 (defvar rmail-summary-vector nil) 156 (defvar rmail-summary-vector nil)
603 (setq local-abbrev-table text-mode-abbrev-table)) 612 (setq local-abbrev-table text-mode-abbrev-table))
604 613
605 (defun rmail-variables () 614 (defun rmail-variables ()
606 (make-local-variable 'revert-buffer-function) 615 (make-local-variable 'revert-buffer-function)
607 (setq revert-buffer-function 'rmail-revert) 616 (setq revert-buffer-function 'rmail-revert)
617 (make-local-variable 'font-lock-keywords)
618 (setq font-lock-keywords rmail-font-lock-keywords)
608 (make-local-variable 'rmail-last-label) 619 (make-local-variable 'rmail-last-label)
609 (make-local-variable 'rmail-last-regexp) 620 (make-local-variable 'rmail-last-regexp)
610 (make-local-variable 'rmail-deleted-vector) 621 (make-local-variable 'rmail-deleted-vector)
611 (make-local-variable 'rmail-summary-buffer) 622 (make-local-variable 'rmail-summary-buffer)
612 (make-local-variable 'rmail-summary-vector) 623 (make-local-variable 'rmail-summary-vector)