Index: lisp/gnus-agent.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v
retrieving revision 6.73
diff -u -r6.73 gnus-agent.el
--- lisp/gnus-agent.el	2002/06/16 21:13:49	6.73
+++ lisp/gnus-agent.el	2002/06/17 09:28:32
@@ -628,10 +628,7 @@
 (defun gnus-agent-read-servers ()
   "Read the alist of covered servers."
   (setq gnus-agent-covered-methods
-	(mapcar (lambda (m)
-		  (gnus-server-get-method
-		   nil
-		   (or m "native")))
+	(mapcar 'gnus-server-get-method
 		(gnus-agent-read-file
 		 (nnheader-concat gnus-agent-directory "lib/servers")))))
 
@@ -641,7 +638,16 @@
   (let ((coding-system-for-write nnheader-file-coding-system)
 	(file-name-coding-system nnmail-pathname-coding-system))
     (with-temp-file (nnheader-concat gnus-agent-directory "lib/servers")
-      (prin1 (mapcar 'gnus-method-simplify gnus-agent-covered-methods)
+      (prin1 (mapcar (lambda (m)
+		       (cond ((stringp m)
+			      m)
+			     ((or 
+			       (gnus-native-method-p m) 
+			       (gnus-secondary-method-p m))
+			      (format "%s:%s" (nth 0 m) (nth 1 m)))
+			     (t
+			      m)))
+		     gnus-agent-covered-methods)
 	     (current-buffer)))))
 
 ;;;