2002-10-24 Kai Gro\e,A_\e(Bjohann <kai.grossjohann@uni-duisburg.de>
+ * gnus-agent.el (gnus-agent-save-alist, gnus-agent-load-alist):
+ Remove unused optional arg DIR and corresponding code.
+
* nnimap.el (nnimap-request-article-part): Include group name in
debugging output.
(set-buffer nntp-server-buffer))
(insert-buffer-substring gnus-agent-overview-buffer start))))
-(defun gnus-agent-load-alist (group &optional dir)
+(defun gnus-agent-load-alist (group)
"Load the article-state alist for GROUP."
- (let ((file ))
(setq gnus-agent-article-alist
(gnus-cache-file-contents
- (if dir
- (expand-file-name ".agentview" dir)
- (gnus-agent-article-name ".agentview" group))
+ (gnus-agent-article-name ".agentview" group)
'gnus-agent-file-loading-cache
'gnus-agent-read-file))))
-(defun gnus-agent-save-alist (group &optional articles state dir)
+(defun gnus-agent-save-alist (group &optional articles state)
"Save the article-state alist for GROUP."
(let* ((file-name-coding-system nnmail-pathname-coding-system)
(prev (cons nil gnus-agent-article-alist))
(setcdr (cadr prev) state)))
(setq prev (cdr prev)))
(setq gnus-agent-article-alist (cdr all))
- (with-temp-file (if dir
- (expand-file-name ".agentview" dir)
- (gnus-agent-article-name ".agentview" group))
+ (with-temp-file (gnus-agent-article-name ".agentview" group)
(princ gnus-agent-article-alist (current-buffer))
(insert "\n"))))