From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58767 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: Thu, 07 Oct 2004 17:45:48 +0200 Organization: GNU Rox ! Sender: ding-owner@lists.math.uh.edu Message-ID: References: <871xgb7x16.fsf@guti.no-ip.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1097164164 5343 80.91.229.6 (7 Oct 2004 15:49:24 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 7 Oct 2004 15:49:24 +0000 (UTC) Original-X-From: ding-owner+M7306@lists.math.uh.edu Thu Oct 07 17:49:10 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 1CFaVx-0006aY-00 for ; Thu, 07 Oct 2004 17:49:10 +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 1CFaVI-0003GV-00; Thu, 07 Oct 2004 10:48:28 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CFaVA-0003GP-00 for ding@lists.math.uh.edu; Thu, 07 Oct 2004 10:48:20 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CFaV9-0005Gz-FU for ding@lists.math.uh.edu; Thu, 07 Oct 2004 10:48:19 -0500 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id 226FA3A005A for ; Thu, 7 Oct 2004 10:48:15 -0500 (CDT) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1CFaV5-0005YA-00 for ; Thu, 07 Oct 2004 17:48:15 +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 1097164095 21337 62.212.121.152 (7 Oct 2004 15:48:15 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Thu, 7 Oct 2004 15:48:15 +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:09TPACvFY0SE/oHcOnkOZuXZEqE= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:58767 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:58767 --=-=-= On 7 oct 2004, Cristian Gutierrez wrote: > Este viernes, Jesper Harder dijo: > > 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 > > Amazing! Is there any chance to highlight snippets in other > languages? (Perl/Python for example). Inlining a little perl > snippet (text/x-perl) didn't work here... Yes and the cool and neat thing, you can add your own ! For inlined content, just check: ,----[ C-h v mm-inlined-types RET ] | mm-inlined-types's value is | ("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'. `---- Plus: ,----[ 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: | (("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] `---- You can add a perl highlithing engine quite easily. Regards. -- Registered Linux-User #340967 with the Linux Counter, http://counter.li.org. --=-=-=--