From 9285d2464e5b674ef0abbc8a39fca8acda86ee99 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 27 Jun 1998 16:28:37 +0000 Subject: [PATCH] (mime-preview-quitting-method-for-gnus): Use `gnus-article-show-summary' is `gnus-show-mime' is not nil. --- lisp/gnus-art.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) 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 -- 1.7.10.4