* mcs-e20.el (x-ctext): Define coding system `x-ctext' if `ctext' is

[elisp/apel.git] / mcs-e20.el

diff --git a/mcs-e20.el b/mcs-e20.el
index 2903a0b..e18aa7b 100644 (file)
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -28,6 +28,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'static))
+
 (defsubst encode-mime-charset-region (start end charset &optional lbt)
   "Encode the text between START and END as MIME CHARSET."
   (let (cs)
@@ -153,6 +155,16 @@ Return nil if corresponding MIME-charset is not found."
       dest)
     ))
 
+(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."
+   '((ascii t) (latin-iso8859-1 t) t t
+     shoft ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
+     init-bol nil nil)
+   '((safe-charsets . t))))
+
+
 ;;; @ end
 ;;;