[gnus git] branch master updated: =1= Add a kludge to reselect the summary buffer before reading going to the next buffer.

       via  7f2d286fd3882217b7fba9aee7d1c5618f3bc89e (commit)
      from  cf58cf0756669ae18adb68155540bf5cf3f437a4 (commit)


- Log -----------------------------------------------------------------
commit 7f2d286fd3882217b7fba9aee7d1c5618f3bc89e
Author: Lars Ingebrigtsen <[email protected]>
Date:   Sun Feb 20 18:00:04 2011 -0800

    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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16e1fa3..dc5b50a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-02-21  Lars Ingebrigtsen  <[email protected]>
 
+	* 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 619c8bd..789308c 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))))))))
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    4 ++++
 lisp/gnus-sum.el |    5 +++++
 2 files changed, 9 insertions(+), 0 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project