From: tomo <tomo>
Date: Tue, 12 Dec 2000 05:17:14 +0000 (+0000)
Subject: (charsets-mime-charset-alist): Add coded-charset
X-Git-Tag: apel-10_3~46
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5328760d0d4ddb43f2c6f26b49e413cb93a5ee83;p=elisp%2Fapel.git

(charsets-mime-charset-alist): Add coded-charset
`japanese-jisx0208-1990' to MIME-charset `iso-2022-jp' and
`iso-2022-jp-2' in UTF-2000; add new MIME-charset `iso-2022-jp-3'.
---

diff --git a/mcs-xm.el b/mcs-xm.el
index 0fd6d8d..dceb1dd 100644
--- a/mcs-xm.el
+++ b/mcs-xm.el
@@ -103,7 +103,7 @@
 
 
 (defvar charsets-mime-charset-alist
-  '(((ascii)						. us-ascii)
+  `(((ascii)						. us-ascii)
     ((ascii latin-iso8859-1)				. iso-8859-1)
     ((ascii latin-iso8859-2)				. iso-8859-2)
     ((ascii latin-iso8859-3)				. iso-8859-3)
@@ -114,18 +114,48 @@
     ((ascii greek-iso8859-7)				. iso-8859-7)
     ((ascii hebrew-iso8859-8)				. iso-8859-8)
     ((ascii latin-iso8859-9)				. iso-8859-9)
-    ((ascii latin-jisx0201
-	    japanese-jisx0208-1978 japanese-jisx0208)	. iso-2022-jp)
-    ((ascii latin-jisx0201
-	    katakana-jisx0201 japanese-jisx0208)	. shift_jis)
+    ,(if (featurep 'utf-2000)
+	 '((ascii latin-jisx0201
+		  japanese-jisx0208-1978
+		  japanese-jisx0208
+		  japanese-jisx0208-1990)		. iso-2022-jp)
+       '((ascii latin-jisx0201
+		japanese-jisx0208-1978 japanese-jisx0208)
+	 . iso-2022-jp))
+    ,(if (featurep 'utf-2000)
+	 '((ascii latin-jisx0201
+		  japanese-jisx0208-1978
+		  japanese-jisx0208
+		  japanese-jisx0208-1990
+		  japanese-jisx0213-1
+		  japanese-jisx0213-2)			. iso-2022-jp-3)
+       '((ascii latin-jisx0201
+		japanese-jisx0208-1978 japanese-jisx0208
+		japanese-jisx0213-1
+		japanese-jisx0213-2)			. iso-2022-jp-3))
+    ,(if (featurep 'utf-2000)
+	 '((ascii latin-jisx0201 katakana-jisx0201
+		  japanese-jisx0208-1990)		. shift_jis)
+       '((ascii latin-jisx0201
+		katakana-jisx0201 japanese-jisx0208)	. shift_jis))
     ((ascii korean-ksc5601)				. euc-kr)
     ((ascii chinese-gb2312)				. gb2312)
     ((ascii chinese-big5-1 chinese-big5-2)		. big5)
     ((ascii thai-xtis)					. tis-620)
-    ((ascii latin-iso8859-1 greek-iso8859-7
-	    latin-jisx0201 japanese-jisx0208-1978
-	    chinese-gb2312 japanese-jisx0208
-	    korean-ksc5601 japanese-jisx0212)		. iso-2022-jp-2)
+    ,(if (featurep 'utf-2000)
+	 '((ascii latin-jisx0201 latin-iso8859-1
+		  greek-iso8859-7
+		  japanese-jisx0208-1978 japanese-jisx0208
+		  japanese-jisx0208-1990
+		  japanese-jisx0212
+		  chinese-gb2312
+		  korean-ksc5601)		. iso-2022-jp-2)
+       '((ascii latin-jisx0201 latin-iso8859-1
+		greek-iso8859-7
+		japanese-jisx0208-1978 japanese-jisx0208
+		japanese-jisx0212
+		chinese-gb2312
+		korean-ksc5601)			. iso-2022-jp-2))
     ;; ((ascii latin-iso8859-1 greek-iso8859-7
     ;;         latin-jisx0201 japanese-jisx0208-1978
     ;;         chinese-gb2312 japanese-jisx0208