
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):

,----
| 
| Debugger entered--returning value: (lambda nil (let (buffer-read-only) (delete-region #<marker at 2464 in *Article*> #<marker at 2490 in *Article*>)))
|   mm-display-elisp-inline((#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil (let ... ...)) ("inline") nil nil nil))
|   mm-display-inline((#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil (let ... ...)) ("inline") nil nil nil))
|   mm-display-part((#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil (let ... ...)) ("inline") nil nil nil) t)
|   byte-code(" ÆA@	\"  ÇÀÈ\"  É\n!?1 Ê\n8?1 Ê\n8@Ë1 Ì\n!S Í\n!S Î\n!H Ï\n!N Ð	!S Ñd \nÒÓ\n!Ô\"@)Õd Ñ\"GTÈ#$\nB\"B\"\f Ö	! ×\n$\f  C#Ø Ñ%`#\fÂ %§ Ùy`#&ÈÚÛ')()Ü\nÑ\"*dbâ â â %Õ Ùy`#Ø Ý\nÞ\n!\"db#`}ßÈ$à*@!ù áý *GS\n@;\n\n@á\n8@)$," [ignored type handle 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-display-part mm-insert-inline mm-get-part gnus-treat-article bufferp 1 gnus-article-mime-handle-alist beg id move gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset gnus-article-mime-handles] 7)
|   gnus-mime-display-single((#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil (let ... ...)) ("inline") nil nil nil))
|   gnus-mime-display-part((#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil (let ... ...)) ("inline") nil nil nil))
|   mapcar(gnus-mime-display-part ((#<buffer  *mm*<2>> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil ...) ("inline") nil nil nil) (#<buffer  *mm*<4>> ("text/plain") nil nil ("inline") nil nil nil)))
|   gnus-mime-display-mixed(((#<buffer  *mm*<2>> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil ...) ("inline") nil nil nil) (#<buffer  *mm*<4>> ("text/plain") nil nil ("inline") nil nil nil)))
|   gnus-mime-display-part((#("multipart/mixed" 0 15 (start nil from "harder@ifa.au.dk" buffer #<buffer  *mm*> boundary "=-=-=")) (#<buffer  *mm*<2>> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer  *mm*<3>> ("application/emacs-lisp") nil (lambda nil ...) ("inline") nil nil nil) (#<buffer  *mm*<4>> ("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
-- 
Hito no kokoro wa kawareru mono