From 1c37be9dc09e2887820fe3d7b2c5f0e0d65a351a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 24 Mar 2003 03:09:50 +0000 Subject: [PATCH] Synch to Oort Gnus 200303240302. --- lisp/ChangeLog | 3 +++ lisp/gnus-int.el | 10 +++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 31ad817..e7fbf05 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,9 @@ not currently agentized. (gnus-agent-expire): Use gnus-agent-expire-unagentized-dirs. + * gnus-int.el (gnus-open-server): Report backend errors in + condition handler. + 2003-03-23 Simon Josefsson * message.el (message-idna-to-ascii-rhs-1): Don't continue outside diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 3d6c735..835cb91 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -203,13 +203,17 @@ If it is down, start it up (again)." nil) ;; Open the server. (let ((result - (condition-case () + (condition-case err (funcall (gnus-get-function gnus-command-method 'open-server) (nth 1 gnus-command-method) (nthcdr 2 gnus-command-method)) - (error nil) + (error + (gnus-message 1 (format + "Unable to open server due to: %s" + (error-message-string err))) + nil) (quit - (message "Quit trying to open server") + (gnus-message 1 "Quit trying to open server") nil)))) ;; If this hasn't been opened before, we add it to the list. (unless elem -- 1.7.10.4