;;; 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).
;;; 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)
((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
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
;;;