gnus-sum.el (gnus-summary-save-parts): Use read-directory-name.

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7f362030586..8781ab3c0ec 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -3,6 +3,10 @@
         * message.el (message-bury): Don't pop up a new window when selected
         window is dedicated.
 
+2011-02-10  Antoine Levitt  <antoine.levitt@gmail.com>  (tiny change)
+
+        * gnus-sum.el (gnus-summary-save-parts): Use read-directory-name.
+
 2011-02-09  Lars Ingebrigtsen  <larsi@gnus.org>
 
         * nntp.el (nntp-retrieve-group-data-early-disabled): Disable the async
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 8221667ab65..8fac5021df3 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -12087,9 +12087,9 @@ If REVERSE, save parts that do not match TYPE."
                           gnus-summary-save-parts-default-mime)
                       'gnus-summary-save-parts-type-history)
          (setq gnus-summary-save-parts-last-directory
-               (read-file-name "Save to directory: "
-                               gnus-summary-save-parts-last-directory
-                               nil t))
+               (read-directory-name "Save to directory: "
+                                    gnus-summary-save-parts-last-directory
+                                    nil t))
          current-prefix-arg))
   (gnus-summary-iterate n
     (let ((gnus-display-mime-function nil)