From: yamaoka <yamaoka>
Date: Tue, 18 Jan 2000 06:13:05 +0000 (+0000)
Subject: (gnus-summary-exit): Don't recenter the group buffer if it is called
X-Git-Tag: t-gnus-6_14_1-03~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5f4a8cc9fb7863d6dcb84a0d198369319b7394f0;p=elisp%2Fgnus.git-

(gnus-summary-exit): Don't recenter the group buffer if it is called
non-interactively.
---

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