Function: mh-thread-remove-parent-link

mh-thread-remove-parent-link is a byte-compiled function defined in mh-thread.el.gz.

Signature

(mh-thread-remove-parent-link CHILD)

Documentation

Remove parent link of CHILD if it exists.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-thread.el.gz
(defsubst mh-thread-remove-parent-link (child)
  "Remove parent link of CHILD if it exists."
  (let* ((child-container (if (mh-thread-container-p child)
                              child (mh-thread-id-container child)))
         (parent-container (mh-container-parent child-container)))
    (when parent-container
      (setf (mh-container-children parent-container)
            (cl-loop for elem in (mh-container-children parent-container)
                     unless (eq child-container elem) collect elem))
      (setf (mh-container-parent child-container) nil))))