From: Stefan Monnier Date: Tue, 1 Mar 2005 22:44:46 +0000 (+0000) Subject: (gnus-summary-exit): Undo last change and fix it in a more conservative way. X-Git-Tag: ttn-vms-21-2-B4~2045 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e90f2b99b5143090a096b90794284d33d8b8c12;p=emacs.git (gnus-summary-exit): Undo last change and fix it in a more conservative way. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7ade8548764..11b93e2df0c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,11 +1,16 @@ +2005-03-01 Stefan Monnier + + * gnus-sum.el (gnus-summary-exit): Undo last change and fix it in + a more conservative way. + 2005-02-27 Arne J,Ax(Brgensen * mm-decode.el (mm-dissect-buffer): Pass the from field on to `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-26 Stefan Monnier diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 73ac963bd3b..ea8f7e063fe 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -6680,11 +6680,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)) + (gnus-configure-windows 'group 'force))) ;; Clear the current group name. (unless quit-config (setq gnus-newsgroup-name nil)))))