From aab673053b9450e8656106c29464b5e8ea166b4b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 25 Sep 2010 22:26:36 +0200 Subject: [PATCH] Allow saving to other directories the normal Emacs way. --- lisp/ChangeLog | 3 +++ lisp/mm-decode.el | 8 ++++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 731d51628..26992b347 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-25 Lars Magne Ingebrigtsen + * mm-decode.el (mm-save-part): Allow saving to other directories the + normal Emacs way. + * nndoc.el (nndoc-type-alist): Move mime-parts after mbox. Suggested by Jay Berkenbilt. diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 01a7b751f..f773c2fea 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1248,9 +1248,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 "Save MIME part to: ") + (read-file-name (or prompt + (format "Save MIME part to (default %s): " + (or filename ""))) (or mm-default-directory default-directory) - nil nil (or filename ""))) + (or filename ""))) + (when (file-directory-p file) + (setq file (expand-file-name filename file))) (setq mm-default-directory (file-name-directory file)) (and (or (not (file-exists-p file)) (yes-or-no-p (format "File %s already exists; overwrite? " -- 2.25.1