2001-09-08 Simon Josefsson <jas@extundo.com>

	* gnus-agent.el (gnus-agent-any-covered-gcc)
	(gnus-agent-add-server, gnus-agent-remove-server): Use
	gnus-agent-method-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 224bea1..81ef4fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-08  Simon Josefsson  <jas@extundo.com>
 
+       * gnus-agent.el (gnus-agent-any-covered-gcc)
+       (gnus-agent-add-server, gnus-agent-remove-server): Use
+       gnus-agent-method-p.
+
        * gnus-art.el (gnus-buttonized-mime-types): New variable.
        (gnus-unbuttonized-mime-type-p): Use it.
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index a89db5a..119fbaf 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -433,8 +433,7 @@ be a select method."
                                   gcc " ,")))))
           covered)
       (while (and (not covered) methods)
-       (setq covered
-             (member (car methods) gnus-agent-covered-methods)
+       (setq covered (gnus-agent-method-p (car methods))
              methods (cdr methods)))
       covered)))
 
@@ -566,7 +565,7 @@ be a select method."
   (unless server
     (error "No server on the current line"))
   (let ((method (gnus-server-get-method nil (gnus-server-server-name))))
-    (when (member method gnus-agent-covered-methods)
+    (when (gnus-agent-method-p method)
       (error "Server already in the agent program"))
     (push method gnus-agent-covered-methods)
     (gnus-server-update-server server)
@@ -579,7 +578,7 @@ be a select method."
   (unless server
     (error "No server on the current line"))
   (let ((method (gnus-server-get-method nil (gnus-server-server-name))))
-    (unless (member method gnus-agent-covered-methods)
+    (unless (gnus-agent-method-p method)
       (error "Server not in the agent program"))
     (setq gnus-agent-covered-methods
          (delete method gnus-agent-covered-methods))