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

preview-buffer.

diff --git a/ChangeLog b/ChangeLog
index cf41305..8393150 100644 (file)
--- 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 (file)
--- 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)