From fab0774c3bb5d003d9b71a758e21c4f11db9dc05 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 26 Sep 2010 00:26:46 +0200 Subject: [PATCH] (gnus-check-server): Say what the error was when opening failed. --- lisp/ChangeLog | 3 +++ lisp/gnus-int.el | 12 ++++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b9e6cf0df..2994b7ca3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-25 Lars Magne Ingebrigtsen + * 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 e5fa689aa..84224b258 100644 --- 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." -- 2.34.1