From: yamaoka <yamaoka>
Date: Thu, 27 Jan 2000 23:23:46 +0000 (+0000)
Subject: (gnus-summary-exit): Recenter the group buffer without redisplaying if the
X-Git-Tag: t-gnus-6_14_1-05~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2a65ccfa4c444941c749e3b2b0be5867c824b553;p=elisp%2Fgnus.git-

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

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e62cf6b..6606d7f 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5442,9 +5442,13 @@ If FORCE (the prefix), also save the .newsrc file(s)."
 	  (progn
 	    (goto-char group-point)
 	    (gnus-configure-windows 'group 'force)
-	    (when (and (interactive-p)
-		       (not (pos-visible-in-window-p)))
-	      (recenter)))
+	    (unless (pos-visible-in-window-p)
+	      (forward-line (/ (static-if (featurep 'xemacs)
+				   (window-displayed-height)
+				 (1- (window-height)))
+			       -2))
+	      (set-window-start (selected-window) (point))
+	      (goto-char group-point)))
 	(gnus-handle-ephemeral-exit quit-config))
       ;; Clear the current group name.
       (unless quit-config