From 9d604eda2c85e63143b1b9367a4b4de171fa2d7f Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 21 Jul 1999 11:05:27 +0000 Subject: [PATCH] (mime-store-message/partial-piece): Don't refer `mime-preview-buffer'. --- mime-play.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) 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)) -- 1.7.10.4