(gnus-check-server): Say what the error was when opening failed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9e6cf0..2994b7c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-int.el (gnus-check-server): Say what the error was when opening
+       failed.
+
        * nnimap.el (nnimap-wait-for-response): Search further when we're not
        using streaming.
 

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index e5fa689..84224b2 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -181,10 +181,14 @@ If it is down, start it up (again)."
       (prog1
          (setq result (gnus-open-server method))
        (unless silent
-         (gnus-message 5 "Opening %s server%s...%s" (car method)
-                       (if (equal (nth 1 method) "") ""
-                         (format " on %s" (nth 1 method)))
-                       (if result "done" "failed")))))))
+         (gnus-message
+          (if result 5 3)
+          "Opening %s server%s...%s" (car method)
+          (if (equal (nth 1 method) "") ""
+            (format " on %s" (nth 1 method)))
+          (if result
+              "done"
+            (format "failed: %s" (nnheader-get-report (car method))))))))))
 
 (defun gnus-get-function (method function &optional noerror)
   "Return a function symbol based on METHOD and FUNCTION."