Function: mh-extract-header-field

mh-extract-header-field is a byte-compiled function defined in mh-comp.el.gz.

Signature

(mh-extract-header-field)

Documentation

Extract field name and field value from the field at point.

Returns a list of field name and value (which may be null).

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-comp.el.gz
(defun mh-extract-header-field ()
  "Extract field name and field value from the field at point.
Returns a list of field name and value (which may be null)."
  (let ((end (save-excursion (mh-header-field-end)
                             (point))))
    (if (looking-at mh-letter-header-field-regexp)
        (save-excursion
          (goto-char (match-end 1))
          (forward-char 1)
          (skip-chars-forward " \t")
          (cons (match-string-no-properties 1) (buffer-substring-no-properties (point) end))))))