From: Frank Weinberg <frank@usenet-rundfahrt.de>
Subject: [Patch] Auto-centering of group-buffer
Date: Thu, 13 Feb 2003 20:01:14 +0100 [thread overview]
Message-ID: <4452@msgid.usenet-rundfahrt.de> (raw)
[-- 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.
next reply other threads:[~2003-02-13 19:01 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-02-13 19:01 Frank Weinberg [this message]
2003-02-14 12:54 ` Kai Großjohann
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=4452@msgid.usenet-rundfahrt.de \
--to=frank@usenet-rundfahrt.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).