(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>.

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 aecd9f7..7c20a3b 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -157,6 +157,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)
@@ -419,7 +424,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."
@@ -476,6 +488,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))