* gnus-int.el (gnus-open-server): Report backend errors in

	condition handler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31ad817..e7fbf05 100644 (file)
--- 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  <jas@extundo.com>
 
        * 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 7a6b1f8..8c0146c 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -202,13 +202,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