2001-08-04 Simon Josefsson <jas@extundo.com>

	* gnus-cache.el (gnus-cache-possibly-update-active): Create active
	file if it doesn't exist (by calling gnus-cache-read-active).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d17060..79edecc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-04  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-cache.el (gnus-cache-possibly-update-active): Create active
+       file if it doesn't exist (by calling gnus-cache-read-active).
+
 2001-08-04  Simon Josefsson  <jas@extundo.com>
 
        * gnus-cache.el (gnus-cache-possibly-enter-article): Revert.

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 1a47847..4150858 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -610,13 +610,14 @@ $ emacs -batch -l ~/.emacs -l gnus -f gnus-jog-cache"
 The update is performed if ACTIVE contains a higher or lower bound
 than the current."
   (let ((lower t) (higher t))
-    (when gnus-cache-active-hashtb
-      (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb)))
-        (when cache-active
-          (unless (< (car active) (car cache-active))
-            (setq lower nil))
-          (unless (> (cdr active) (cdr cache-active))
-            (setq higher nil)))))
+    (if gnus-cache-active-hashtb
+       (let ((cache-active (gnus-gethash group gnus-cache-active-hashtb)))
+         (when cache-active
+           (unless (< (car active) (car cache-active))
+             (setq lower nil))
+           (unless (> (cdr active) (cdr cache-active))
+             (setq higher nil))))
+      (gnus-cache-read-active))
     (when lower
       (gnus-cache-update-active group (car active) t))
     (when higher