Mercurial > emacs

changeset 39322:06ab5586085a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-server-insert-server-line): Don't let an error querying a backend abort the whole process.
author Miles Bader <miles@gnu.org>
date Tue, 18 Sep 2001 01:04:37 +0000
parents 71d86ec38224
children b5dd113d61d1
files lisp/gnus/gnus-srvr.el
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el	Mon Sep 17 16:08:14 2001 +0000
+++ b/lisp/gnus/gnus-srvr.el	Tue Sep 18 01:04:37 2001 +0000
@@ -174,13 +174,15 @@
   (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)