Function: mail-hist-current-header-contents

mail-hist-current-header-contents is a byte-compiled function defined in mail-hist.el.gz.

Signature

(mail-hist-current-header-contents)

Documentation

Get the contents of the mail header in which point is located.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mail-hist.el.gz
(defsubst mail-hist-current-header-contents ()
  "Get the contents of the mail header in which point is located."
  (save-excursion
    (mail-hist-beginning-of-header)
    (let ((start (point)))
      (or (mail-hist-forward-header 1)
          (goto-char (mail-header-end)))
      (beginning-of-line)
      (buffer-substring start (1- (point))))))