2000-09-26 Richard M. Alderson III <alderson@netcom2.netcom.com>

	* gnus-art.el (gnus-read-save-file-name): expand-file-name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e65c31..81db90f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-26  Richard M. Alderson III <alderson@netcom2.netcom.com> 
+
+       * gnus-art.el (gnus-read-save-file-name): expand-file-name.
+
 2000-09-26  Dave Love  <fx@gnu.org>
 
        * gnus-draft.el: Don't require gnus-agent.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 4bc1e3f..a1357f4 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2261,8 +2261,8 @@ This format is defined by the `gnus-article-time-format' variable."
   (let ((default-name
          (funcall function group headers (symbol-value variable)))
        result)
-    (setq
-     result
+    (setq result
+        (expand-file-name
      (cond
       ((eq filename 'default)
        default-name)
@@ -2330,7 +2330,7 @@ This format is defined by the `gnus-article-time-format' variable."
           (setq file (expand-file-name (file-name-nondirectory default-name)
                                        (file-name-as-directory file))))
         ;; Possibly translate some characters.
-        (nnheader-translate-file-chars file)))))
+        (nnheader-translate-file-chars file))))))
     (gnus-make-directory (file-name-directory result))
     (set variable result)))