2002-10-05 Simon Josefsson <jas@extundo.com>
+ * gnus-agent.el (gnus-agent-read-servers): If getting method from
+ a named server fails, ignore the server.
+
* mml1991.el (mml1991-pgg-sign): Do QP.
* pgg-gpg.el (pgg-gpg-encrypt-region): Make signencrypt really
(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")))
- (gnus-agent-read-file
- (nnheader-concat gnus-agent-directory "lib/servers")))))
+ (mapcar (lambda (m)
+ (let ((server (gnus-server-get-method
+ nil
+ (or m "native"))))
+ (if server
+ (push server gnus-agent-covered-methods)
+ (message "Ignoring disappeared server `%s'" m)
+ (sit-for 1))))
+ (gnus-agent-read-file
+ (nnheader-concat gnus-agent-directory "lib/servers"))))
(defun gnus-agent-write-servers ()
"Write the alist of covered servers."