From 8f24dc4ee8a0b30d5a6b93c61bcc5f5b222b4d20 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 22 Jul 1999 07:05:39 +0000 Subject: [PATCH] (mime-preview-quitting-method-for-mime-show-message-mode): Don't refer `mime-raw-buffer'. --- mime-play.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/mime-play.el b/mime-play.el index d38e599..c7ca316 100644 --- a/mime-play.el +++ b/mime-play.el @@ -519,10 +519,11 @@ SUBTYPE is symbol to indicate subtype of media-type.") (defun mime-preview-quitting-method-for-mime-show-message-mode () "Quitting method for mime-view. It is registered to variable `mime-preview-quitting-method-alist'." - (let ((mother mime-mother-buffer) - (win-conf mime-preview-original-window-configuration) - ) - (kill-buffer mime-raw-buffer) + (let ((raw-buffer (mime-entity-buffer + (get-text-property (point-min) 'mime-view-entity))) + (mother mime-mother-buffer) + (win-conf mime-preview-original-window-configuration)) + (kill-buffer raw-buffer) (mime-preview-kill-buffer) (set-window-configuration win-conf) (pop-to-buffer mother) -- 1.7.10.4