(utf-7-decode, utf-7-encode): Use utf-16be, not utf-16-be.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fef0eec6fa2b45e4650094ac8e91f590d9fe572..c5a9b1b6e87b93f449adc66656f09fdc0490dcdf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2003-06-23  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule-conf.el (utf-16-be): Make it an alias of
+       utf-16be-with-signature.
+       (utf-16-le): Make it an alias of utf-16le-with-signature.
+       (utf-16-be-with-signature, utf-16-le-with-signature): Remove these
+       coding system aliases.
+
+       * international/utf-7.el (utf-7-decode, utf-7-encode): Use
+       utf-16be, not utf-16-be.
+
 2003-06-06  Kenichi Handa  <handa@m17n.org>
 
        * international/mule.el (coding-system-category): New function.

diff --git a/lisp/international/utf-7.el b/lisp/international/utf-7.el
index f45c7cd905ae190d39e88ecec9941d1d11f2a226..087d3042de22097df4fa09fa6b84cd70e7d678e6 100644 (file)
--- a/lisp/international/utf-7.el
+++ b/lisp/international/utf-7.el
@@ -78,7 +78,7 @@ IMAP non-nil means use the IMAP version."
                  (if imap
                      (subst-char-in-region p (point) ?, ?/))
                  (base64-decode-region p (point)))
-               (decode-coding-region p (point) 'utf-16-be)
+               (decode-coding-region p (point) 'utf-16be)
                (save-excursion
                  (goto-char p)
                  (delete-backward-char 1)))))))
@@ -120,7 +120,7 @@ ESC and SKIP-CHARS are adjusted for the normal and IMAP versions."
            (save-restriction
              ;; encode-coding-region doesn't preserve point
              (narrow-to-region p (point))
-             (encode-coding-region p (point-max) 'utf-16-be)
+             (encode-coding-region p (point-max) 'utf-16be)
              (base64-encode-region p (point-max))
              (if imap
                  (subst-char-in-region p (point-max) ?/ ?,))