Function: mh-create-sequence-map

mh-create-sequence-map is an autoloaded and byte-compiled function defined in mh-search.el.gz.

Signature

(mh-create-sequence-map SEQ-LIST)

Documentation

Return a map from msg number to list of sequences in which it is present.

SEQ-LIST is an assoc list whose keys are sequence names and whose cdr is the list of messages in that sequence.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-search.el.gz
;;;###mh-autoload
(defun mh-create-sequence-map (seq-list)
  "Return a map from msg number to list of sequences in which it is present.
SEQ-LIST is an assoc list whose keys are sequence names and whose
cdr is the list of messages in that sequence."
  (cl-loop with map = (make-hash-table)
           for seq in seq-list
           when (and (not (memq (car seq) (mh-unpropagated-sequences)))
                     (mh-valid-seq-p (car seq)))
           do (cl-loop for msg in (cdr seq)
                       do (push (car seq) (gethash msg map)))
           finally return map))