From db134b87758b66d1a79368f3b70de9aeef99cbe3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 28 Sep 2000 00:02:12 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 4 ++++ lisp/gnus-art.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * gnus-art.el (gnus-read-save-file-name): expand-file-name. + 2000-09-26 Dave Love * 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))) -- 1.7.10.4