Function: mh-identity-handler-attribution-verb

mh-identity-handler-attribution-verb is an autoloaded and byte-compiled function defined in mh-identity.el.gz.

Signature

(mh-identity-handler-attribution-verb FIELD ACTION &optional VALUE)

Documentation

Process header FIELD ":attribution-verb".

The ACTION is one of remove or add. If add, the VALUE is added.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-identity.el.gz
;;;###mh-autoload
(defun mh-identity-handler-attribution-verb (_field action &optional value)
  "Process header FIELD \":attribution-verb\".
The ACTION is one of `remove' or `add'.  If `add', the VALUE is
added."
  (when (and (markerp mh-identity-attribution-verb-start)
             (markerp mh-identity-attribution-verb-end))
    (delete-region mh-identity-attribution-verb-start
                   mh-identity-attribution-verb-end)
    (goto-char mh-identity-attribution-verb-start)
    (cond
     ((equal action 'remove)              ; Replace with default
      (mh-identity-insert-attribution-verb nil))
     (t                                   ; Insert attribution verb.
      (mh-identity-insert-attribution-verb value)))))