From e8a91af2a77b8be790b2be2469ac0c21b8077513 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 14 Feb 2003 15:01:43 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-agent.el | 6 +++++- lisp/gnus-sum.el | 8 ++++++-- 3 files changed, 21 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c28c2a6..555504a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2003-02-14 Kai Gro,A_(Bjohann + + * gnus-agent.el (gnus-agent-group-make-menu-bar): Include all + commands. + * gnus-sum.el: Small change from Frank Weinberg + : + (gnus-auto-center-group): New variable. + (gnus-summary-read-group-1): Use it. + (gnus-summary-next-group): Fix docstring. + 2003-02-13 Katsumi Yamaoka * gnus-util.el (gnus-faces-at): Simplify. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index e6060fd..513de03 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -338,10 +338,14 @@ node `(gnus)Server Buffer'.") ["Toggle plugged" gnus-agent-toggle-plugged t] ["Toggle group plugged" gnus-agent-toggle-group-plugged t] ["List categories" gnus-enter-category-buffer t] + ["Add (current) group to category" gnus-agent-add-group t] + ["Remove (current) group from category" gnus-agent-remove-group t] ["Send queue" gnus-group-send-queue gnus-plugged] ("Fetch" ["All" gnus-agent-fetch-session gnus-plugged] - ["Group" gnus-agent-fetch-group gnus-plugged]))))) + ["Group" gnus-agent-fetch-group gnus-plugged]) + ["Synchronize flags" gnus-agent-synchronize-flags t] + )))) (defvar gnus-agent-summary-mode-map (make-sparse-keymap)) (gnus-define-keys gnus-agent-summary-mode-map diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 9ef0aad..32bdb0a 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -379,6 +379,9 @@ and non-`vertical', do both horizontal and vertical recentering." (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 @@ -3555,7 +3558,8 @@ If SHOW-ALL is non-nil, already read articles are also listed." (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))) @@ -6682,7 +6686,7 @@ in." (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. -- 1.7.10.4