gnus-start.el (gnus-get-unread-articles): Set the number of unread articles of every unchecked group to t, which means unknown since the server has never been opened.

2 files changed, 19 insertions, 7 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f518536685d..d810df8c7e9 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-09  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus-start.el (gnus-get-unread-articles): Set the number of unread
+        articles of every unchecked group to t, which means unknown since the
+        server has never been opened.
+
 2010-09-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * gnus-html.el (gnus-html-show-alt-text): New command.
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 2af55fc7a86..891777d864b 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -1692,7 +1692,7 @@ If SCAN, request a scan of that group as well."
          (gnus-agent-article-local-times 0)
          (archive-method (gnus-server-to-method "archive"))
          infos info group active method cmethod
-         method-type method-group-list)
+         method-type method-group-list entry)
     (gnus-message 6 "Checking new news...")
 
     (while newsrc
@@ -1737,12 +1737,18 @@ If SCAN, request a scan of that group as well."
         (push (setq method-group-list (list method method-type nil))
               type-cache))
       ;; Only add groups that need updating.
-      (when (<= (gnus-info-level info)
-                (if (eq (cadr method-group-list) 'foreign)
-                    foreign-level
-                  alevel))
-        (setcar (nthcdr 2 method-group-list)
-                (cons info (nth 2 method-group-list)))))
+      (if (<= (gnus-info-level info)
+              (if (eq (cadr method-group-list) 'foreign)
+                  foreign-level
+                alevel))
+          (setcar (nthcdr 2 method-group-list)
+                  (cons info (nth 2 method-group-list)))
+        ;; The group is inactive, so we nix out the number of unread articles.
+        ;; It leads `(gnus-group-unread group)' to return t.  See also
+        ;; `gnus-group-prepare-flat'.
+        (unless active
+          (when (setq entry (gnus-group-entry group))
+            (setcar entry t)))))
 
     ;; Sort the methods based so that the primary and secondary
     ;; methods come first.  This is done for legacy reasons to try to