From: morioka <morioka>
Date: Thu, 9 Apr 1998 20:53:25 +0000 (+0000)
Subject: Sync up with SEMI 1.2.1 (Nomachi).
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9276a19db8603b79b4fc8108fa5dbcc8baed1180;p=elisp%2Fsemi.git

Sync up with SEMI 1.2.1 (Nomachi).
---

diff --git a/mime-view.el b/mime-view.el
index a81d306..c5c3691 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -625,11 +625,9 @@ The compressed face will be piped to this command.")
   (or mime-view-redisplay
       (setq mime-raw-message-info (mime-parse-message ctl encoding))
       )
-  (let* ((message-info mime-raw-message-info)
-	 (pcl (mime-raw-flatten-message-info message-info))
-	 (the-buf (current-buffer))
-	 (mode major-mode)
-	 )
+  (let ((message-info mime-raw-message-info)
+	(the-buf (current-buffer))
+	(mode major-mode))
     (or obuf
 	(setq obuf (concat "*Preview-" (buffer-name the-buf) "*")))
     (set-buffer (get-buffer-create obuf))
@@ -641,10 +639,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")
-      (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)
@@ -740,7 +735,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