Function: mh-letter-header-font-lock

mh-letter-header-font-lock is a byte-compiled function defined in mh-show.el.gz.

Signature

(mh-letter-header-font-lock LIMIT)

Documentation

Return the entire mail header to font-lock.

Argument LIMIT limits search.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-show.el.gz
(defun mh-letter-header-font-lock (limit)
  "Return the entire mail header to font-lock.
Argument LIMIT limits search."
  (if (= (point) limit)
      nil
    (let* ((mail-header-end (save-match-data (mh-mail-header-end)))
           (lesser-limit (if (< mail-header-end limit) mail-header-end limit)))
      (when (mh-in-header-p)
        (set-match-data (list 1 lesser-limit))
        (goto-char lesser-limit)
        t))))