From e7a5fb7e6f5648f8caf58443acec4dbb329e26a2 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 4 Nov 2010 20:55:22 +0100 Subject: [PATCH] * mm-decode.el (mm-save-part): Put the entire path in the `M-n' slot. --- lisp/ChangeLog | 4 ++++ lisp/mm-decode.el | 12 +++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e1ef89939..93b87e953 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-11-04 Lars Magne Ingebrigtsen + + * mm-decode.el (mm-save-part): Put the entire path in the `M-n' slot. + 2010-11-04 Katsumi Yamaoka * shr.el (shr-tag-img): Use string-width and truncate-string-to-width diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index f3c04cee4..bcd6a80f1 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1251,11 +1251,13 @@ PROMPT overrides the default one used to ask user for a file name." (setq filename (gnus-map-function mm-file-name-rewrite-functions (file-name-nondirectory filename)))) (setq file - (read-file-name (or prompt - (format "Save MIME part to (default %s): " - (or filename ""))) - (or mm-default-directory default-directory) - (or filename ""))) + (read-file-name + (or prompt + (format "Save MIME part to (default %s): " + (or filename ""))) + (or mm-default-directory default-directory) + (expand-file-name (or filename "") + (or mm-default-directory default-directory)))) (if (file-directory-p file) (setq file (expand-file-name filename file)) (setq file (expand-file-name -- 2.25.1