(mime-view-setup-buffers): Move place of local variable 'pcl.

diff --git a/mime-view.el b/mime-view.el
index 098440f..010ac3d 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -623,11 +623,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))
@@ -639,10 +637,11 @@ 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))
-       )
+      (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))
+         ))
       (set-buffer-modified-p nil)
       )
     (setq buffer-read-only t)