Index: lisp/gnus-agent.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-agent.el,v
retrieving revision 6.72
diff -u -r6.72 gnus-agent.el
--- lisp/gnus-agent.el	2002/05/29 13:25:56	6.72
+++ lisp/gnus-agent.el	2002/06/14 16:56:15
@@ -627,17 +627,23 @@
 
 (defun gnus-agent-read-servers ()
   "Read the alist of covered servers."
-  (setq gnus-agent-covered-methods
-	(gnus-agent-read-file
-	 (nnheader-concat gnus-agent-directory "lib/servers"))))
+  (dolist (method (gnus-agent-read-file 
+		   (nnheader-concat gnus-agent-directory "lib/servers"))
+		  gnus-agent-covered-methods)
+    (unless method (setq method "native"))
+    (add-to-list 'gnus-agent-covered-methods 
+		 (gnus-server-get-method nil method))))
 
 (defun gnus-agent-write-servers ()
   "Write the alist of covered servers."
   (gnus-make-directory (nnheader-concat gnus-agent-directory "lib"))
   (let ((coding-system-for-write nnheader-file-coding-system)
-	(file-name-coding-system nnmail-pathname-coding-system))
+	(file-name-coding-system nnmail-pathname-coding-system)
+	(methods))
     (with-temp-file (nnheader-concat gnus-agent-directory "lib/servers")
-      (prin1 gnus-agent-covered-methods (current-buffer)))))
+      (prin1 (dolist (method gnus-agent-covered-methods methods)
+	       (add-to-list 'methods (gnus-method-simplify method)))
+	     (current-buffer)))))
 
 ;;;
 ;;; Summary commands