Function: mh-seq-containing-msg

mh-seq-containing-msg is a byte-compiled function defined in mh-seq.el.gz.

Signature

(mh-seq-containing-msg MSG &optional INCLUDE-INTERNAL-FLAG)

Documentation

Return a list of the sequences containing MSG.

If INCLUDE-INTERNAL-FLAG non-nil, include MH-E internal sequences in list.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-seq.el.gz
(defun mh-seq-containing-msg (msg &optional include-internal-flag)
  "Return a list of the sequences containing MSG.
If INCLUDE-INTERNAL-FLAG non-nil, include MH-E internal sequences
in list."
  (let ((l mh-seq-list)
        (seqs ()))
    (while l
      (and (memq msg (mh-seq-msgs (car l)))
           (or include-internal-flag
               (not (mh-internal-seq (mh-seq-name (car l)))))
           (setq seqs (cons (mh-seq-name (car l)) seqs)))
      (setq l (cdr l)))
    seqs))