Mercurial > emacs

comparison lisp/mail/rmail.el @ 16452:c51321427e96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweak rmail-font-lock-keywords.
author Simon Marshall <simon@gnu.org>
date Wed, 23 Oct 1996 09:26:33 +0000
parents 65d3768ccb05
children 446f51ea7cb8
comparison
equal deleted inserted replaced
16451:0e181c85b17e 16452:c51321427e96
176 176
177 (defvar rmail-overlay-list nil) 177 (defvar rmail-overlay-list nil)
178 178
179 (defvar rmail-font-lock-keywords 179 (defvar rmail-font-lock-keywords
180 (eval-when-compile 180 (eval-when-compile
181 (let* ((cite-prefix "A-Za-z") (cite-suffix (concat cite-prefix "0-9_.@-"))) 181 (let* ((cite-chars "[>|}]")
182 (list 182 (cite-prefix "A-Za-z")
183 '("^\\(From\\|Sender\\):" . font-lock-function-name-face) 183 (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
184 '("^Reply-To:.*$" . font-lock-function-name-face) 184 (list '("^\\(From\\|Sender\\):" . font-lock-function-name-face)
185 '("^Subject:" . font-lock-comment-face) 185 '("^Reply-To:.*$" . font-lock-function-name-face)
186 '("^\\(To\\|Apparently-To\\|Cc\\):" . font-lock-keyword-face) 186 '("^Subject:" . font-lock-comment-face)
187 (cons (concat "^[ \t]*" 187 '("^\\(To\\|Apparently-To\\|Cc\\):" . font-lock-keyword-face)
188 "\\([" cite-prefix "]+[" cite-suffix "]*\\)?" 188 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
189 "[>|}].*") 189 `(,cite-chars
190 'font-lock-reference-face) 190 (,(concat "\\=[ \t]*"
191 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" 191 "\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
192 . font-lock-string-face)))) 192 cite-chars ".*")
193 (beginning-of-line) (end-of-line)
194 (0 font-lock-reference-face)))
195 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$"
196 . font-lock-string-face))))
193 "Additional expressions to highlight in Rmail mode.") 197 "Additional expressions to highlight in Rmail mode.")
194 198
195 ;; These are used by autoloaded rmail-summary. 199 ;; These are used by autoloaded rmail-summary.
196 200
197 (defvar rmail-summary-buffer nil) 201 (defvar rmail-summary-buffer nil)