* mcs-e20.el (x-ctext): Use the definition in Emacs 20.4.

diff --git a/ChangeLog b/ChangeLog
index 5977a22..18ee823 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1999-04-13  Tanaka Akira  <akr@jaist.ac.jp>
+
+       * mcs-e20.el (x-ctext): Use the definition in Emacs 20.4.
+
 1999-04-11  Tanaka Akira  <akr@jaist.ac.jp>
 
        * mcs-e20.el (x-ctext): Define coding system `x-ctext' if `ctext'

diff --git a/mcs-e20.el b/mcs-e20.el
index e18aa7b..f5c5e36 100644 (file)
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -157,12 +157,13 @@ Return nil if corresponding MIME-charset is not found."
 
 (static-when (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
   (make-coding-system
-   'x-ctext 2 ?f
-   "ISO 2022 based generic encoding for decoding unknown messages."
+   'x-ctext 2 ?x
+   "Compound text based generic encoding for decoding unknown messages."
    '((ascii t) (latin-iso8859-1 t) t t
-     shoft ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
+     nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
      init-bol nil nil)
-   '((safe-charsets . t))))
+   '((safe-charsets . t)
+     (mime-charset . x-ctext))))
 
 
 ;;; @ end