From 841d53a55d86cea586481932a87b6b0bd32c8c93 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 11 Feb 2004 00:29:43 +0000 Subject: [PATCH] Synch to No Gnus 200402102258. --- lisp/ChangeLog | 5 +++++ lisp/nnrss.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * nnrss.el (nnrss-read-group-data): Initialize nnrss-group-hashtb + if necessary. + 2004-02-09 Teodor Zlatanov * 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))) -- 1.7.10.4