* gnus-start.el (gnus-get-unread-articles): Slight cleanup.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b7ba4b9..85fa440 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-start.el (gnus-get-unread-articles): Slight cleanup.
+
 2011-04-12  Stig Sandbeck Mathisen  <ssm@fnord.no>  (tiny change)
 
        * gnus-sum.el (gnus-summary-select-article-buffer): Doc fix.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index d9d218c..650b94b 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1724,8 +1724,7 @@ If SCAN, request a scan of that group as well."
     (dolist (elem type-cache)
       (destructuring-bind (method method-type infos early-data) elem
        (when (and method infos
-                  (not (eq (gnus-server-status method)
-                           'denied)))
+                  (gnus-method-denied-p method))
          (let ((updatep (gnus-check-backend-function
                          'request-update-info (car method))))
            ;; See if any of the groups from this method require updating.