Mercurial > emacs

comparison lisp/gnus/gnus-srvr.el @ 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 8da06f1bcda8
children 0d8b17d428b5
comparison
equal deleted inserted replaced
39321:71d86ec38224 39322:06ab5586085a
172 172
173 (defun gnus-server-insert-server-line (gnus-tmp-name method) 173 (defun gnus-server-insert-server-line (gnus-tmp-name method)
174 (let* ((gnus-tmp-how (car method)) 174 (let* ((gnus-tmp-how (car method))
175 (gnus-tmp-where (nth 1 method)) 175 (gnus-tmp-where (nth 1 method))
176 (elem (assoc method gnus-opened-servers)) 176 (elem (assoc method gnus-opened-servers))
177 (gnus-tmp-status (cond ((eq (nth 1 elem) 'denied) 177 (gnus-tmp-status
178 "(denied)") 178 (if (eq (nth 1 elem) 'denied)
179 ((or (gnus-server-opened method) 179 "(denied)"
180 (eq (nth 1 elem) 'ok)) 180 (condition-case nil
181 "(opened)") 181 (if (or (gnus-server-opened method)
182 (t 182 (eq (nth 1 elem) 'ok))
183 "(closed)")))) 183 "(opened)"
184 "(closed)")
185 ((error) "(error)")))))
184 (beginning-of-line) 186 (beginning-of-line)
185 (gnus-add-text-properties 187 (gnus-add-text-properties
186 (point) 188 (point)
187 (prog1 (1+ (point)) 189 (prog1 (1+ (point))
188 ;; Insert the text. 190 ;; Insert the text.