[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el

[Stefan Monnier]

Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.60 emacs/lisp/gnus/gnus-sum.el:1.61
*** emacs/lisp/gnus/gnus-sum.el:1.60    Sat Feb 26 05:33:56 2005
--- emacs/lisp/gnus/gnus-sum.el Tue Mar  1 22:44:03 2005
***************
*** 6680,6690 ****
        (set-buffer gnus-group-buffer)
        (if quit-config
          (gnus-handle-ephemeral-exit quit-config)
        (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))
        ;; Clear the current group name.
        (unless quit-config
        (setq gnus-newsgroup-name nil)))))
--- 6680,6692 ----
        (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)))
        ;; Clear the current group name.
        (unless quit-config
        (setq gnus-newsgroup-name nil)))))