2004-01-05 Karl Pflästerer <sigurd@12move.de>

	* mml.el (mml-minibuffer-read-disposition): Show attachment type
	in prompt (tiny change)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53ad068..a61cb85 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-05  Karl Pfl\e,Ad\e(Bsterer  <sigurd@12move.de>
+
+       * mml.el (mml-minibuffer-read-disposition): Show attachment type
+       in prompt (tiny change)
+
 2004-01-06  Steve Youngs  <sryoungs@bigpond.net.au>
 
        * messagexmas.el (message-xmas-redefine): Alias

diff --git a/lisp/mml.el b/lisp/mml.el
index 570dcc9..d736a25 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -939,10 +939,11 @@ See Info node `(emacs-mime)Composing'.
                      (if (string-match "^text/.*" type)
                          "inline"
                        "attachment")))
-        (disposition (completing-read "Disposition: "
-                                      '(("attachment") ("inline") (""))
-                                      nil
-                                      nil)))
+        (disposition (completing-read 
+                      (format "Disposition: (default %s): " default)
+                      '(("attachment") ("inline") (""))
+                      nil
+                      nil)))
     (if (not (equal disposition ""))
        disposition
       default)))