From 13efce4046b77fc7cd9a4fb00e0f05fbedfe39ce Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 18 Sep 2001 01:04:37 +0000 Subject: [PATCH] (gnus-server-insert-server-line): Don't let an error querying a backend abort the whole process. --- lisp/gnus/gnus-srvr.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 987482b465b..5204db1bb8d 100644 --- 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) -- 2.39.2