(mm-charset-synonym-alist): Map "unicode" to

"utf-16-le".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 718a2e6..35d298b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-20  Simon Josefsson  <jas@extundo.com>
+
+       * mm-util.el (mm-charset-synonym-alist): Map "unicode" to
+       "utf-16-le".
+
 2004-09-19  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * uudecode.el (uudecode-use-external): Add :version.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 55c9a34..32ce5d6 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -160,6 +160,10 @@ system object in XEmacs."
               (mm-coding-system-p 'cp1250))
          '((windows-1250 . cp1250)))
     ;; A Microsoft misunderstanding.
+    ,@(if (and (not (mm-coding-system-p 'unicode))
+              (mm-coding-system-p 'utf-16-le))
+         '((unicode . utf-16-le)))
+    ;; A Microsoft misunderstanding.
     ,@(unless (mm-coding-system-p 'ks_c_5601-1987)
        (if (mm-coding-system-p 'cp949)
            '((ks_c_5601-1987 . cp949))