From: morioka <morioka>
Date: Tue, 6 Oct 1998 15:49:37 +0000 (+0000)
Subject: Move `mime-charset-list' to mcs-e20.el and mcs-xm.el.
X-Git-Tag: apel-9_1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ede37f9f4d11a6ee072e3093871f6fda2f314ffc;p=elisp%2Fapel.git

Move `mime-charset-list' to mcs-e20.el and mcs-xm.el.
---

diff --git a/mcs-20.el b/mcs-20.el
index b98a1ef..e608ac3 100644
--- a/mcs-20.el
+++ b/mcs-20.el
@@ -38,24 +38,24 @@
 ;;;
 
 (defcustom mime-charset-coding-system-alist
-  `,(let ((rest
-	   '((us-ascii      . raw-text)
-	     (gb2312	    . cn-gb-2312)
-	     (cn-gb	    . cn-gb-2312)
-	     (iso-2022-jp-2 . iso-2022-7bit-ss2)
-	     (x-ctext       . ctext)
-	     (unknown       . undecided)
-	     (x-unknown     . undecided)
-	     ))
-	  dest)
-      (while rest
-	(let ((pair (car rest)))
-	  (or (find-coding-system (car pair))
-	      (setq dest (cons pair dest))
-	      ))
-	(setq rest (cdr rest))
-	)
-      dest)
+  (let ((rest
+	 '((us-ascii      . raw-text)
+	   (gb2312	  . cn-gb-2312)
+	   (cn-gb	  . cn-gb-2312)
+	   (iso-2022-jp-2 . iso-2022-7bit-ss2)
+	   (x-ctext       . ctext)
+	   (unknown       . undecided)
+	   (x-unknown     . undecided)
+	   ))
+	dest)
+    (while rest
+      (let ((pair (car rest)))
+	(or (find-coding-system (car pair))
+	    (setq dest (cons pair dest))
+	    ))
+      (setq rest (cdr rest))
+      )
+    dest)
   "Alist MIME CHARSET vs CODING-SYSTEM.
 MIME CHARSET and CODING-SYSTEM must be symbol."
   :group 'i18n
@@ -84,12 +84,6 @@ is specified, it is used as line break code type of coding-system."
       charset
     ))
 
-(defsubst mime-charset-list ()
-  "Return a list of all existing MIME-charset."
-  (nconc (mapcar (function car) mime-charset-coding-system-alist)
-	 (coding-system-list)))
-
-
 (defvar widget-mime-charset-prompt-value-history nil
   "History of input to `widget-mime-charset-prompt-value'.")