(gnus-summary-exit): Move point after displaying the

buffer, so it moves the window's cursor.

2 files changed, 15 insertions, 9 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b994e6520db..79218857bbd 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,13 +1,17 @@
+2005-02-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * gnus-sum.el (gnus-summary-exit): Move point after displaying the
+        buffer, so it moves the window's cursor.
+
 2005-02-24  Reiner Steib  <Reiner.Steib@gmx.de>
 
-        * nnheader.el (nnheader-find-file-noselect): Added doc string.
+        * nnheader.el (nnheader-find-file-noselect): Add doc string.
 
         * nnfolder.el (nnfolder-read-folder): Use RAWFILE for
-        `nnheader-find-file-noselect' to avoid
-        `large-file-warning-threshold'.
+        `nnheader-find-file-noselect' to avoid `large-file-warning-threshold'.
 
-        * gnus-sum.el (gnus-summary-caesar-message): Apply
-        `gnus-treat-article' after rotation.
+        * gnus-sum.el (gnus-summary-caesar-message):
+        Apply `gnus-treat-article' after rotation.
 
         * gnus-group.el (gnus-group-clear-data): Mention process/prefix in
         doc string.
@@ -41,7 +45,7 @@
 
 2005-02-16  Teodor Zlatanov  <tzz@lifelogs.com>
 
-        * gnus-registry.el (gnus-registry-delete-group): minor bug fix
+        * gnus-registry.el (gnus-registry-delete-group): Minor bug fix.
 
         * gnus.el (gnus-install-group-spam-parameters): Doc fix.
 
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 7748a3529fa..73ac963bd3b 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -1,5 +1,5 @@
 ;;; gnus-sum.el --- summary mode commands for Gnus
-;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
 ;;        Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -6680,9 +6680,11 @@ 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)
         (unless leave-hidden
-          (gnus-configure-windows 'group 'force)))
+          (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)))))