From: Kevin Greiner Date: Fri, 21 Mar 2003 07:17:33 +0000 (+0000) Subject: * gnus-int.el (gnus-open-server): Catch errors in backend's X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=00edca4ec2e270dfaf5167444d46181f77a0ca8d;p=gnus * gnus-int.el (gnus-open-server): Catch errors in backend's open-server method. Returns nil rather than crashing startup. --- diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index e89e9da02..7a6b1f856 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -49,7 +49,7 @@ server denied." :group 'gnus-start :type '(choice (const :tag "Ask" nil) (const :tag "Deny server" denied) - (const :tag "Unplugg Agent" offline))) + (const :tag "Unplug Agent" offline))) (defvar gnus-internal-registry-spool-current-method nil "The current method, for the registry.") @@ -206,6 +206,7 @@ If it is down, start it up (again)." (funcall (gnus-get-function gnus-command-method 'open-server) (nth 1 gnus-command-method) (nthcdr 2 gnus-command-method)) + (error nil) (quit (message "Quit trying to open server") nil))))