Function: message-add-header

message-add-header is a byte-compiled function defined in message.el.gz.

Signature

(message-add-header &rest HEADERS)

Documentation

Add the HEADERS to the message header, skipping those already present.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-add-header (&rest headers)
  "Add the HEADERS to the message header, skipping those already present."
  (while headers
    (let (hclean)
      (unless (string-match "^\\([^:]+\\):[ \t]*[^ \t]" (car headers))
	(error "Invalid header `%s'" (car headers)))
      (setq hclean (match-string 1 (car headers)))
      (save-restriction
	(message-narrow-to-headers)
	(unless (re-search-forward (concat "^" (regexp-quote hclean) ":") nil t)
	  (goto-char (point-max))
	  (if (string-match "\n$" (car headers))
	      (insert (car headers))
	    (insert (car headers) ?\n)))))
    (setq headers (cdr headers))))