Function: spam-treat-parts

spam-treat-parts is a byte-compiled function defined in spam-wash.el.gz.

Signature

(spam-treat-parts HANDLE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/spam-wash.el.gz
(defun spam-treat-parts (handle)
  (if (stringp (car handle))
      (mapcar #'spam-treat-parts (cdr handle))
    (if (bufferp (car handle))
	(save-restriction
	  (narrow-to-region (point) (point))
	(when (let ((case-fold-search t))
		(string-match "text" (car (mm-handle-type handle))))
	  (mm-insert-part handle))
	  (goto-char (point-max)))
      (mapcar #'spam-treat-parts handle))))