From 7f2d286fd3882217b7fba9aee7d1c5618f3bc89e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 20 Feb 2011 18:00:04 -0800 Subject: [PATCH] Add a kludge to reselect the summary buffer before reading going to the next buffer. This avoids putting the point in the group buffer if you `C-g' the command. --- lisp/ChangeLog | 4 ++++ lisp/gnus-sum.el | 5 +++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 16e1fa335..dc5b50a06 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2011-02-21 Lars Ingebrigtsen + * gnus-sum.el (gnus-summary-next-article): Add a kludge to reselect the + summary buffer before reading going to the next buffer. This avoids + putting the point in the group buffer if you `C-g' the command. + * auth-source.el (auth-source-netrc-parse): Add an in-memory netrc cache (for now) to make ~/.authinfo.gpg files usable. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 619c8bd75..789308c4a 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -7734,6 +7734,7 @@ If BACKWARD, the previous article is selected instead of the next." (point (with-current-buffer gnus-group-buffer (point))) + (current-summary (current-buffer)) (group (if (eq gnus-keep-same-level 'best) (gnus-summary-best-group gnus-newsgroup-name) @@ -7758,6 +7759,10 @@ If BACKWARD, the previous article is selected instead of the next." (gnus-summary-next-group nil group backward))) (t (when (gnus-key-press-event-p last-input-event) + ;; Somehow or other, we may now have selected a different + ;; window. Make point go back to the summary buffer. + (when (eq current-summary (current-buffer)) + (select-window (get-buffer-window current-summary))) (gnus-summary-walk-group-buffer gnus-newsgroup-name cmd unread backward point)))))))) -- 2.25.1