From 6e883aeb775acda70f38bbfaf861d854c7e3467c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 23 Jun 1998 15:53:08 +0000 Subject: [PATCH] (rmail-output): Handle directories properly in suggestions fro the alist. --- lisp/mail/rmailout.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 81aa941abd4..1c4194cda83 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -234,7 +234,7 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." (if (re-search-forward (car (car tail)) nil t) (setq answer (eval (cdr (car tail))))) (setq tail (cdr tail)))) - ;; If not suggestions, use same file as last time. + ;; If no suggestion, use same file as last time. (or answer rmail-default-file)))) (list (setq rmail-default-file (let ((read-file @@ -242,13 +242,13 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." (concat "Output message to Unix mail file: (default " (file-name-nondirectory default-file) ") ") - (file-name-directory default-file) - default-file))) + (file-name-directory (expand-file-name default-file)) + (expand-file-name default-file)))) (if (file-directory-p read-file) (expand-file-name (file-name-nondirectory default-file) read-file) (expand-file-name - (or read-file default-file) + (or read-file (file-name-nondirectory default-file)) (file-name-directory default-file))))) (prefix-numeric-value current-prefix-arg)))) (or count (setq count 1)) -- 2.39.2