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

2 files changed, 13 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fef0eec6fa..c5a9b1b6e87 100644
--- 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 f45c7cd905a..087d3042de2 100644
--- 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) ?/ ?,))