From: morioka <morioka>
Date: Sat, 27 Jun 1998 16:29:58 +0000 (+0000)
Subject: (gnus-summary-preview-mime-message): New implementation.
X-Git-Tag: gnus-6_7_6~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5c5140b617bc802cfcd2f59fc80e2fb5d670424b;p=elisp%2Fgnus.git-

(gnus-summary-preview-mime-message): New implementation.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 70acc89..6c928fb 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5167,17 +5167,12 @@ The state which existed when entering the ephemeral is reset."
 (defun gnus-summary-preview-mime-message (arg)
   "MIME decode and play this message."
   (interactive "P")
-  (let ((gnus-break-pages nil))
-    (gnus-summary-select-article t t)
-    )
-  (pop-to-buffer gnus-original-article-buffer t)
-  (let (buffer-read-only)
-    (if (text-property-any (point-min) (point-max) 'invisible t)
-	(remove-text-properties (point-min) (point-max)
-				gnus-hidden-properties)
-      ))
-  (mime-view-mode nil nil nil gnus-original-article-buffer
-		  gnus-article-buffer)
+  (or gnus-show-mime
+      (let ((gnus-break-pages nil)
+	    (gnus-show-mime t))
+	(gnus-summary-select-article t t)
+	))
+  (select-window (get-buffer-window gnus-article-buffer))
   )
 
 (defun gnus-summary-scroll-down ()