Mercurial > emacs

comparison lisp/mail/sendmail.el @ 11770:d546535268e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-font-lock-keywords): Make mail-header-separator into a regexp.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 May 1995 04:09:15 +0000
parents 03f977d9a240
children 42dba4f290a0
comparison
equal deleted inserted replaced
11769:4b5452f8ad12 11770:d546535268e0
191 (defvar mail-font-lock-keywords 191 (defvar mail-font-lock-keywords
192 (list '("^To:" . font-lock-function-name-face) 192 (list '("^To:" . font-lock-function-name-face)
193 '("^B?CC:\\|^Reply-To:" . font-lock-keyword-face) 193 '("^B?CC:\\|^Reply-To:" . font-lock-keyword-face)
194 '("^Subject:" . font-lock-comment-face) 194 '("^Subject:" . font-lock-comment-face)
195 '("^Subject:\\s *\\(.+\\)" 1 font-lock-type-face) 195 '("^Subject:\\s *\\(.+\\)" 1 font-lock-type-face)
196 (list (concat "^\\(" mail-header-separator "\\)$") 1 196 (list (concat "^\\(" (regexp-quote mail-header-separator) "\\)$") 1
197 'font-lock-comment-face) 197 'font-lock-comment-face)
198 '("^[ \t]*\\sw*[>|}].*" . font-lock-reference-face) ; Citation. 198 '("^[ \t]*\\sw*[>|}].*" . font-lock-reference-face) ; Citation.
199 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" . font-lock-string-face)) 199 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" . font-lock-string-face))
200 "Additional expressions to highlight in Mail mode.") 200 "Additional expressions to highlight in Mail mode.")
201 201