X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnrss.el;h=6735eda1380f1887c7459d74091f8a68bc40078a;hb=841d53a55d86cea586481932a87b6b0bd32c8c93;hp=3368bb182aaa3fb770a97d13ea2fb909a714e671;hpb=29afe7091b059510d5d606316720f175695055c8;p=elisp%2Fgnus.git-

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)))