From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55680 Path: main.gmane.org!not-for-mail From: sigurd@12move.de (Karl =?iso-8859-1?q?Pfl=E4sterer?=) Newsgroups: gmane.emacs.gnus.general Subject: Small patch for `mml-minibuffer-read-disposition' Date: Mon, 05 Jan 2004 23:19:22 +0100 Organization: Lemis World Sender: ding-owner@lists.math.uh.edu Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1073341497 20438 80.91.224.253 (5 Jan 2004 22:24:57 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 5 Jan 2004 22:24:57 +0000 (UTC) Original-X-From: ding-owner+M4220@lists.math.uh.edu Mon Jan 05 23:24:54 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Add9Z-0002nd-00 for ; Mon, 05 Jan 2004 23:24:53 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1Add9T-000080-00; Mon, 05 Jan 2004 16:24:47 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1Add9B-00004u-00 for ding@lists.math.uh.edu; Mon, 05 Jan 2004 16:24:29 -0600 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id 69A673A0026 for ; Mon, 5 Jan 2004 16:24:29 -0600 (CST) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1Add9A-0007Fc-00 for ; Mon, 05 Jan 2004 23:24:28 +0100 Original-To: ding@gnus.org Original-Path: wintendo.pflaesterer.de!not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 45 Original-NNTP-Posting-Host: p62.246.50.149.tisdip.tiscali.de Original-X-Trace: quimby.gnus.org 1073341468 27872 62.246.50.149 (5 Jan 2004 22:24:28 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Mon, 5 Jan 2004 22:24:28 +0000 (UTC) X-Face: #iIcL\6>Qj/G*F@AL9T*v/R$j@7Q`6#FU&Flg6u6aVsLdWf(H$U5>:;&*>oy>jOIWgA%8w* A!V7X`\fEGoQ[@D'@i^*p3FCC6&Rg~JT/H_*MOX;"o~flADb8^ Mail-Copies-To: never User-Agent: Gnus/5.110002 (No Gnus v0.2) Hamster/2.0.4.0 Cancel-Lock: sha1:28/EwP/StfcpFoWfWi0LGxB+2pM= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55680 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55680 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 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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=20 + (format "Disposition: (default %s): " default) + '(("attachment") ("inline") ("")) + nil + nil))) (if (not (equal disposition "")) disposition default))) And for lisp/Changelog 2004-01-05 Karl Pfl=E4sterer * mml.el (mml-minibuffer-read-disposition): Show attachment type in prompt KP --=20 "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