From 01db7d1b0d42165b018c790533d54ee9696f9658 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 8 May 1999 10:23:58 +0000 Subject: [PATCH] Fix checking code about coding-system `x-ctext'. --- mcs-e20.el | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/mcs-e20.el b/mcs-e20.el index 7eae509..f8257d1 100644 --- a/mcs-e20.el +++ b/mcs-e20.el @@ -159,18 +159,20 @@ Return nil if corresponding MIME-charset is not found." )) (static-when (and (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!") - (not (find-coding-system 'x-ctext))) + (or (not (find-coding-system 'x-ctext)) + (coding-system-get 'x-ctext 'apel))) (require 'poem) - (or (find-coding-system 'x-ctext) - (make-coding-system - 'x-ctext 2 ?x - "Compound text based generic encoding for decoding unknown messages." - '((ascii t) (latin-iso8859-1 t) t t - nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil - init-bol nil nil) - '((safe-charsets . t) - (mime-charset . x-ctext))) - )) + (unless (find-coding-system 'x-ctext) + (make-coding-system + 'x-ctext 2 ?x + "Compound text based generic encoding for decoding unknown messages." + '((ascii t) (latin-iso8859-1 t) t t + nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil + init-bol nil nil) + '((safe-charsets . t) + (mime-charset . x-ctext))) + (coding-system-put 'x-ctext 'apel t) + )) ;;; @ end -- 1.7.10.4