From 98e96bcbdc4ed5262d307c36be99518a5da04d16 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Mon, 17 Sep 2001 13:01:25 +0000 Subject: [PATCH] 2001-09-17 Miles Bader MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 * gnus-srvr.el (gnus-server-mode): Fix bogus fontification. From Gerd M,Av(Bllmann . --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-srvr.el | 18 ++++++++++-------- 2 files changed, 20 insertions(+), 8 deletions(-) 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 + + * 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 + + * gnus-srvr.el (gnus-server-mode): Fix bogus fontification. + From Gerd M,Av(Bllmann . + 2001-09-17 Didier Verna * 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. \\ 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)) -- 2.25.1