(mime-view-setup-buffers): Don't use 'mime-raw-flatten-message-info.

(mime-view-display-entity): Display recursively.

diff --git a/mime-view.el b/mime-view.el
index 010ac3d..06af52f 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -637,11 +637,7 @@ The compressed face will be piped to this command.")
       (setq mime-preview-original-major-mode mode)
       (setq major-mode 'mime-view-mode)
       (setq mode-name "MIME-View")
-      (let ((pcl (mime-raw-flatten-message-info message-info)))
-       (while pcl
-         (mime-view-display-entity (car pcl) message-info the-buf obuf)
-         (setq pcl (cdr pcl))
-         ))
+      (mime-view-display-entity message-info message-info the-buf obuf)
       (set-buffer-modified-p nil)
       )
     (setq buffer-read-only t)
@@ -737,7 +733,11 @@ The compressed face will be piped to this command.")
     (put-text-property nb ne 'mime-view-raw-buffer ibuf)
     (put-text-property nb ne 'mime-view-entity entity)
     (goto-char ne)
-    ))
+    (let ((children (mime-entity-children entity)))
+      (while children
+       (mime-view-display-entity (car children) message-info ibuf obuf)
+       (setq children (cdr children))
+       ))))
 
 (defun mime-raw-get-uu-filename (param &optional encoding)
   (if (member (or encoding