From: yamaoka <yamaoka>
Date: Fri, 21 Jun 2002 01:06:05 +0000 (+0000)
Subject: * mcs-e20.el (charsets-mime-charset-alist): Add Latin8 and Latin9 charsets.
X-Git-Tag: apel-10_4~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e3088ca5758f55f4babb48d98722783827adabf1;p=elisp%2Fapel.git

* mcs-e20.el (charsets-mime-charset-alist): Add Latin8 and Latin9 charsets.
 Suggested by Tatsuya Kinoshita <tats@iris.ne.jp>.
* mcs-xm.el (charsets-mime-charset-alist): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index c1d867c..be07e2e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-06-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mcs-e20.el (charsets-mime-charset-alist): Add Latin8 and Latin9
+	charsets.  Suggested by Tatsuya Kinoshita <tats@iris.ne.jp>.
+	* mcs-xm.el (charsets-mime-charset-alist): Ditto.
+
 2002-05-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* pccl.el (ccl-usable): Make non-MULE XEmacs don't require `ccl'
diff --git a/mcs-e20.el b/mcs-e20.el
index 84a4694..9de5f5f 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -66,7 +66,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)
@@ -77,6 +77,10 @@
     ((ascii greek-iso8859-7)				. iso-8859-7)
     ((ascii hebrew-iso8859-8)				. iso-8859-8)
     ((ascii latin-iso8859-9)				. iso-8859-9)
+    ,(if (find-coding-system 'iso-8859-14)
+	 '((ascii latin-iso8859-14)			. iso-8859-14))
+    ,(if (find-coding-system 'iso-8859-15)
+	 '((ascii latin-iso8859-15)			. iso-8859-15))
     ((ascii latin-jisx0201
 	    japanese-jisx0208-1978 japanese-jisx0208)	. iso-2022-jp)
     ((ascii latin-jisx0201
diff --git a/mcs-xm.el b/mcs-xm.el
index cc484eb..9e568c1 100644
--- a/mcs-xm.el
+++ b/mcs-xm.el
@@ -114,6 +114,10 @@
     ((ascii greek-iso8859-7)				. iso-8859-7)
     ((ascii hebrew-iso8859-8)				. iso-8859-8)
     ((ascii latin-iso8859-9)				. iso-8859-9)
+    ,(if (find-coding-system 'iso-8859-14)
+	 '((ascii latin-iso8859-14)			. iso-8859-14))
+    ,(if (find-coding-system 'iso-8859-15)
+	 '((ascii latin-iso8859-15)			. iso-8859-15))
     ,(if (featurep 'utf-2000)
 	 '((ascii latin-jisx0201
 		  japanese-jisx0208-1978