Revision: emacs@sv.gnu.org/gnus--devo--0--patch-5

[gnus] / lisp / mm-uu.el

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index c959d64..d855b51 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -651,7 +651,8 @@ value of `mm-uu-text-plain-type'."
                 (kill-buffer buffer)
                 (setcdr handle (cdr children))
                 (setcar handle (car children)) ;; "multipart/mixed"
-                (mapc 'mm-uu-dissect-text-parts (cdr children))))))
+                (dolist (elem (cdr children))
+                  (mm-uu-dissect-text-parts elem))))))
          (t
           (mapc 'mm-uu-dissect-text-parts handle)))))