Function: mail-abbrev-in-expansion-header-p

mail-abbrev-in-expansion-header-p is a byte-compiled function defined in mailabbrev.el.gz.

Signature

(mail-abbrev-in-expansion-header-p)

Documentation

Whether point is in a mail-address header field.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mailabbrev.el.gz
(defun mail-abbrev-in-expansion-header-p ()
  "Whether point is in a mail-address header field."
  (let ((case-fold-search t))
    (and ;;
         ;; we are on an appropriate header line...
     (save-excursion
       (unless (eobp) (forward-char 1))
       (re-search-backward "^[^ \t]" nil 'move)
       ;; are we at the front of an appropriate header line?
       (looking-at mail-abbrev-mode-regexp))
     ;;
     ;; ...and are we in the headers?
     (< (point)
	(save-restriction
	  (widen)
	  (save-excursion
	    (rfc822-goto-eoh)
	    (point)))))))