(gnus-get-unread-articles): Check server before scanning.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 2b7d413..80f0016 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1564,6 +1564,7 @@ newsgroup."
       (let* ((mg (pop retrievegroups))
             (method (or (car mg) gnus-select-method))
             (groups (cdr mg)))
+       (gnus-check-server method)
        ;; Request that the backend scan its incoming messages.
        (when (gnus-check-backend-function 'request-scan (car method))
          (gnus-request-scan nil method))