From: morioka <morioka>
Date: Thu, 26 Aug 1999 10:35:51 +0000 (+0000)
Subject: (mime-store-message/partial-piece): Don't refer `mime-preview-buffer'.
X-Git-Tag: semi-1_13_6~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8374015bce67fb59cba8cf965bf60c01126b74e1;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 5cf0aac..29545e2 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -644,15 +644,11 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 		  (and (file-exists-p file)
 		       (delete-file file)
 		       ))
-		(save-window-excursion
-		  (setq major-mode 'mime-show-message-mode)
-		  (mime-view-buffer (current-buffer) nil mother)
-		  )
 		(let ((pwin (or (get-buffer-window mother)
 				(get-largest-window)))
-		      (pbuf (save-excursion
-			      (set-buffer full-buf)
-			      mime-preview-buffer)))
+		      (pbuf (mime-display-message
+			     (mime-open-entity 'buffer (current-buffer))
+			     nil mother nil 'mime-show-message-mode)))
 		  (set-window-buffer pwin pbuf)
 		  (select-window pwin)
 		  )))))