projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
aeaa40a
)
Synch to No Gnus 200402102258.
author
yamaoka
<yamaoka>
Wed, 11 Feb 2004 00:29:43 +0000
(
00:29
+0000)
committer
yamaoka
<yamaoka>
Wed, 11 Feb 2004 00:29:43 +0000
(
00:29
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/nnrss.el
patch
|
blob
|
history
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)
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)
(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)))
(let ((pair (assoc group nnrss-server-data)))
(setq nnrss-group-max (or (cadr pair) 0))
(setq nnrss-group-min (+ nnrss-group-max 1)))