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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7f362030586c5b18fb06221cb9b469c16a7b9e6d..8781ab3c0ecfa66848324ffc377f63dc0a94a78b 100644 (file)
--- 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 8221667ab658dfb26afaf83dc097bcd69408d27d..8fac5021df3c990282fe085a59bb38cc34fd3171 100644 (file)
--- 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)