From 8fe9fb6621ebe271edc72ed991b1b4e115891a4b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 26 Aug 2002 22:21:14 +0000 Subject: [PATCH] Synch wo^Hith Oort Gnus. --- GNUS-NEWS | 6 +++++- lisp/ChangeLog | 7 +++++++ lisp/gnus-agent.el | 15 ++++++++++++++- 3 files changed, 26 insertions(+), 2 deletions(-) diff --git a/GNUS-NEWS b/GNUS-NEWS index 18d33ba..501f77e 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -16,7 +16,11 @@ servers by using `J a' in the server buffer). Gnus will not start to download articles unless you instruct it to do so, though, by using e.g. J u or J s from the group buffer. Revert to the old behaviour with `(setq gnus-agent nil)'. Note that putting (gnus-agentize) in -~/.gnus is not needed any more. +~/.gnus is not needed any more. Now, by default all nntp and nnimap +servers from gnus-select-method and gnus-secondary-select-method are +agentized by default (earlier only the server in gnus-select-method +was agentized). You can view and change which servers should be +agentized in the Server Buffer. ** gnus-summary-line-format diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b3d3532..440354d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-08-26 Simon Josefsson + + * gnus-agent.el (gnus-agent-auto-agentize-methods): New variable. + (gnus-agentize): Auto agentize all nntp and nnimap groups. + (gnus-agent-possibly-save-gcc): Autoload. + Suggested by (KOSEKI Yoshinori) . + 2002-08-26 Katsumi Yamaoka * gnus.el (gnus-other-frame-function): New user option. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index b864b27..b69e845 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -169,6 +169,11 @@ If this is `ask' the hook will query the user." (defvar gnus-agent-file-coding-system 'raw-text) (defvar gnus-agent-file-loading-cache nil) +(defvar gnus-agent-auto-agentize-methods '(nntp nnimap) + "Initially, all servers from these methods are agentized. +The user may remove or add servers using the Server buffer. See Info +node `(gnus)Server Buffer'.") + ;; Dynamic variables (defvar gnus-headers) (defvar gnus-score) @@ -431,7 +436,14 @@ minor mode in all Gnus buffers." message-send-mail-function) message-send-mail-real-function 'gnus-agent-send-mail)) (unless gnus-agent-covered-methods - (setq gnus-agent-covered-methods (list gnus-select-method)))) + (mapcar + (lambda (server) + (if (memq (car (gnus-server-to-method server)) + gnus-agent-auto-agentize-methods) + (setq gnus-agent-covered-methods + (cons (gnus-server-to-method server) + gnus-agent-covered-methods )))) + (append (list gnus-select-method) gnus-secondary-select-methods)))) (defun gnus-agent-queue-setup () "Make sure the queue group exists." @@ -488,6 +500,7 @@ be a select method." methods (cdr methods))) covered))) +;;;###autoload (defun gnus-agent-possibly-save-gcc () "Save GCC if Gnus is unplugged." (when (and (not gnus-plugged) (gnus-agent-any-covered-gcc)) -- 1.7.10.4