* gnus-int.el (gnus-open-server): Make the "denied" message clearer

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efe1f39..82bcc9c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-int.el (gnus-open-server): Make the "denied" message clearer
+       (bug#9225).
+
 2011-09-10  Eli Zaretskii  <eliz@gnu.org>
 
        Add autoload cookies for functions used by sendmail.el.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 5cc0175..bf83fd7 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -4069,7 +4069,7 @@ If DONT-SCAN is non-nil, scan non-activated groups as well."
            (gnus-group-update-group group nil t))
        (if (eq (gnus-server-status (gnus-find-method-for-group group))
                'denied)
-           (gnus-error 3 "Server denied access")
+           (gnus-error 3 "Server previously determined to be down; not retrying")
          (gnus-error 3 "%s error: %s" group (gnus-status-message group)))))
     (when beg
       (goto-char beg))

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index b9b191c..9877736 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -255,7 +255,8 @@ If it is down, start it up (again)."
     ;; If this method was previously denied, we just return nil.
     (if (eq (nth 1 elem) 'denied)
        (progn
-         (gnus-message 1 "Denied server %s" server)
+         (gnus-message
+          1 "Server %s previously determined to be down; not retrying" server)
          nil)
       ;; Open the server.
       (let* ((open-server-function