Full path translation in agent.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6aff65e..9c0b795 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-01-10 23:35:33  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-fetch-headers): Translate full path.
+
 2000-01-09 22:52:35  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus.el (gnus-other-frame): Fix typo.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 7b867e5..adca2fc 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -865,7 +865,7 @@ the actual number of articles toggled is returned."
                             (cdr (gnus-active group)))))))
     ;; Fetch them.
     (gnus-make-directory (nnheader-translate-file-chars
-                         (file-name-directory file)))
+                         (file-name-directory file) t))
     (when articles
       (gnus-message 7 "Fetching headers for %s..." group)
       (save-excursion