Function: mm-destroy-parts

mm-destroy-parts is a byte-compiled function defined in mm-decode.el.gz.

Signature

(mm-destroy-parts HANDLES)

Documentation

Destroy the displayed MIME parts represented by HANDLES.

Aliases

mh-mm-destroy-parts (obsolete since 29.1)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-decode.el.gz
(defun mm-destroy-parts (handles)
  "Destroy the displayed MIME parts represented by HANDLES."
  (if (and (listp handles)
	   (bufferp (car handles)))
      (mm-destroy-part handles)
    (let (handle)
      (while (setq handle (pop handles))
	(cond
	 ((stringp handle)
	  (when (buffer-live-p (get-text-property 0 'buffer handle))
	    (kill-buffer (get-text-property 0 'buffer handle))))
	 ((and (listp handle)
	       (stringp (car handle)))
	  (mm-destroy-parts handle))
	 (t
	  (mm-destroy-part handle)))))))