From d3b2eeba21010417926d093dc40eafb909bb4fa5 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 9 Apr 1998 19:37:23 +0000 Subject: [PATCH] (mime-view-setup-buffers): Move place of local variable 'pcl. --- mime-view.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/mime-view.el b/mime-view.el index 098440f..010ac3d 100644 --- 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) -- 1.7.10.4