From 621d7ee959dc60f22460de9e6c8d1ec261de85a4 Mon Sep 17 00:00:00 2001 From: akr Date: Tue, 13 Apr 1999 04:39:51 +0000 Subject: [PATCH 1/1] * mcs-e20.el (x-ctext): Use the definition in Emacs 20.4. --- ChangeLog | 4 ++++ mcs-e20.el | 9 +++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5977a22..18ee823 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1999-04-13 Tanaka Akira + + * mcs-e20.el (x-ctext): Use the definition in Emacs 20.4. + 1999-04-11 Tanaka Akira * 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 -- 1.7.10.4