(mm-uu-dissect-text-parts): Dissect dissected parts.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 4a81535..9f09604 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -636,7 +636,8 @@ value of `mm-uu-text-plain-type'."
                              (mm-uu-dissect t (mm-handle-type handle)))))
             (kill-buffer buffer)
             (setcar handle (car children))
-            (setcdr handle (cdr children))))
+            (setcdr handle (cdr children))
+            (mm-uu-dissect-text-parts handle)))
          (t
           (mapc 'mm-uu-dissect-text-parts handle)))))