From 2c217214d8c5ad9dd0d971995cd3ad438fb60cbe Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 23 Sep 2001 16:21:58 +0000
Subject: [PATCH] * mime-view.el: Add setting to fontify the inline part of
 application/emacs-lisp. (mime-display-inline-fontify): New
 function stolen from mm-view.el.
 (mime-display-application/emacs-lisp): Use it.

---
 mime-view.el |   39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/mime-view.el b/mime-view.el
index 9d85a7d..529839a 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -703,6 +703,12 @@ Each elements are regexp of field-name.")
 
 (ctree-set-calist-strictly
  'mime-preview-condition
+ '((type . application)(subtype . emacs-lisp)(disposition-type . inline)
+   (body . visible)
+   (body-presentation-method . mime-display-application/emacs-lisp)))
+
+(ctree-set-calist-strictly
+ 'mime-preview-condition
  '((type . text)(subtype . t)
    (body . visible)
    (body-presentation-method . mime-display-text/plain)))
@@ -894,6 +900,39 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 	      (cons original-major-mode-cell default-situation)))
     (mime-display-entity start nil default-situation)))
 
+;;; stolen (and renamed) from mm-view.el.
+(defun mime-display-inline-fontify (entity mode)
+  ;; XEmacs @#$@ version of font-lock refuses to fully turn itself
+  ;; on for buffers whose name begins with " ".  That's why we use
+  ;; save-current-buffer/get-buffer-create rather than
+  ;; with-temp-buffer.
+  (let ((buffer (get-buffer-create "*fontification*")))
+    (save-current-buffer
+      (set-buffer buffer)
+      (buffer-disable-undo)
+      (erase-buffer)
+      (mime-insert-entity-content entity)
+      (funcall mode)
+      (let ((font-lock-verbose nil))
+	;; I find font-lock a bit too verbose.
+	(font-lock-fontify-buffer))
+      ;; By default, XEmacs font-lock uses non-duplicable text
+      ;; properties.  This code forces all the text properties
+      ;; to be copied along with the text.
+      (static-when (fboundp 'extent-list)
+	(map-extents (lambda (ext ignored)
+		       (set-extent-property ext 'duplicable t)
+		       nil)
+		     nil nil nil nil nil 'text-prop)))
+    (insert-buffer-substring buffer)))
+
+(defun mime-display-application/emacs-lisp (entity situation)
+  (save-restriction
+    (narrow-to-region (point-max)(point-max))
+    (mime-display-inline-fontify entity 'emacs-lisp-mode)
+    (run-hooks 'mime-text-decode-hook 'mime-display-text/plain-hook)))
+
+
 ;;; @ acting-condition
 ;;;
 
-- 
1.7.10.4