+2002-10-25 Kai Gro\e,A_\e(Bjohann <kai.grossjohann@uni-duisburg.de>
+
+ * gnus-agent.el (gnus-agent-save-fetched-headers): Create
+ directory if it doesn't exist.
+
2002-10-25 Katsumi Yamaoka <yamaoka@jpl.org>
* nndraft.el (nndraft-request-article): Treat delayed articles
'gnus-agent-file-loading-cache
'gnus-agent-read-file)))
+;; Why do we have to create the directory for the .fetched files (see
+;; function gnus-agent-save-fetched-headers below) but not for the
+;; .agentview files?
(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)
"Save ranges of fetched headers for GROUP.
This range includes nonexisting articles."
(let ((file-name-coding-system nnmail-pathname-coding-system)
+ (fetched-file (gnus-agent-article-name ".fetched" group))
print-level print-length)
(setq gnus-agent-fetched-headers range)
- (with-temp-file (gnus-agent-article-name ".fetched" group)
+ (unless (file-exists-p (file-name-directory fetched-file))
+ (make-directory (file-name-directory fetched-file) t))
+ (with-temp-file fetched-file
(princ gnus-agent-fetched-headers (current-buffer))
(insert "\n"))))