* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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