(coding-system-to-mime-charset): New function.

(mime-charset-list): New implementation.

diff --git a/mcs-e20.el b/mcs-e20.el
index a2dc36d..f46d491 100644 (file)
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -102,6 +102,29 @@
     ))
 
 
+(defun coding-system-to-mime-charset (coding-system)
+  "Convert CODING-SYSTEM to a MIME-charset.
+Return nil if corresponding MIME-charset is not found."
+  (or (car (rassq coding-system mime-charset-coding-system-alist))
+      (coding-system-get coding-system 'mime-charset)))
+
+(defun mime-charset-list ()
+  "Return a list of all existing MIME-charset."
+  (let ((dest (mapcar (function car) mime-charset-coding-system-alist))
+       (rest coding-system-list)
+       cs)
+    (while rest
+      (setq cs (car rest))
+      (unless (rassq cs mime-charset-coding-system-alist)
+       (if (setq cs (coding-system-get cs 'mime-charset))
+           (or (rassq cs mime-charset-coding-system-alist)
+               (memq cs dest)  
+               (setq dest (cons cs dest))
+               )))
+      (setq rest (cdr rest)))
+    dest))
+
+
 ;;; @ end
 ;;;
 

diff --git a/mcs-xm.el b/mcs-xm.el
index 09789a9..fdc565d 100644 (file)
--- a/mcs-xm.el
+++ b/mcs-xm.el
@@ -57,7 +57,8 @@
       )))
 
 (defcustom mime-iso646-character-unification-alist
-  `,(let (dest
+  (eval-when-compile
+    (let (dest
          (i 33))
       (while (< i 92)
        (setq dest
@@ -72,7 +73,7 @@
                          (format "%c" i))
                    dest))
        (setq i (1+ i)))
-      (nreverse dest))
+      (nreverse dest)))
   "Alist unified string vs. canonical string."
   :group 'i18n
   :type '(repeat (cons string string)))
@@ -176,6 +177,28 @@
     ))
 
 
+(defun coding-system-to-mime-charset (coding-system)
+  "Convert CODING-SYSTEM to a MIME-charset.
+Return nil if corresponding MIME-charset is not found."
+  (setq coding-system
+       (coding-system-name (coding-system-base coding-system)))
+  (or (car (rassq coding-system mime-charset-coding-system-alist))
+      coding-system))
+
+(defun mime-charset-list ()
+  "Return a list of all existing MIME-charset."
+  (let ((dest (mapcar (function car) mime-charset-coding-system-alist))
+       (rest (coding-system-list))
+       cs)
+    (while rest
+      (setq cs (coding-system-name (coding-system-base (car rest))))
+      (or (rassq cs mime-charset-coding-system-alist)
+         (memq cs dest)
+         (setq dest (cons cs dest)))
+      (setq rest (cdr rest)))
+    dest))
+
+
 ;;; @ end
 ;;;