X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mcs-e20.el;h=00b621e791bd41a44029eec487941c1b8540b9ae;hb=6a035e2edc196d6f1f0482c4fec18332388313bf;hp=824582ffb0a07c605ff1566c00a676678388a2df;hpb=e47c19a9f98b560818385fb4fd7dca6b14f36767;p=elisp%2Fapel.git

diff --git a/mcs-e20.el b/mcs-e20.el
index 824582f..00b621e 100644
--- a/mcs-e20.el
+++ b/mcs-e20.el
@@ -1,8 +1,8 @@
 ;;; mcs-e20.el --- MIME charset implementation for Emacs 20.1 and 20.2
 
-;; Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997,1998,1999 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -28,6 +28,11 @@
 
 ;;; Code:
 
+(eval-when-compile
+  (require 'static)
+  (require 'poem)
+  )
+
 (defsubst encode-mime-charset-region (start end charset &optional lbt)
   "Encode the text between START and END as MIME CHARSET."
   (let (cs)
@@ -81,6 +86,7 @@
     ((ascii korean-ksc5601)				. euc-kr)
     ((ascii chinese-gb2312)				. gb2312)
     ((ascii chinese-big5-1 chinese-big5-2)		. big5)
+    ((ascii thai-tis620 composition)			. tis-620)
     ((ascii latin-iso8859-1 greek-iso8859-7
 	    latin-jisx0201 japanese-jisx0208-1978
 	    chinese-gb2312 japanese-jisx0208
@@ -152,11 +158,28 @@ Return nil if corresponding MIME-charset is not found."
       dest)
     ))
 
+(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