From 7187e3e3739ad74f2a4d45414021965ab2336aed Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 3 Mar 2005 11:04:48 +0000 Subject: [PATCH] Synch to No Gnus 200503031032. --- lisp/ChangeLog | 9 +++++++-- lisp/gnus-sum.el | 8 +++++--- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2c93ab5..7d68c7b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-03-01 Stefan Monnier + + * gnus-sum.el (gnus-summary-exit): Undo last change and fix it in + a more conservative way. + 2005-02-26 Stefan Monnier * gnus-sum.el (gnus-summary-exit): Move point after displaying the @@ -9,8 +14,8 @@ `mm-dissect-multipart' and receive the from field as an (optional) argument from `mm-dissect-multipart'. (mm-dissect-multipart): Receive the from field as an argument and - pass it on when we call `mm-dissect-buffer' on MIME parts. Fixes - verification/decryption of signed/encrypted MIME parts. + pass it on when we call `mm-dissect-buffer' on MIME parts. + Fixes verification/decryption of signed/encrypted MIME parts. 2005-02-25 Teodor Zlatanov diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 8ca471e..79dc604 100644 --- 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) -- 1.7.10.4