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:
457aab8
)
(gnus-agent-expire): Refresh the value of `gnus-active-hashtb' for each method.
author
yamaoka
<yamaoka>
Mon, 5 Jul 1999 22:37:52 +0000
(22:37 +0000)
committer
yamaoka
<yamaoka>
Mon, 5 Jul 1999 22:37:52 +0000
(22:37 +0000)
lisp/gnus-agent.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-agent.el
b/lisp/gnus-agent.el
index
5c3d759
..
1642fc9
100644
(file)
--- a/
lisp/gnus-agent.el
+++ b/
lisp/gnus-agent.el
@@
-1363,14
+1363,14
@@
The following commands are available:
history overview file histories elem art nov-file low info
unreads marked article orig lowest highest)
(save-excursion
history overview file histories elem art nov-file low info
unreads marked article orig lowest highest)
(save-excursion
- (with-temp-buffer
- (insert-file-contents-as-coding-system gnus-agent-file-coding-system
- file)
- (gnus-active-to-gnus-format
- nil (setq orig (gnus-make-hashtable
- (count-lines (point-min) (point-max))))))
(setq overview (gnus-get-buffer-create " *expire overview*"))
(while (setq gnus-command-method (pop methods))
(setq overview (gnus-get-buffer-create " *expire overview*"))
(while (setq gnus-command-method (pop methods))
+ (with-temp-buffer
+ (insert-file-contents-as-coding-system
+ gnus-agent-file-coding-system (gnus-agent-lib-file "active"))
+ (gnus-active-to-gnus-format
+ nil (setq orig (gnus-make-hashtable
+ (count-lines (point-min) (point-max))))))
(let ((expiry-hashtb (gnus-make-hashtable 1023)))
(gnus-agent-open-history)
(set-buffer
(let ((expiry-hashtb (gnus-make-hashtable 1023)))
(gnus-agent-open-history)
(set-buffer