mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-server-insert-server-line): Don't let an error querying a backend

Browse source 
abort the whole process.
This commit is contained in:
Miles Bader 2001-09-18 01:04:37 +00:00
parent e18c8b8d21
commit 13efce4046
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/gnus/gnus-srvr.el
View file

@ -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)