Function: mail-hist-put-headers-into-history

mail-hist-put-headers-into-history is an autoloaded and byte-compiled function defined in mail-hist.el.gz.

Signature

(mail-hist-put-headers-into-history)

Documentation

Put headers and contents of this message into mail header history.

Each header has its own independent history, as does the body of the message.

This function normally would be called when the message is sent.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/mail-hist.el.gz
;;;###autoload
(defun mail-hist-put-headers-into-history ()
  "Put headers and contents of this message into mail header history.
Each header has its own independent history, as does the body of the
message.

This function normally would be called when the message is sent."
  (and
   mail-hist-keep-history
   (save-excursion
     (goto-char (point-min))
     (while (mail-hist-forward-header 1)
       (mail-hist-add-header-contents-to-ring
        (mail-hist-current-header-name)))
     (let ((body-contents
	    (buffer-substring (mail-text-start) (point-max))))
       (mail-hist-add-header-contents-to-ring "body" body-contents)))))