From 09e20374a1a0d82c0d5223d3ef30ae75f9bab8f2 Mon Sep 17 00:00:00 2001 From: Kevin Layer Date: Wed, 3 Apr 2013 23:19:58 +0000 Subject: [PATCH] lisp/gnus/mml.el (mml-minibuffer-read-description): Allow passing in a prefix (used by MH-E) --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mml.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 (tiny change) + + * mml.el (mml-minibuffer-read-description): Allow passing in a prefix + (used by MH-E). + 2013-04-01 Andrew Cohen * 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)) -- 2.39.2