From: yamaoka <yamaoka>
Date: Tue, 18 Jan 2000 05:39:16 +0000 (+0000)
Subject: (gnus-summary-exit): Recenter the group buffer if the point is out of view.
X-Git-Tag: t-gnus-6_14_1-02~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b1848c6026ca5b1d6d33918f557f3e019c523e7a;p=elisp%2Fgnus.git-

(gnus-summary-exit): Recenter the group buffer if the point is out of view.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 01ad746..adfbaba 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5440,7 +5440,9 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (if (not quit-config)
 	  (progn
 	    (goto-char group-point)
-	    (gnus-configure-windows 'group 'force))
+	    (gnus-configure-windows 'group 'force)
+	    (unless (pos-visible-in-window-p)
+	      (recenter)))
 	(gnus-handle-ephemeral-exit quit-config))
       ;; Clear the current group name.
       (unless quit-config