Small patch for `mml-minibuffer-read-disposition'

Small patch for `mml-minibuffer-read-disposition'

[Karl Pflästerer]

Hi,
the new option to set the attachment type is good.  But I missed to see
the default type in the prompt, so here is the patch.

Index: mml.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mml.el,v
retrieving revision 7.2
diff -u -r7.2 mml.el
--- mml.el      5 Jan 2004 20:50:13 -0000       7.2
+++ mml.el      5 Jan 2004 22:16:12 -0000
@@ -939,10 +939,11 @@
                      (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)))



And for lisp/Changelog

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

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


   KP

-- 
"Lisp is worth learning for the profound enlightenment experience you
will have when you finally get it; that experience will make you a
better programmer for the rest of your days, even if you never
actually use Lisp itself a lot."                    -- Eric S. Raymond

Re: Small patch for `mml-minibuffer-read-disposition'

[Lars Magne Ingebrigtsen]

sigurd@12move.de (Karl Pflästerer) writes:

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

Thanks for the patch; I've applied it to No Gnus v0.2 (i. e., CVS).

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen