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