[Patch] Auto-centering of group-buffer

[Patch] Auto-centering of group-buffer

[Frank Weinberg]

[-- Attachment #1: Type: text/plain, Size: 748 bytes --]

Hi,

I'm using a window-setup with the group-buffer always visible and found it
annoying that Gnus scrolled down the buffer as soon as point reached the
lower half of the window, even if the whole buffer fits into the window.
So I introduced a new variable gnus-auto-center-group which allows to turn
off this feature. The default of t leaves the old behaviour unchanged.

I also encountered that the parameter TARGET-GROUP was called NEXT-GROUP in
the docstring of gnus-summary-next-group - fixed it.

Suggested ChangeLog entry:

2003-02-13  Frank Weinberg  <frank@usenet-rundfahrt.de>

       * gnus-sum.el (gnus-auto-center-group): new variable
       (gnus-summary-read-group-1): use it
       (gnus-summary-next-group): docstring fixed

Frank

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-sum.el.patch --]
[-- Type: text/x-patch, Size: 1224 bytes --]

--- gnus-sum.el.orig	Thu Feb 13 18:12:38 2003
+++ gnus-sum.el	Thu Feb 13 19:25:01 2003
@@ -360,6 +360,9 @@
 		 (integer :tag "height")
 		 (sexp :menu-tag "both" t)))
 
+(defvar gnus-auto-center-group t
+  "*If non-nil, always center the group buffer.")
+
 (defcustom gnus-show-all-headers nil
   "*If non-nil, don't hide any headers."
   :group 'gnus-article-hiding
@@ -3533,7 +3536,8 @@
 	  (gnus-summary-position-point)
 	  (gnus-configure-windows 'summary 'force)
 	  (gnus-set-mode-line 'summary))
-	(when (get-buffer-window gnus-group-buffer t)
+	(when (and gnus-auto-center-group
+		   (get-buffer-window gnus-group-buffer t))
 	  ;; Gotta use windows, because recenter does weird stuff if
 	  ;; the current buffer ain't the displayed window.
 	  (let ((owin (selected-window)))
@@ -6656,7 +6660,7 @@
 (defun gnus-summary-next-group (&optional no-article target-group backward)
   "Exit current newsgroup and then select next unread newsgroup.
 If prefix argument NO-ARTICLE is non-nil, no article is selected
-initially.  If NEXT-GROUP, go to this group.  If BACKWARD, go to
+initially.  If TARGET-GROUP, go to this group.  If BACKWARD, go to
 previous group instead."
   (interactive "P")
   ;; Stop pre-fetching.

Re: [Patch] Auto-centering of group-buffer

[Kai Großjohann]

Thank you.  I've applied the patch, but the commit is still in progress.
-- 
A turnip curses Elvis