(gnus-get-unread-articles-in-group): Make sure

the entry for the group exists before we alter it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29d2e4a..41e04bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-start.el (gnus-get-unread-articles-in-group): Make sure
+       the entry for the group exists before we alter it.
+
 2003-02-22  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * gnus-agent.el (gnus-agent-get-undownloaded-list): Sort

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 0d3e7b0..f5d6c25 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1553,7 +1553,8 @@ newsgroup."
          (setq range (cdr range)))
        (setq num (max 0 (- (cdr active) num)))))
       ;; Set the number of unread articles.
-      (when info
+      (when (and info
+                (gnus-gethash (gnus-info-group info) gnus-newsrc-hashtb))
        (setcar (gnus-gethash (gnus-info-group info) gnus-newsrc-hashtb) num))
       num)))