From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Mon, 17 Sep 2001 13:01:25 +0000 (+0000)
Subject: 2001-09-17  Miles Bader  <miles@gnu.org>
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=98e96bcbdc4ed5262d307c36be99518a5da04d16

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,Av(Bllmann <gerd@gnu.org>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b8dffb92..5921edbb6 100644
--- 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,Av(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 6137fdb00..74c28a909 100644
--- 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))