Variable: mh-show-font-lock-keywords-with-cite

mh-show-font-lock-keywords-with-cite is a variable defined in mh-show.el.gz.

Value

(("^\\(From:\\|Sender:\\)\\(.*\\)" (1 'default) (2 'mh-show-from))
 (mh-header-to-font-lock (0 'default) (1 'mh-show-to))
 (mh-header-cc-font-lock (0 'default) (1 'mh-show-cc))
 ("^\\(Reply-To:\\|Return-Path:\\)\\(.*\\)$" (1 'default)
  (2 'mh-show-from))
 (mh-header-subject-font-lock (0 'default) (1 'mh-show-subject))
 ("^\\(Apparently-To:\\|Newsgroups:\\)\\(.*\\)" (1 'default)
  (2 'mh-show-cc))
 ("^\\(In-Reply-To\\|Date\\):\\(.*\\)$" (1 'default) (2 'mh-show-date))
 (mh-letter-header-font-lock (0 'mh-show-header append t))
 ("[>|}]"
  ("\\=[        ]*\\(\\([A-Za-z]+[A-Za-z0-9_.@-`'\"]*\\)?\\([>|}][   ]*\\)\\)+\\(.*\\)"
   (beginning-of-line) (end-of-line) (2 font-lock-constant-face nil t)
   (4 font-lock-comment-face nil t))))

Documentation

Additional expressions to highlight in MH-Show buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-show.el.gz
(defvar mh-show-font-lock-keywords-with-cite
  (let* ((cite-chars "[>|}]")
         (cite-prefix "A-Za-z")
         (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
    (append
     mh-show-font-lock-keywords
     (list
      ;; 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)
         (2 font-lock-constant-face nil t)
         (4 font-lock-comment-face nil t))))))
  "Additional expressions to highlight in MH-Show buffers.")