Function: mh-notate-user-sequences

mh-notate-user-sequences is an autoloaded and byte-compiled function defined in mh-seq.el.gz.

Signature

(mh-notate-user-sequences &optional RANGE)

Documentation

Mark user-defined sequences in RANGE.

Check the documentation of mh-interactive-range to see how RANGE is read in interactive use; if nil all messages are notated.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-seq.el.gz
;;;###mh-autoload
(defun mh-notate-user-sequences (&optional range)
  "Mark user-defined sequences in RANGE.

Check the documentation of `mh-interactive-range' to see how
RANGE is read in interactive use; if nil all messages are
notated."
  (unless range
    (setq range (cons (point-min) (point-max))))
  (let ((seqs mh-seq-list)
        (msg-hash (make-hash-table)))
    (dolist (seq seqs)
      (dolist (msg (mh-seq-msgs seq))
        (push (car seq) (gethash msg msg-hash))))
    (mh-iterate-on-range msg range
      (cl-loop for seq in (gethash msg msg-hash)
               do (mh-add-sequence-notation msg (mh-internal-seq seq))))))