From 04ff38fb1cabe99c5a94fb8929b0141afbea3250 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 26 Feb 2005 05:33:56 +0000 Subject: [PATCH] (gnus-summary-exit): Move point after displaying the buffer, so it moves the window's cursor. --- lisp/gnus/ChangeLog | 16 ++++++++++------ lisp/gnus/gnus-sum.el | 8 +++++--- 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 + + * gnus-sum.el (gnus-summary-exit): Move point after displaying the + buffer, so it moves the window's cursor. + 2005-02-24 Reiner Steib - * 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 - * 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 @@ -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))))) -- 2.39.5