From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58692 Path: main.gmane.org!not-for-mail From: Xavier Maillard Newsgroups: gmane.emacs.gnus.general Subject: Re: Embedded lisp in the message body: hwoto ? Date: Fri, 01 Oct 2004 22:49:03 +0200 Organization: GNU Rox ! Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1096676195 6810 80.91.229.6 (2 Oct 2004 00:16:35 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 2 Oct 2004 00:16:35 +0000 (UTC) Original-X-From: ding-owner+M7230@lists.math.uh.edu Sat Oct 02 02:16:17 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CDXZR-0005NI-00 for ; Sat, 02 Oct 2004 02:16:17 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1CDXYi-00084V-00; Fri, 01 Oct 2004 19:15:32 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CDURp-0007Up-00 for ding@lists.math.uh.edu; Fri, 01 Oct 2004 15:56:13 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CDURq-0006Ms-Pz for ding@lists.math.uh.edu; Fri, 01 Oct 2004 15:56:14 -0500 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id 222913A0027 for ; Fri, 1 Oct 2004 15:56:09 -0500 (CDT) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1CDURl-0003sl-00 for ; Fri, 01 Oct 2004 22:56:09 +0200 Original-To: ding@gnus.org Original-Path: news.gnu-rox.org!news Original-Newsgroups: gnus.ding Original-Lines: 172 Original-NNTP-Posting-Host: rms.gnu-rox.org Original-X-Trace: quimby.gnus.org 1096664169 14926 62.212.121.152 (1 Oct 2004 20:56:09 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Fri, 1 Oct 2004 20:56:09 +0000 (UTC) Mail-Copies-To: never X-Attribution: zeDek X-Face: "qG{UC8GPzro#PZ!Jgisuj0]=k10 f#d596CJMPGOGwB'j\^JR2g0']N%L:ylC`?.l8u#JuS#CygUA}avHHVJJ!#ub7CxX#u]g}?z,hQ;c q%v]"[$!BfS X-Accept-Language: fr-fr, en-en, en-fr User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:+/wCcEKwiXy3+OGiL7JXckQzcqs= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:58692 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:58692 --=-=-= On 1 oct 2004, Jesper Harder wrote: > Xavier Maillard writes: > > > 2. I have friends of mine with whoom I often exchange Lisp > > snippets and so I would like to have the lisp snippet > > rendered differently from the rest of the article > > This should be easy. Just use inline attachments: > > (defun foo (x) > (+ 2 x)) > i.e. > > --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline > (defun foo (x) > (+ 2 x)) > --=-=-= Content-Disposition: inline Well I searched and found something about inlined content. >From what I see, all is correct: ,----[ C-h v mm-inlined-types RET ] | mm-inlined-types's value is | ("application/msword" "image/.*" "text/.*" "message/delivery-status" "message/rfc822" "message/partial" "message/external-body" "application/emacs-lisp" "application/x-emacs-lisp" "application/pgp-signature" "application/x-pkcs7-signature" "application/pkcs7-signature" "application/x-pkcs7-mime" "application/pkcs7-mime") | | | List of media types that are to be displayed inline. | See also `mm-inline-media-tests', which says how to display a media | type inline. | | You can customize this variable. | | Defined in `mm-decode'. | | [back] `---- and ,----[ C-h v mm-inline-media-tests RET ] | mm-inline-media-tests's value is shown below. | | Alist of media types/tests saying whether types can be displayed inline. | | You can customize this variable. | | Defined in `mm-decode'. | | Value: | (("application/msword" | (lambda | (handle) | (mm-inline-render-with-stdin handle nil "antiword" "-")) | identity) | ("image/p?jpeg" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'jpeg handle))) | ("image/png" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'png handle))) | ("image/gif" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'gif handle))) | ("image/tiff" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'tiff handle))) | ("image/xbm" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'xbm handle))) | ("image/x-xbitmap" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'xbm handle))) | ("image/xpm" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'xpm handle))) | ("image/x-xpixmap" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'xpm handle))) | ("image/bmp" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'bmp handle))) | ("image/x-portable-bitmap" mm-inline-image | (lambda | (handle) | (mm-valid-and-fit-image-p 'pbm handle))) | ("text/plain" mm-inline-text identity) | ("text/enriched" mm-inline-text identity) | ("text/richtext" mm-inline-text identity) | ("text/x-patch" mm-display-patch-inline | (lambda | (handle) | (locate-library "diff-mode"))) | ("application/emacs-lisp" mm-display-elisp-inline identity) | ("application/x-emacs-lisp" mm-display-elisp-inline identity) | ("text/dns" mm-display-dns-inline identity) | ("text/html" mm-inline-text-html | (lambda | (handle) | (or mm-inline-text-html-renderer mm-text-html-renderer))) | ("text/x-vcard" mm-inline-text-vcard | (lambda | (handle) | (or | (featurep 'vcard) | (locate-library "vcard")))) | ("message/delivery-status" mm-inline-text identity) | ("message/rfc822" mm-inline-message identity) | ("message/partial" mm-inline-partial identity) | ("message/external-body" mm-inline-external-body identity) | ("text/.*" mm-inline-text identity) | ("audio/wav" mm-inline-audio | (lambda | (handle) | (and | (or | (featurep 'nas-sound) | (featurep 'native-sound)) | (device-sound-enabled-p)))) | ("audio/au" mm-inline-audio | (lambda | (handle) | (and | (or | (featurep 'nas-sound) | (featurep 'native-sound)) | (device-sound-enabled-p)))) | ("application/pgp-signature" ignore identity) | ("application/x-pkcs7-signature" ignore identity) | ("application/pkcs7-signature" ignore identity) | ("application/x-pkcs7-mime" ignore identity) | ("application/pkcs7-mime" ignore identity) | ("multipart/alternative" ignore identity) | ("multipart/mixed" ignore identity) | ("multipart/related" ignore identity) | ("audio/.*" ignore ignore) | ("image/.*" ignore ignore) | (".*" mm-inline-text mm-readable-p)) | | [back] `---- All is ok, isn't it ? P.S: sorry for this crap -- Hacker Wonderland Xavier Maillard| "Stand Back! I'm a programmer!" .0. zedek@gnu-rox.orgz| ..0 (+33) 326 770 221 | Webmaster, emacsfr.org 000 PGP : 0x1E028EA5 | Membre de l' APRIL --=-=-=--