Function: mh-delete-a-msg-from-seq

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

Signature

(mh-delete-a-msg-from-seq MSG SEQUENCE INTERNAL-FLAG)

Documentation

Delete MSG from SEQUENCE.

If INTERNAL-FLAG is non-nil, then do not inform MH of the change.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-seq.el.gz
(defun mh-delete-a-msg-from-seq (msg sequence internal-flag)
  "Delete MSG from SEQUENCE.
If INTERNAL-FLAG is non-nil, then do not inform MH of the
change."
  (let ((entry (mh-find-seq sequence)))
    (when (and entry (memq msg (mh-seq-msgs entry)))
      (if (not internal-flag)
          (mh-undefine-sequence sequence (list msg)))
      (setcdr entry (delq msg (mh-seq-msgs entry))))))