lisp/gnus/mml.el (mml-minibuffer-read-description): Use `default' insted of `initial...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a2b91b443e0ecdb00bc915a650f2ca35bece06e1..59be8293bb332f3ac8fbf89d37f32433977a4798 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+2013-04-04  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mml.el (mml-minibuffer-read-description): Use `default' insted of
+       `initial-input' for the argument name.
+       Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.
+
 2013-04-03  Kevin Layer  <layer@known.net>  (tiny change)
 
        * mml.el (mml-minibuffer-read-description): Allow passing in a prefix

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 3c79d18b0c3c1bf9b4158c2fa627d77277f56136..91f0e325182d2aaa4a5a3dfc57eb41fb058ba3fe 100644 (file)
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -1212,8 +1212,8 @@ If not set, `default-directory' will be used."
        string
       default)))
 
-(defun mml-minibuffer-read-description (&optional initial-input)
-  (let ((description (read-string "One line description: " initial-input)))
+(defun mml-minibuffer-read-description (&optional default)
+  (let ((description (read-string "One line description: " default)))
     (when (string-match "\\`[ \t]*\\'" description)
       (setq description nil))
     description))