(gnus-get-unread-articles): Mark groups that have never been read as having

 never been checked.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 736335f..7ede77c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-start.el (gnus-get-unread-articles): Mark groups that have never
+       been read as having never been checked.
+
 2007-11-21  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-start.el (gnus-get-unread-articles): Don't prevent from checking

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 3075573..93b38fc 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1733,7 +1733,12 @@ If SCAN, request a scan of that group as well."
                   (when (fboundp (intern (concat (symbol-name (car method))
                                                  "-request-update-info")))
                     (inline (gnus-request-update-info info method))))
-              (if (and level (> (gnus-info-level info) level))
+              (if (and level
+                       ;; If `active' is nil that means the group has
+                       ;; never been read, the group should be marked
+                       ;; as having never been checked (see below).
+                       active
+                       (> (gnus-info-level info) level))
                   ;; Don't check groups of which levels are higher
                   ;; than the one that a user specified.
                   (setq active 'ignore))))