Function: message-font-lock-make-cited-text-matcher

message-font-lock-make-cited-text-matcher is a byte-compiled function defined in message.el.gz.

Signature

(message-font-lock-make-cited-text-matcher LEVEL MAXLEVEL)

Documentation

Generate the matcher for cited text.

LEVEL is the citation level to be matched and MAXLEVEL is the number of levels specified in the faces message-cited-text-*.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-font-lock-make-cited-text-matcher (level maxlevel)
  "Generate the matcher for cited text.
LEVEL is the citation level to be matched and MAXLEVEL is the
number of levels specified in the faces `message-cited-text-*'."
  (lambda (limit)
    (let (matched)
      ;; Keep search until `message-cite-level-function' returns the level
      ;; we want to match.
      (while (and (re-search-forward (concat "^\\("
                                             message-cite-prefix-regexp
                                             "\\).*")
                                     limit t)
		  (not (setq matched
                             (save-match-data
                               (= (1- level)
				  (mod
                                   (1- (funcall message-cite-level-function
						(match-string 1)))
                                   maxlevel)))))))
      matched)))