From d28f626ed87dfedad2c74d3ded6787d0083cb04e Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Fri, 22 Oct 1999 06:58:51 +0000
Subject: [PATCH] New file.

---
 mcs-xmu.el |  100 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 100 insertions(+)
 create mode 100644 mcs-xmu.el

diff --git a/mcs-xmu.el b/mcs-xmu.el
new file mode 100644
index 0000000..dadc2cf
--- /dev/null
+++ b/mcs-xmu.el
@@ -0,0 +1,100 @@
+;;; mcs-xmu.el --- Functions to unify ISO646 characters for XEmacs-mule
+
+;; Copyright (C) 1997,1998,1999 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Keywords: emulation, compatibility, Mule
+
+;; This file is part of APEL (A Portable Emacs Library).
+
+;; 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 GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;    This module will be loaded from mcs-xm automatically.
+;;    There is no guarantee that it will work alone.
+
+;;; Code:
+
+(defcustom mime-iso646-character-unification-alist
+  (eval-when-compile
+    (let (dest
+	  (i 33))
+      (while (< i 92)
+	(setq dest
+	      (cons (cons (char-to-string (make-char 'latin-jisx0201 i))
+			  (format "%c" i))
+		    dest))
+	(setq i (1+ i)))
+      (setq i 93)
+      (while (< i 126)
+	(setq dest
+	      (cons (cons (char-to-string (make-char 'latin-jisx0201 i))
+			  (format "%c" i))
+		    dest))
+	(setq i (1+ i)))
+      (nreverse dest)))
+  "Alist unified string vs. canonical string."
+  :group 'i18n
+  :type '(repeat (cons string string)))
+
+(defcustom mime-unified-character-face nil
+  "Face of unified character."
+  :group 'i18n
+  :type 'face)
+
+(defcustom mime-character-unification-limit-size 2048
+  "Limit size to unify characters.  It is referred by the function
+`decode-mime-charset-region-with-iso646-unification'.  If the length of
+the specified region (start end) is larger than its value, the function
+works for only decoding MIME-CHARSET.  If it is nil, size is unlimited."
+  :group 'i18n
+  :type '(radio (integer :tag "Max size")
+		(const :tag "Unlimited" nil)))
+
+(defun decode-mime-charset-region-with-iso646-unification (start end charset
+								 lbt)
+  (save-excursion
+    (save-restriction
+      (narrow-to-region start end)
+      (if (prog1
+	      (or (null mime-character-unification-limit-size)
+		  (<= (- end start) mime-character-unification-limit-size))
+	    (decode-mime-charset-region-default start end charset lbt))
+	  (let ((rest mime-iso646-character-unification-alist))
+	    (while rest
+	      (let ((pair (car rest))
+		    case-fold-search)
+		(goto-char (point-min))
+		(while (search-forward (car pair) nil t)
+		  (let ((str (cdr pair)))
+		    (if mime-unified-character-face
+			(put-text-property
+			 0 (length str)
+			 'face mime-unified-character-face str))
+		    (replace-match str 'fixed-case 'literal)
+		    )
+		  ))
+	      (setq rest (cdr rest)))))
+      )))
+
+
+;;; @ end
+;;;
+
+(provide 'mcs-xmu)
+
+;;; mcs-xmu.el ends here
-- 
1.7.10.4