Function: mail-mode-flyspell-verify

mail-mode-flyspell-verify is a byte-compiled function defined in flyspell.el.gz.

Signature

(mail-mode-flyspell-verify)

Documentation

Function used for flyspell-generic-check-word-predicate in Mail mode.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/flyspell.el.gz
(defun mail-mode-flyspell-verify ()
  "Function used for `flyspell-generic-check-word-predicate' in Mail mode."
  (let* ((header-end (save-excursion
                       (goto-char (point-min))
                       (re-search-forward
                        (concat "^\\(?:"
                                (regexp-quote mail-header-separator)
                                "\\)?$")
                        nil t)
                       (point)))
         (signature-begin
          (if (not (boundp 'message-signature-separator))
              (point-max)
            (save-excursion
              (goto-char (point-max))
              (re-search-backward message-signature-separator
                                  (max header-end (- (point) 4000)) t)
              (point)))))
    (cond ((< (point) header-end)
	   (and (save-excursion (beginning-of-line)
				(looking-at "^Subject:"))
		(> (point) (match-end 0))))
	  ((> (point) signature-begin)
	   nil)
	  (t
	   (save-excursion
	     (beginning-of-line)
	     (not (looking-at "[>}|]\\|To:")))))))