From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/21926 Path: main.gmane.org!not-for-mail From: Colin Rafferty Newsgroups: gmane.emacs.gnus.general Subject: [patch] Re: prolems viewing inline GIFS (XEmacs, 0.80) Date: 15 Mar 1999 14:25:46 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: References: <86ww0ik5gr.fsf@kramer.bp.aventail.com> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035159940 25459 80.91.224.250 (21 Oct 2002 00:25:40 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:25:40 +0000 (UTC) Keywords: mml,inline,patch Return-Path: Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA13390 for ; Mon, 15 Mar 1999 14:29:14 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id NAB22285; Mon, 15 Mar 1999 13:27:49 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 15 Mar 1999 13:27:59 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id NAA17905 for ; Mon, 15 Mar 1999 13:27:48 -0600 (CST) Original-Received: from hqinbh1.ms.com (hqinbh1.ms.com [205.228.12.71]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id OAA13338 for ; Mon, 15 Mar 1999 14:27:40 -0500 (EST) Original-Received: (from uucp@localhost) by hqinbh1.ms.com (8.8.6/fw v1.30) id OAA18673 for ; Mon, 15 Mar 1999 14:27:10 -0500 (EST) Original-Received: from unknown(144.14.9.190) by hqinbh1.ms.com via smap (4.1) id xma018591; Mon, 15 Mar 99 14:27:06 -0500 Original-Received: from sag3.morgan.com (sag3.morgan.com [144.14.8.198]) by safid1.morgan.com (8.8.5/hub+ldap v2.3) with ESMTP id OAA19534 for ; Mon, 15 Mar 1999 14:27:06 -0500 (EST) Original-Received: (craffert@localhost) by sag3.morgan.com (8.8.5/sendmail.cf.client v1.05) id TAA21464; Mon, 15 Mar 1999 19:26:07 GMT Original-To: GNUS Mailing List Mail-Copies-To: never X-Face: D>:hrrB{l6#\wU;)0R:OHSTA@ayd.Oq?s@Rrc;[+z0m+<-U"$G-J6L)F2QY`qK~uPu!s1(6{\#uy!Ag/D)?'L[}xErXvxoPn8T_hKi{M]/(`BF{e}X7;hby`p\.E$rJ}Aff#BT,rdDIw\y X-Y-Zippy: Yow! Are we laid back yet? In-Reply-To: wmperry@aventail.com's message of "15 Mar 1999 12:50:12 -0500" Original-Lines: 79 User-Agent: Gnus/5.07008 (Pterodactyl Gnus v0.80) XEmacs/21.0(beta65) (20 minutes to Nikko) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:21926 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:21926 --=-=-= William M Perry writes: > Colin Rafferty writes: >> I would like it so that when I am composing in message-mode, if I type >> `C-c C-a' and enter a GIF, the MIME that mml creates sets the >> Content-Disposition to be inline rather attachment. > You can edit the mml directly... there is an attribute on each mime part > that sets the disposition. You would just need to change the > 'disposition=attachment' to 'disposition=inline' before sending. Of course. If I had scrolled my window, I would have seen that. > It would be useful to make prefix-arg mean 'inline' for > message-mime-attach-file. I agree. --=-=-= Content-Type: application/x-patch; name=mml.patch Content-Disposition: inline; filename=mml.patch Content-Transfer-Encoding: 8bit Content-Description: Patch to do WMP's wish. 1999-03-15 Colin Rafferty * mml.el (mml-attach-file): Make prefix-arg mean `inline'. --- mml.el~ Mon Mar 15 14:21:48 1999 +++ mml.el Mon Mar 15 14:22:01 1999 @@ -548,7 +548,7 @@ (goto-char (match-beginning 1)) (insert "!")))) -(defun mml-attach-file (file &optional type description) +(defun mml-attach-file (file &optional type description inline) "Attach a file to the outgoing MIME message. The file is not inserted or encoded until you send the message with `\\[message-send-and-exit]' or `\\[message-send]'. @@ -555,20 +555,22 @@ FILE is the name of the file to attach. TYPE is its content-type, a string of the form \"type/subtype\". DESCRIPTION is a one-line -description of the attachment." +description of the attachment. non-nil INLINE (prefix argument) sets +the disposition to \"inline\", otherwise \"attachment\"." (interactive (let* ((file (mml-read-file "Attach file: ")) (type (mml-read-type file)) (description (mml-read-description))) - (list file type description))) + (list file type description current-prefix-arg))) (insert (format - "<#part type=%s name=%s filename=%s%s disposition=attachment><#/part>\n" + "<#part type=%s name=%s filename=%s%s disposition=%s><#/part>\n" type (prin1-to-string (file-name-nondirectory file)) (prin1-to-string file) (if description (format " description=%s" (prin1-to-string description)) - "")))) + "") + (if inline "inline" "attachment")))) (defun mml-attach-external (file &optional type description) "Attach an external file into the buffer. --=-=-= ;; Colin --=-=-=--