Protect against unactive groups.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 394635e..7d29012 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-01-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-group.el (gnus-number-of-unseen-articles-in-group):
+       Protect against unactive groups.
+
        * message.el (message-check-news-header-syntax): Check long
        header lines.
        (message-check-news-header-syntax): Update `start'.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index af72a42..b68ae37 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1314,10 +1314,12 @@ if it is a string, only list groups matching REGEXP."
         (marked (gnus-info-marks info))
         (seen (cdr (assq 'seen marked)))
         (active (gnus-active group)))
-    (length (gnus-uncompress-range
-            (gnus-range-difference
-             (gnus-range-difference (list active) (gnus-info-read info))
-             seen)))))
+    (if (not active)
+       0
+      (length (gnus-uncompress-range
+              (gnus-range-difference
+               (gnus-range-difference (list active) (gnus-info-read info))
+               seen))))))
 
 (defun gnus-group-insert-group-line (gnus-tmp-group gnus-tmp-level
                                                    gnus-tmp-marked number