Function: mh-regexp-in-field-p

mh-regexp-in-field-p is a byte-compiled function defined in mh-comp.el.gz.

Signature

(mh-regexp-in-field-p REGEXP &rest FIELDS)

Documentation

Non-nil means REGEXP was found in FIELDS.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-comp.el.gz
(defun mh-regexp-in-field-p (regexp &rest fields)
  "Non-nil means REGEXP was found in FIELDS."
  (let ((old-syntax-table (syntax-table)))
    (unwind-protect
        (save-excursion
          (let ((search-result nil))
            (while fields
              (let* ((field (car fields))
                     (syntax-table
                      (or mh-regexp-in-field-syntax-table
                          (let ((case-fold-search t))
                            (cond
                             ((string-match field "^To$\\|^[BD]?cc$\\|^From$")
                              mh-addr-syntax-table)
                             ((string-match field "^Fcc$")
                              mh-fcc-syntax-table)
                             (t
                              (syntax-table)))
                            ))))
                (if (and (mh-goto-header-field field)
                         (set-syntax-table syntax-table)
                         (re-search-forward
                          regexp (save-excursion (mh-header-field-end)(point)) t))
                    (setq fields nil
                          search-result t)
                  (setq fields (cdr fields)))
                (set-syntax-table old-syntax-table)))
            search-result))
      (set-syntax-table old-syntax-table))))