--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/tm/tm-latex.el	Mon Aug 13 08:46:56 2007 +0200
@@ -0,0 +1,50 @@
+;;;
+;;; tm-latex: tm-view internal decoder for LaTeX
+;;;
+;;; by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> (1994/11/11)
+;;;
+;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;;
+;;; $Id: tm-latex.el,v 1.1.1.1 1996/12/18 03:55:32 steve Exp $
+;;;
+
+(require 'tm-view)
+
+(defun mime/decode-text/latex (beg end cal)
+  (let* ((cur-buf (current-buffer))
+	 new-buf
+	 (name (or (cdr (assoc "name" cal))
+		   (cdr (assoc "x-name" cal))
+		   (concat (make-temp-name "tm") ".tex"))))
+    (switch-to-buffer mime::article/preview-buffer)
+    (funcall mime/find-file-function (expand-file-name name mime/tmp-dir))
+    (if (or (<= (buffer-size) 0)
+	    (y-or-n-p "Replace the existing buffer?"))
+	(progn
+	  (erase-buffer)
+	  (setq new-buf (current-buffer))
+	  (save-excursion
+	    (set-buffer cur-buf)
+	    (goto-char beg)
+	    (re-search-forward "^$")
+	    (append-to-buffer new-buf (+ (match-end 0) 1) end)
+	    )))
+    ))
+
+(set-atype 'mime/content-decoding-condition
+	   '((type . "text/x-latex")
+	     (method . mime/decode-text/latex)
+	     ))
+
+(set-atype 'mime/content-decoding-condition
+	   '((type . "application/x-latex")
+	     (method . mime/decode-text/latex)
+	     ))
+
+;(set-atype 'mime/content-decoding-condition
+;	   '((type . "application/octet-stream")
+;	     ("type" . "latex")
+;	     (method . mime/decode-text/latex)
+;	     ))
+
+(provide 'tm-latex)