From: keiichi <keiichi>
Date: Fri, 19 Jul 2002 00:12:45 +0000 (+0000)
Subject: (gnus-agentize): Use `gnus-agent-covered-methods'.
X-Git-Tag: nana-gnus-7_1_0_32~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8ef935334c7c1229c4f56a15ace7e79a9e1fcb23;p=elisp%2Fgnus.git-

(gnus-agentize): Use `gnus-agent-covered-methods'.
(gnus-agent-covered-methods): New function.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index fae871e..b263406 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -335,7 +335,17 @@ agent minor mode in all Gnus buffers."
     (setq gnus-agent-send-mail-function message-send-mail-function
 	  message-send-mail-function 'gnus-agent-send-mail))
   (unless gnus-agent-covered-methods
-    (setq gnus-agent-covered-methods (list gnus-select-method))))
+    (setq gnus-agent-covered-methods (gnus-agent-covered-methods))))
+
+(defun gnus-agent-covered-methods ()
+  "Make a list of default covered methods."
+  (let ((methods (cons gnus-select-method gnus-secondary-select-methods))
+	method rest)
+    (while methods
+      (setq method (pop methods))
+      (when (get (car method) 'gnus-agent-covered-method)
+	(push method rest)))
+    rest))
 
 (defun gnus-agent-queue-setup ()
   "Make sure the queue group exists."