[Emacs-diffs] /srv/bzr/emacs/trunk r101397: 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.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101397 [merge]
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2010-09-09 06:16:12 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-start.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-09 00:08:06 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-09 06:15:13 +0000
@@ -1,3 +1,9 @@
+2010-09-09  Katsumi Yamaoka  <address@hidden>
+
+       * 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  <address@hidden>
 
        * gnus-html.el (gnus-html-show-alt-text): New command.

=== modified file 'lisp/gnus/gnus-start.el'
--- a/lisp/gnus/gnus-start.el   2010-09-07 00:00:56 +0000
+++ b/lisp/gnus/gnus-start.el   2010-09-09 06:15:13 +0000
@@ -1692,7 +1692,7 @@
         (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 @@
        (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