gnus-sum: use read-directory-name

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0a90892..02ddfe1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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-sum.el b/lisp/gnus-sum.el
index 8221667..8fac502 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/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)