X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=789308c4ab90b70e861ffeb36bd9749b77f38e5f;hp=619c8bd75fd30a409b4fe367cbd3f08642952fb9;hb=7f2d286fd3882217b7fba9aee7d1c5618f3bc89e;hpb=cf58cf0756669ae18adb68155540bf5cf3f437a4

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 619c8bd75..789308c4a 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7734,6 +7734,7 @@ If BACKWARD, the previous article is selected instead of the next."
 	  (point
 	   (with-current-buffer gnus-group-buffer
 	     (point)))
+	  (current-summary (current-buffer))
 	  (group
 	   (if (eq gnus-keep-same-level 'best)
 	       (gnus-summary-best-group gnus-newsgroup-name)
@@ -7758,6 +7759,10 @@ If BACKWARD, the previous article is selected instead of the next."
 	  (gnus-summary-next-group nil group backward)))
        (t
 	(when (gnus-key-press-event-p last-input-event)
+	  ;; Somehow or other, we may now have selected a different
+	  ;; window.  Make point go back to the summary buffer.
+	  (when (eq current-summary (current-buffer))
+	    (select-window (get-buffer-window current-summary)))
 	  (gnus-summary-walk-group-buffer
 	   gnus-newsgroup-name cmd unread backward point))))))))