Synch wo^Hith Oort Gnus.

diff --git a/GNUS-NEWS b/GNUS-NEWS
index 18d33ba..501f77e 100644 (file)
--- 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-08-26  Simon Josefsson  <jas@extundo.com>
+
+       * 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) <kose@meadowy.org>.
+
 2002-08-26  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * 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 (file)
--- 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))