From: morioka <morioka>
Date: Wed, 21 Jul 1999 11:05:27 +0000 (+0000)
Subject: (mime-store-message/partial-piece): Don't refer `mime-preview-buffer'.
X-Git-Tag: remi-1_13_1~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9d604eda2c85e63143b1b9367a4b4de171fa2d7f;p=elisp%2Fsemi.git

(mime-store-message/partial-piece): Don't refer `mime-preview-buffer'.
---

diff --git a/mime-play.el b/mime-play.el
index af3d851..d38e599 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -554,33 +554,28 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	 (number (cdr (assoc "number" cal)))
 	 (total (cdr (assoc "total" cal)))
 	 file
-	 (mother (current-buffer))
-	 )
+	 (mother (current-buffer)))
     (or (file-exists-p root-dir)
-	(make-directory root-dir)
-	)
+	(make-directory root-dir))
     (setq id (replace-as-filename id))
     (setq root-dir (concat root-dir "/" id))
     (or (file-exists-p root-dir)
-	(make-directory root-dir)
-	)
+	(make-directory root-dir))
     (setq file (concat root-dir "/FULL"))
     (if (file-exists-p file)
 	(let ((full-buf (get-buffer-create "FULL"))
 	      (pwin (or (get-buffer-window mother)
 			(get-largest-window)))
-	      )
+	      pbuf)
 	  (save-window-excursion
 	    (set-buffer full-buf)
 	    (erase-buffer)
 	    (as-binary-input-file (insert-file-contents file))
 	    (setq major-mode 'mime-show-message-mode)
 	    (mime-view-buffer (current-buffer) nil mother)
+	    (setq pbuf (current-buffer))
 	    )
-	  (set-window-buffer pwin
-			     (save-excursion
-			       (set-buffer full-buf)
-			       mime-preview-buffer))
+	  (set-window-buffer pwin pbuf)
 	  (select-window pwin)
 	  )
       (setq file (concat root-dir "/" number))