Variable: mail-font-lock-keywords

mail-font-lock-keywords is a variable defined in sendmail.el.gz.

Value

(("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
 ("^\\(B?Cc\\|Reply-To\\|Mail-\\(Reply\\|Followup\\)-To\\):" . font-lock-keyword-face)
 ("^\\(Subject:\\)[     ]*\\(.+\\)?"
  (1 font-lock-comment-face))
 (eval let
       ((separator
	 (if
	     (zerop
	      (length mail-header-separator))
	     " \\`\\' "
	   (regexp-quote mail-header-separator))))
       (cons
	(concat "^" separator "$")
	'font-lock-warning-face))
 ("[>|}]"
  ("\\=[        ]*\\(\\(\\([[:alpha:]]+[[:alpha:]0-9_.@-`'\"]*\\)?\\([>|}][  ]*\\)\\)+\\)\\(.*\\)"
   (beginning-of-line)
   (end-of-line)
   (1 font-lock-comment-delimiter-face nil t)
   (5 font-lock-comment-face nil t)))
 ("^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):.*\\(\n[        ]+.*\\)*$" . font-lock-string-face))

Documentation

Additional expressions to highlight in Mail mode.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/sendmail.el.gz
(defvar mail-font-lock-keywords
  (eval-when-compile
    (let* ((cite-chars "[>|}]")
	   (cite-prefix "[:alpha:]")
	   (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
      (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face)
	    '("^\\(B?Cc\\|Reply-To\\|Mail-\\(Reply\\|Followup\\)-To\\):" . font-lock-keyword-face)
	    '("^\\(Subject:\\)[ \t]*\\(.+\\)?"
	      (1 font-lock-comment-face)
;;	      (2 font-lock-type-face nil t)
	      )
	    ;; Use EVAL to delay in case `mail-header-separator' gets changed.
	    '(eval .
	      (let ((separator (if (zerop (length mail-header-separator))
				   " \\`\\' "
				 (regexp-quote mail-header-separator))))
		(cons (concat "^" separator "$") 'font-lock-warning-face)))
	    ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
	    `(,cite-chars
	      (,(concat "\\=[ \t]*"
			"\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
			"\\(" cite-chars "[ \t]*\\)\\)+\\)"
			"\\(.*\\)")
	       (beginning-of-line) (end-of-line)
	       (1 font-lock-comment-delimiter-face nil t)
	       (5 font-lock-comment-face nil t)))
	    '("^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):.*\\(\n[ \t]+.*\\)*$"
	      . font-lock-string-face))))
  "Additional expressions to highlight in Mail mode.")