From: yamaoka <yamaoka>
Date: Wed, 11 Feb 2004 00:29:43 +0000 (+0000)
Subject: Synch to No Gnus 200402102258.
X-Git-Tag: t-gnus-6_17_4-quimby-~1076
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=841d53a55d86cea586481932a87b6b0bd32c8c93;p=elisp%2Fgnus.git-

Synch to No Gnus 200402102258.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5a557e..1660f69 100644
--- 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
--- 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)))