(eww-self-insert): Implement entering commands in text fields.

[gnus] / lisp / mml.el

diff --git a/lisp/mml.el b/lisp/mml.el
index 3c79d18..91f0e32 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/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))