X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mcs-e20.el;h=00b621e791bd41a44029eec487941c1b8540b9ae;hb=b90a989b0f007933a98e9b7c5706c5d0a81c545d;hp=00b699d3e3d0c2da8011fe507a6c4c34e2fd53ef;hpb=7676472c8a29e8435bd7937f1aa95d6db9603f0b;p=elisp%2Fapel.git

diff --git a/mcs-e20.el b/mcs-e20.el
index 00b699d..00b621e 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -158,19 +158,20 @@ Return nil if corresponding MIME-charset is not found."
       dest)
     ))
 
-(static-when (or (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
-		 (find-coding-system 'x-ctext))
-  (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)))
-      ))
+(static-when (and (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
+		  (or (not (find-coding-system 'x-ctext))
+		      (coding-system-get 'x-ctext 'apel)))
+  (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
@@ -178,6 +179,7 @@ Return nil if corresponding MIME-charset is not found."
 
 (require 'mcs-20)
 
-(provide 'mcs-e20)
+(require 'product)
+(product-provide (provide 'mcs-e20) (require 'apel-ver))
 
 ;;; mcs-e20.el ends here