From: akr <akr>
Date: Tue, 13 Apr 1999 04:39:51 +0000 (+0000)
Subject: * mcs-e20.el (x-ctext): Use the definition in Emacs 20.4.
X-Git-Tag: apel-9_17~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=621d7ee959dc60f22460de9e6c8d1ec261de85a4;p=elisp%2Fapel.git

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

diff --git a/ChangeLog b/ChangeLog
index 5977a22..18ee823 100644
--- 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
--- 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