From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58707 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: Sat, 02 Oct 2004 17:55:59 +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 1096744643 6803 80.91.229.6 (2 Oct 2004 19:17:23 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 2 Oct 2004 19:17:23 +0000 (UTC) Original-X-From: ding-owner+M7245@lists.math.uh.edu Sat Oct 02 21:17:03 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 1CDpNP-00034T-00 for ; Sat, 02 Oct 2004 21:17:03 +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 1CDpMR-00023U-00; Sat, 02 Oct 2004 14:16:03 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CDmF3-0001j9-00 for ding@lists.math.uh.edu; Sat, 02 Oct 2004 10: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 1CDmF4-00060j-5T for ding@lists.math.uh.edu; Sat, 02 Oct 2004 10:56:14 -0500 Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244]) by justine.libertine.org (Postfix) with ESMTP id D631B3A003C for ; Sat, 2 Oct 2004 10:56:10 -0500 (CDT) Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1CDmF0-0001Qs-00 for ; Sat, 02 Oct 2004 17:56:10 +0200 Original-To: ding@gnus.org Original-Path: news.gnu-rox.org!news Original-Newsgroups: gnus.ding Original-Lines: 104 Original-NNTP-Posting-Host: rms.gnu-rox.org Original-X-Trace: quimby.gnus.org 1096732570 5509 62.212.121.152 (2 Oct 2004 15:56:10 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Sat, 2 Oct 2004 15:56:10 +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:TyI8nqU5tCXTDQX6A3+OExW6Ds8= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:58707 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:58707 --=-=-= 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-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Well I try to see if, at least, Gnus was "aware" of the inlined lisp part. It seems it is (M-x debug-on-entry RET mm-display-elisp-inline RET): ,---- |=20 | Debugger entered--returning value: (lambda nil (let (buffer-read-only) (d= elete-region # #)= )) | mm-display-elisp-inline((#> ("application/emacs-lisp") = nil (lambda nil (let ... ...)) ("inline") nil nil nil)) | mm-display-inline((#> ("application/emacs-lisp") nil (l= ambda nil (let ... ...)) ("inline") nil nil nil)) | mm-display-part((#> ("application/emacs-lisp") nil (lam= bda nil (let ... ...)) ("inline") nil nil nil) t) | byte-code("=08=C2=83=17=00=C3=86=08=C2=89A=10@ \"=C2=83=00=00=C3=87=C3= =80=C3=88\"=C2=88=C2=82=00=00=C3=89\n!?=C2=851=00=C3=8A\n8?=C2=861=00=C3=8A= \n8@=C3=8B=C2=9A=C2=861=00=C3=8C\n!=C2=89=13=C2=83S=00=C3=8D\n!=C2=83S=00= =C3=8E\n!=C2=83H=00=C3=8F\n!=C2=84N=00=C3=90 !=C2=83S=00=C3=91=14=C2=82d=00= \n=1A=C3=92=C3=93\n!=C3=94\"@)=C3=95=C2=9A=C2=83d=00=C3=91=15=0E\"GT=C3=88= =1E#=C2=89=1E$\nB=0E\"B=16\"\f=C2=83=7F=00=C3=96 !=C2=84=C2=95=00=C3=97\n= =0E$\f=C2=86=C2=8C=00=0B=C2=85=C2=8C=00=0DC#=C2=88=C3=98 =C2=88=C3=91=16%`= =16#\f=C2=83=C3=82=00=0E%=C2=83=C2=A7=00=C3=99y=C2=88`=16#=0E&=C2=8A=C3=88= =C3=9A=C3=9B=C2=8F=C2=88=0E')=1E(=1E)=C3=9C\n=C3=91\"=C2=88*db=C2=88=C2=82= =C3=A2=00=0D=C2=83=C3=A2=00=0B=C2=83=C3=A2=00=0E%=C2=83=C3=95=00=C3=99y=C2= =88`=16#=C3=98 =C2=88=C3=9D\n=C3=9E\n!\"=C2=88db=C2=88=C2=8A=C2=8C=0E#`}=C2= =88=C3=9F=C3=88=0E$=C3=A0=0E*@!=C2=83=C3=B9=00=C3=A1=C2=82=C3=BD=00=0E*GS\n= =C2=89=1A@;=C2=83\n=01\n@=C2=82=0E=01=C3=A1\n8@)$,=C2=87" [ignored type han= dle not-attachment display text string-match throw nil mm-inline-override-p= 4 "inline" mm-attachment-override-p mm-automatic-display-p mm-inlinable-p = mm-inlined-p mm-automatic-external-display-p t split-string mm-handle-media= -type "/" "text" gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus= -article-insert-newline -1 (set-buffer gnus-summary-buffer) ((error)) mm-di= splay-part mm-insert-inline mm-get-part gnus-treat-article bufferp 1 gnus-a= rticle-mime-handle-alist beg id move gnus-newsgroup-charset gnus-newsgroup-= ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-articl= e-mime-handles] 7) | gnus-mime-display-single((#> ("application/emacs-lisp")= nil (lambda nil (let ... ...)) ("inline") nil nil nil)) | gnus-mime-display-part((#> ("application/emacs-lisp") n= il (lambda nil (let ... ...)) ("inline") nil nil nil)) | mapcar(gnus-mime-display-part ((#> ("text/plain") nil (= lambda nil ...) nil nil nil nil) (#> ("application/emacs-li= sp") nil (lambda nil ...) ("inline") nil nil nil) (#> ("tex= t/plain") nil nil ("inline") nil nil nil))) | gnus-mime-display-mixed(((#> ("text/plain") nil (lambda= nil ...) nil nil nil nil) (#> ("application/emacs-lisp") n= il (lambda nil ...) ("inline") nil nil nil) (#> ("text/plai= n") nil nil ("inline") nil nil nil))) | gnus-mime-display-part((#("multipart/mixed" 0 15 (start nil from "harde= r@ifa.au.dk" buffer # boundary "=3D-=3D-=3D")) (#> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#> ("application/emacs-lisp") nil (lambda nil ...) ("inline") nil nil nil)= (#> ("text/plain") nil nil ("inline") nil nil nil))) | gnus-display-mime() | gnus-article-prepare-display() | gnus-article-prepare(15605 nil) | gnus-summary-display-article(15605 nil) | gnus-summary-select-article(nil nil pseudo) | gnus-summary-scroll-up(1) | call-interactively(gnus-summary-scroll-up) `---- Do you think this is normal ? (what about the famous marker in the *Article* buffer ?) Regards --=20 Hito no kokoro wa kawareru mono --=-=-=--