Function: message-replace-header

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

Signature

(message-replace-header HEADER NEW-VALUE &optional AFTER FORCE)

Documentation

Remove HEADER and insert the NEW-VALUE.

If AFTER, insert after this header. AFTER may be a list of headers. If FORCE, insert new field even if NEW-VALUE is empty.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-replace-header (header new-value &optional after force)
  "Remove HEADER and insert the NEW-VALUE.
If AFTER, insert after this header.  AFTER may be a list of
headers.  If FORCE, insert new field even if NEW-VALUE is empty."
  ;; Similar to `nnheader-replace-header' but for message buffers.
  (save-excursion
    (save-restriction
      (message-narrow-to-headers)
      (message-remove-header header))
    (when (or force (> (length new-value) 0))
      (apply #'message-position-on-field header
             (if (listp after)
                 after
               (list after)))
      (insert new-value))))