diff options
| author | Miles Bader <miles@gnu.org> | 2001-09-18 01:04:37 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2001-09-18 01:04:37 +0000 |
| commit | b52520d35ed76f3b3480de074e9335484a518b9e (patch) | |
| tree | de704315f6b18a58ae541243202ac962b7b5b0da /lisp/gnus/gnus-srvr.el | |
| parent | bae51cf7464c99133a583047e253710e28ef672a (diff) | |
| download | emacs-b52520d35ed76f3b3480de074e9335484a518b9e.tar.gz | |
(gnus-server-insert-server-line): Don't let an error querying a backend
abort the whole process.
Diffstat (limited to 'lisp/gnus/gnus-srvr.el')
| -rw-r--r-- | lisp/gnus/gnus-srvr.el | 16 |
1 files 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) |