From: Kevin Layer <layer@known.net>
Date: Wed, 3 Apr 2013 23:19:58 +0000 (+0000)
Subject: lisp/gnus/mml.el (mml-minibuffer-read-description): Allow passing in a prefix (used... 
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~526^2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09e20374a1a0d82c0d5223d3ef30ae75f9bab8f2;p=emacs.git

lisp/gnus/mml.el (mml-minibuffer-read-description): Allow passing in a prefix (used by MH-E)
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e89fd874069..a2b91b443e0 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-04-03  Kevin Layer  <layer@known.net>  (tiny change)
+
+	* mml.el (mml-minibuffer-read-description): Allow passing in a prefix
+	(used by MH-E).
+
 2013-04-01  Andrew Cohen  <cohen@bu.edu>
 
 	* nnir.el (nnir-request-update-mark): Improve mark updating in original
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 3c9344a62c3..3c79d18b0c3 100644
--- 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 ()
-  (let ((description (read-string "One line description: ")))
+(defun mml-minibuffer-read-description (&optional initial-input)
+  (let ((description (read-string "One line description: " initial-input)))
     (when (string-match "\\`[ \t]*\\'" description)
       (setq description nil))
     description))