(gnus-server-insert-server-line): Don't let an error querying a backend

abort the whole process.

diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index 987482b465ba6a68ff93ce9a1f8deb1da73eb3fa..5204db1bb8dd9c06d461cf43b4df38cadf68a921 100644 (file)
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -174,13 +174,15 @@ The following commands are available:
   (let* ((gnus-tmp-how (car method))
         (gnus-tmp-where (nth 1 method))
         (elem (assoc method gnus-opened-servers))
-        (gnus-tmp-status (cond ((eq (nth 1 elem) 'denied)
-                                "(denied)")
-                               ((or (gnus-server-opened method)
-                                    (eq (nth 1 elem) 'ok))
-                                "(opened)")
-                               (t
-                                "(closed)"))))
+        (gnus-tmp-status
+         (if (eq (nth 1 elem) 'denied)
+             "(denied)"
+           (condition-case nil
+               (if (or (gnus-server-opened method)
+                       (eq (nth 1 elem) 'ok))
+                   "(opened)"
+                 "(closed)")
+             ((error) "(error)")))))
     (beginning-of-line)
     (gnus-add-text-properties
      (point)