From: hayashi <hayashi>
Date: Wed, 16 Feb 2000 04:10:53 +0000 (+0000)
Subject: mime-view.el (mime-preview-quit): Fix bug which unconditionally	removes
X-Git-Tag: emy-1_13_4~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e1d76c34f27040936b8f68051df13f66939f6a51;p=elisp%2Fsemi.git

mime-view.el (mime-preview-quit): Fix bug which unconditionally	removes
preview-buffer.
---

diff --git a/ChangeLog b/ChangeLog
index cf41305..8393150 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-02-16  Yoshiki Hayashi  <yoshiki@xemacs.org>
+
+	* mime-view.el (mime-preview-quit): Fix bug which unconditionally
+	removes preview-buffer.
+	From: Yuuichi Teranishi <teranisi@gohome.org>
+
 2000-02-15  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* mime-view.el (mime-follow-current-entity): Try to be
diff --git a/mime-view.el b/mime-view.el
index 28f2c23..12507e8 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1799,8 +1799,8 @@ It calls function registered in variable
   (let ((r (assq (mime-preview-original-major-mode)
 		 mime-preview-quitting-method-alist)))
     (if r
-	(funcall (cdr r)))
-    (kill-buffer (current-buffer))))
+	(funcall (cdr r))
+      (kill-buffer (current-buffer)))))
 
 (defun mime-preview-kill-buffer ()
   (interactive)