(nnrss-read-group-data): Initialize nnrss-group-hashtb

if necessary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5a557e..1660f69 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-10  Jesper Harder  <harder@ifa.au.dk>
+
+       * nnrss.el (nnrss-read-group-data): Initialize nnrss-group-hashtb
+       if necessary.
+
 2004-02-09  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam-report.el (spam-report-unplug-agent)

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 3368bb1..6735eda 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -320,7 +320,9 @@ ARTICLE is the article number of the current headline.")
 
 (defun nnrss-read-group-data (group server)
   (setq nnrss-group-data nil)
-  (clrhash nnrss-group-hashtb)
+  (if (hash-table-p nnrss-group-hashtb)
+      (clrhash nnrss-group-hashtb)
+    (setq nnrss-group-hashtb (make-hash-table :test 'equal)))
   (let ((pair (assoc group nnrss-server-data)))
     (setq nnrss-group-max (or (cadr pair) 0))
     (setq nnrss-group-min (+ nnrss-group-max 1)))