diff lisp/international/mule-conf.el @ 88503:d864d6412004

(utf-8-emacs): Add various :mime-charset properties.

--- a/lisp/international/mule-conf.el	Tue May 14 10:16:42 2002 +0000
+++ b/lisp/international/mule-conf.el	Tue May 14 10:17:56 2002 +0000
@@ -675,13 +675,15 @@
   "Support for all Emacs characters (including non-Unicode characters)."
   :coding-type 'utf-8
   :mnemonic ?U
-  :charset-list '(emacs))
+  :charset-list '(emacs)
+  :mime-charset 'utf-8)
 
 (define-coding-system 'utf-16
   "UTF-16"
   :coding-type 'utf-16
   :mnemonic ?U
-  :charset-list '(unicode))
+  :charset-list '(unicode)
+  :mime-charset 'utf-16)
 
 (define-coding-system 'utf-16-le-nosig
   "UTF-16, little endian, no signature"
@@ -703,7 +705,8 @@
   :mnemonic ?U
   :charset-list '(unicode)
   :bom t
-  :endian 'little)
+  :endian 'little
+  :mime-charset 'utf-16-le)
 
 (define-coding-system 'utf-16-be
   "UTF-16, big endian, with signature"
@@ -711,7 +714,8 @@
   :mnemonic ?U
   :charset-list '(unicode)
   :bom t
-  :endian 'big)
+  :endian 'big
+  :mime-charset 'utf-16-be)
 
 (define-coding-system 'iso-2022-7bit
   "ISO 2022 based 7-bit encoding using only G0"
@@ -780,6 +784,8 @@
   :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]
   :flags '(ascii-at-eol ascii-at-cntl
 			designation locking-shift single-shift composition)
+  ;; Fixme: this isn't a valid MIME charset and has to be
+  ;; special-cased elsewhere  -- fx
   :mime-charset 'x-ctext)
 
 (define-coding-system-alias  'x-ctext 'compound-text)