# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1109717043 0
# Node ID 816703abc6375591ffb8119bcc0a1d8fb0b0b643
# Parent  ec7a860cdd572bcd75a3b3ec82f88b7d73b4b0a0
(gnus-summary-exit): Undo last change and fix it in a more conservative way.

diff -r ec7a860cdd57 -r 816703abc637 lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Tue Mar 01 16:01:05 2005 +0000
+++ b/lisp/gnus/gnus-sum.el	Tue Mar 01 22:44:03 2005 +0000
@@ -6680,11 +6680,13 @@
       (set-buffer gnus-group-buffer)
       (if quit-config
 	  (gnus-handle-ephemeral-exit quit-config)
+	(goto-char group-point)
+	;; If gnus-group-buffer is already displayed, make sure we also move
+	;; the cursor in the window that displays it.
+	(let ((win (get-buffer-window (current-buffer) 0)))
+	  (if win (set-window-point win (point))))
 	(unless leave-hidden
-	  (gnus-configure-windows 'group 'force))
-	;; Move point after calling gnus-configure-windows to make sure it
-	;; moves the window's point as well.
-	(goto-char group-point))
+	  (gnus-configure-windows 'group 'force)))
       ;; Clear the current group name.
       (unless quit-config
 	(setq gnus-newsgroup-name nil)))))