* mm-decode.el (mm-save-part): Put the entire path in the `M-n' slot.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1ef899..93b87e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * mm-decode.el (mm-save-part): Put the entire path in the `M-n' slot.
+
 2010-11-04  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * 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 f3c04ce..bcd6a80 100644 (file)
--- 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