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.
(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."