Function: mh-annotate-msg

mh-annotate-msg is a byte-compiled function defined in mh-comp.el.gz.

Signature

(mh-annotate-msg MSG FOLDER NOTE &rest ARGS)

Documentation

Mark MSG in FOLDER with character NOTE and annotate message with ARGS.

MSG can be a message number, a list of message numbers, or a sequence. The hook mh-annotate-msg-hook is run after annotating; see its documentation for variables it can use.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-comp.el.gz
(defun mh-annotate-msg (msg folder note &rest args)
  "Mark MSG in FOLDER with character NOTE and annotate message with ARGS.
MSG can be a message number, a list of message numbers, or a sequence.
The hook `mh-annotate-msg-hook' is run after annotating; see its
documentation for variables it can use."
  (apply #'mh-exec-cmd "anno" folder
         (if (listp msg) (append msg args) (cons msg args)))
  (save-excursion
    (cond ((get-buffer folder)          ; Buffer may be deleted
           (set-buffer folder)
           (mh-iterate-on-range nil msg
             (mh-notate nil note
                        (+ mh-cmd-note mh-scan-field-destination-offset))))))
  (let ((mh-current-folder folder)
        ;; mh-annotate-list is a sequence name or a list of message numbers
        (mh-annotate-list (if (numberp msg) (list msg) msg)))
    (run-hooks 'mh-annotate-msg-hook)))