From: morioka <morioka>
Date: Thu, 22 Jul 1999 07:05:39 +0000 (+0000)
Subject: (mime-preview-quitting-method-for-mime-show-message-mode): Don't refer
X-Git-Tag: remi-1_13_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8f24dc4ee8a0b30d5a6b93c61bcc5f5b222b4d20;p=elisp%2Fsemi.git

(mime-preview-quitting-method-for-mime-show-message-mode): Don't refer
`mime-raw-buffer'.
---

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)