From 8374015bce67fb59cba8cf965bf60c01126b74e1 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 26 Aug 1999 10:35:51 +0000 Subject: [PATCH] (mime-store-message/partial-piece): Don't refer `mime-preview-buffer'. --- mime-play.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) 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) ))))) -- 1.7.10.4