From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 30 Apr 2014 09:21:09 +0000 (+0000)
Subject: lisp/gnus/gnus-art.el (gnus-mm-display-part): Fix previous commit (again)
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/b0e36b7048c88aa24f6955c53fbe790bb9ebc54f

lisp/gnus/gnus-art.el (gnus-mm-display-part): Fix previous commit (again)
---

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index e3605cd5fe..951ee908a5 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5671,8 +5671,6 @@ all parts."
 		 nil id
 		 (gnus-article-mime-total-parts)
 		 (mm-handle-media-type handle))))))
-      (if (window-live-p window)
-	  (select-window window))
       (goto-char point)
       ;; Toggle the button appearance between `[button]...' and `[button]'.
       (let ((end (next-single-property-change point 'gnus-data)))
@@ -5684,7 +5682,9 @@ all parts."
 	    (goto-char pt)
 	  ;; We're in the article header.
 	  (delete-char -1)))
-      (goto-char point))
+      (goto-char point)
+      (if (window-live-p window)
+	  (select-window window)))
     retval))
 
 (defun gnus-article-goto-part (n)