From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 17 Apr 2018 17:21:42 +0000 (+0200)
Subject: Place point consistently in the Gnus group buffer on exit
X-Git-Tag: emacs-27.0.90~5159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d5d23a9f69db81927ac802deb2ef7c5573bc6e9;p=emacs.git

Place point consistently in the Gnus group buffer on exit

* lisp/gnus/gnus-sum.el (gnus-summary-exit): Place point correctly
when exiting with `q' (and the like) from the article buffer when
only the article buffer is displayed (bug#31195).  This is
apparently yet another fall-out from the "preserve-visible-point-
in-windows" patches of yesteryear...
---

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index b68dfdf6b79..234d527cd10 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -7286,12 +7286,13 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (if quit-config
 	  (gnus-handle-ephemeral-exit quit-config)
 	(goto-char group-point)
+	(unless leave-hidden
+	  (gnus-configure-windows 'group 'force))
 	;; 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)))
+	  (goto-char group-point)
+	  (if win (set-window-point win (point)))))
 
       ;; If we have several article buffers, we kill them at exit.
       (unless single-article-buffer