diff lisp/gnus/mm-view.el @ 31764:54ae1def18cf

Merge from Gnus trunk.

--- a/lisp/gnus/mm-view.el	Wed Sep 20 11:22:36 2000 +0000
+++ b/lisp/gnus/mm-view.el	Wed Sep 20 11:46:48 2000 +0000
@@ -260,11 +260,11 @@
 		(error nil))
 	      (delete-region ,(point-min-marker) ,(point-max-marker)))))))))
 
-(defun mm-display-patch-inline (handle)
+(defun mm-display-inline-fontify (handle mode)
   (let (text)
     (with-temp-buffer
       (mm-insert-part handle)
-      (diff-mode)
+      (funcall mode)
       (font-lock-fontify-buffer)
       (when (fboundp 'extent-list)
 	(map-extents (lambda (ext ignored)
@@ -274,6 +274,12 @@
       (setq text (buffer-string)))
     (mm-insert-inline handle text)))
 
+(defun mm-display-patch-inline (handle)
+  (mm-display-inline-fontify handle 'diff-mode))
+
+(defun mm-display-elisp-inline (handle)
+  (mm-display-inline-fontify handle 'emacs-lisp-mode))
+
 (provide 'mm-view)
 
 ;; mm-view.el ends here