Function: mml-expand-all-html-into-multipart-related

mml-expand-all-html-into-multipart-related is a byte-compiled function defined in mml.el.gz.

Signature

(mml-expand-all-html-into-multipart-related CONT)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml.el.gz
(defun mml-expand-all-html-into-multipart-related (cont)
  (cond ((and (eq (car cont) 'part)
	      (equal (cdr (assq 'type cont)) "text/html"))
	 (mml-expand-html-into-multipart-related cont))
	((eq (car cont) 'multipart)
	 (let ((cur (cdr cont)))
	   (while (consp cur)
	     (setcar cur (mml-expand-all-html-into-multipart-related (car cur)))
	     (setf cur (cdr cur))))
	 cont)
	(t cont)))