2001-09-17 Miles Bader <miles@gnu.org>

	* gnus-srvr.el (gnus-server-insert-server-line): Don't let an
	error querying a backend abort the whole process.

2001-09-17 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-srvr.el (gnus-server-mode): Fix bogus fontification.
	From Gerd M\e,Av\e(Bllmann <gerd@gnu.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b8dffb..5921edb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2001-09-17  Miles Bader  <miles@gnu.org>
+
+       * gnus-srvr.el (gnus-server-insert-server-line): Don't let an
+       error querying a backend abort the whole process.
+
+2001-09-17 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-srvr.el (gnus-server-mode): Fix bogus fontification.
+       From Gerd M\e,Av\e(Bllmann <gerd@gnu.org>.
+
 2001-09-17  Didier Verna  <didier@xemacs.org>
 
        * nndiary.el: version 0.2-b14.

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 6137fdb..74c28a9 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -221,7 +221,7 @@ The following specs are understood:
 All normal editing commands are switched off.
 \\<gnus-server-mode-map>
 For more in-depth information on this mode, read the manual
-(`\\[gnus-info-find-node]').
+\(`\\[gnus-info-find-node]').
 
 The following commands are available:
 
@@ -249,13 +249,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)"))))
         (gnus-tmp-agent (if (and gnus-agent
                                  (member method
                                          gnus-agent-covered-methods))