Function: mh-msg-is-in-seq

mh-msg-is-in-seq is an autoloaded, interactive and byte-compiled function defined in mh-seq.el.gz.

Signature

(mh-msg-is-in-seq MESSAGE)

Documentation

Display the sequences in which the current message appears.

Use a prefix argument to display the sequences in which another MESSAGE appears.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-seq.el.gz
;;;###mh-autoload
(defun mh-msg-is-in-seq (message)
  "Display the sequences in which the current message appears.

Use a prefix argument to display the sequences in which another
MESSAGE appears."
  (interactive "P")
  (if (not message)
      (setq message (mh-get-msg-num t)))
  (let* ((dest-folder (cl-loop for seq in mh-refile-list
                               when (member message (cdr seq)) return (car seq)
                               finally return nil))
         (deleted-flag (unless dest-folder (member message mh-delete-list))))
    (message "Message %d%s is in sequences: %s"
             message
             (cond (dest-folder (format " (to be refiled to %s)" dest-folder))
                   (deleted-flag " (to be deleted)")
                   (t ""))
             (mapconcat #'concat
                        (mh-list-to-string (mh-seq-containing-msg message t))
                        " "))))