--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/mu/latex-math-symbol.el	Mon Aug 13 08:47:35 2007 +0200
@@ -0,0 +1,94 @@
+;;; latex-math-symbol.el --- LaTeX math symbol decoder
+
+;; Copyright (C) 1996 MORIOKA Tomohiko
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1996/7/1
+;; Version:
+;;    $Id: latex-math-symbol.el,v 1.1 1996/12/22 00:35:05 steve Exp $
+;; Keywords: LaTeX, math, mule
+
+;; This file is part of MU (Message Utilities).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; - How to install
+;;	bytecompile this file and copy it to the apropriate directory.
+;; - How to use
+;;	If you use tm, please put following to your ~/.emacs:
+;;	  (autoload 'latex-math-decode-buffer "latex-math-symbol" nil t)
+;;	  (add-hook 'mime-viewer/plain-text-preview-hook
+;;		    'latex-math-decode-buffer)
+;;   Of course, it may be available for other hooks to filter messages.
+
+;;; Code:
+
+(defvar latex-math-symbol-table-alist
+  '(("\\pi"		. "$B&P(B")
+    
+    ("\\{"		. "$B!P(B")("\\}"		. "$B!Q(B")
+    
+    ("\\cdot"		. "$B!&(B")
+    ("\\times"		. "$B!_(B")
+    ("\\cap"		. "$B"A(B")("\\cup"		. "$B"@(B")
+    
+    ("\\leq"		. "$(C!B(B")("\\geq"		. "$(C!C(B")
+    ("\\le"		. "$(C!B(B")("\\ge"		. "$(C!C(B")
+    ("\\subseteq"	. "$B"<(B")("\\supseteq"	. "$B"=(B")
+    ("\\subset"		. "$B">(B")("\\supset"	. "$B"?(B")
+    ("\\in"		. "$B":(B")("\\ni"		. "$B";(B")
+    ("\\mid"		. "$B!C(B")
+    ("\\neq"		. "$B!b(B")("\\ne"		. "$B!b(B")
+    
+    ("\\forall"		. "$B"O(B")
+    
+    ("\\leftarrow"	. "$B"+(B")("\\rightarrow"	. "$B"*(B")
+    ("\\gets"		. "$B"+(B")("\\to"		. "$B"*(B")
+    
+    ("^1"		. ",A9(B")
+    ("^2"		. ",A2(B")
+    ("^3"		. ",A3(B")
+    ))
+
+(defun latex-math-decode-region (beg end)
+  (interactive "r")
+  (save-restriction
+    (narrow-to-region beg end)
+    (let ((rest latex-math-symbol-table-alist)
+	  cell)
+      (while rest
+	(setq cell (car rest))
+	(goto-char beg)
+	(while (search-forward (car cell) nil t)
+	  (replace-match (cdr cell))
+	  )
+	(setq rest (cdr rest))
+	))))
+
+(defun latex-math-decode-buffer ()
+  (interactive)
+  (latex-math-decode-region (point-min)(point-max))
+  )
+
+
+;;; @ end
+;;;
+
+(provide 'latex-math-symbol)
+
+;;; latex-math-symbol.el ends here