From: ueno <ueno>
Date: Tue, 12 Feb 2002 00:38:59 +0000 (+0000)
Subject: * liece-modules.el (liece-modules-to-compile): Add `liece-coding'.
X-Git-Tag: liece-1_4_7~12
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fliece.git;a=commitdiff_plain;h=4e0fc7d852d6a0417e6b1a595d82ace83f0776db

* liece-modules.el (liece-modules-to-compile): Add `liece-coding'.

* liece-coding.el (liece-mime-charset-for-write): Use
default-mime-charset-for-write as its default.
(liece-mime-charset-for-read): Use default-mime-charset as its
default.
---

diff --git a/lisp/liece-coding.el b/lisp/liece-coding.el
index deee745..2670cf6 100644
--- a/lisp/liece-coding.el
+++ b/lisp/liece-coding.el
@@ -40,12 +40,18 @@
   :prefix "liece-"
   :group 'liece)
   
-(defcustom liece-mime-charset-for-write 'iso-2022-jp-2
+(defcustom liece-mime-charset-for-write
+  (if (mime-charset-p 'iso-2022-jp-2)
+      'iso-2022-jp-2
+    default-mime-charset-for-write)
   "Charset used in any transferred messages."
   :type 'mime-charset
   :group 'liece-coding)
 
-(defcustom liece-mime-charset-for-read 'x-ctext
+(defcustom liece-mime-charset-for-read
+  (if (mime-charset-p 'x-ctext)
+      'x-ctext
+    default-mime-charset)
   "Charset used in any transferred messages."
   :type 'mime-charset
   :group 'liece-coding)
diff --git a/lisp/liece-modules.el b/lisp/liece-modules.el
index 14c5b5e..a41cd08 100644
--- a/lisp/liece-modules.el
+++ b/lisp/liece-modules.el
@@ -38,6 +38,7 @@
     liece-globals
     liece-inlines
     liece-filter
+    liece-coding
     liece-dcc
     liece-menu
     liece-000
@@ -70,11 +71,7 @@
 (if (fboundp 'set-face-stipple)
     (push 'bitmap-stipple liece-modules-to-compile))
 
-(if (featurep 'mule)
-    (push 'liece-coding liece-modules-to-compile))
-
 (require 'pccl)
-
 (unless-broken ccl-usable
   (push 'liece-q-ccl liece-modules-to-compile))