From: morioka <morioka>
Date: Sat, 27 Jun 1998 16:28:37 +0000 (+0000)
Subject: (mime-preview-quitting-method-for-gnus): Use
X-Git-Tag: gnus-6_7_6~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9285d2464e5b674ef0abbc8a39fca8acda86ee99;p=elisp%2Fgnus.git-

(mime-preview-quitting-method-for-gnus): Use
`gnus-article-show-summary' is `gnus-show-mime' is not nil.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7b64fdf..b3403cb 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3234,13 +3234,12 @@ forbidden in URL encoding."
 	   #'gnus-article-header-presentation-method)
 
 (defun mime-preview-quitting-method-for-gnus ()
-  (if (not gnus-show-mime)
-      (mime-preview-kill-buffer))
-  (delete-other-windows)
-  (gnus-article-show-summary)
-  (if (or (not gnus-show-mime)
-	  (null gnus-have-all-headers))
-      (gnus-summary-select-article nil t)
+  (if gnus-show-mime
+      (gnus-article-show-summary)
+    (mime-preview-kill-buffer)
+    (delete-other-windows)
+    (gnus-article-show-summary)
+    (gnus-summary-select-article nil t)
     ))
 
 (set-alist 'mime-raw-representation-type-alist