Synch to No Gnus 200503031032.

[elisp/gnus.git-] / lisp / gnus-sum.el

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8ca471e..79dc604 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6727,11 +6727,13 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (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)
        (unless (pos-visible-in-window-p)
          (forward-line (/ (static-if (featurep 'xemacs)
                               (window-displayed-height)