CVS update of gnus/lisp (gnus-agent.el)
Kevin Greiner <kgreiner <at> xpediantsolutions.com>
2004-04-08 01:46:45 GMT
Date: Thursday, April 8, 2004 <at> 03:46:44
Author: cvs
Path: /usr/local/cvsroot/gnus/lisp
Modified: gnus-agent.el
* gnus-agent.el (gnus-agent-total-fetched-hashtb): New variable.
(gnus-agent-with-refreshed-group): New macro.
(gnus-agent-rename-group): New function.
(gnus-agent-delete-group): New function.
(gnus-agent-save-group-info): Use gnus-command-method when
`method' parameter is nil. Don't write nil entries into the
active file.
(gnus-agent-get-group-info): New function.
(gnus-agent-fetch-articles): Use
gnus-agent-update-files-total-fetched-for to increment disk space
used.
(gnus-agent-fetch-headers, gnus-agent-save-alist): Use
gnus-agent-update-view-total-fetched-for to increment disk space
used.
(gnus-agent-get-local): Added optional parameters to avoid calling
gnus-group-real-name and gnus-find-method-for-group.
(gnus-agent-set-local): Delete stored entry if either min, or max,
are nil.
(gnus-agent-fetch-session): Reworded error/quit messages. On
quit, use gnus-agent-regenerate-group to record existance of any
articles fetched to disk before the quit occurred.
(gnus-agent-expire-group-1): Use gnus-agent-with-refreshed-group,
gnus-agent-update-view-total-fetched-for, and
gnus-agent-update-files-total-fetched-for to decrement disk space
(Continue reading)