From: yamaoka <yamaoka>
Date: Thu, 28 Sep 2000 00:02:12 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~79
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db134b87758b66d1a79368f3b70de9aeef99cbe3;p=elisp%2Fgnus.git-

Synch with Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e65c31..81db90f 100644
--- 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 9308c95..55890b5 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2450,8 +2450,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)
@@ -2519,7 +2519,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)))