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
(require 'mcs-20)
-(provide 'mcs-e20)
+(require 'product)
+(product-provide (provide 'mcs-e20) (require 'apel-ver))
;;; mcs-e20.el ends here