From 8422cc85e81d8749f02809edb1ee19dce934861f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sun, 22 Jun 2003 23:27:44 +0000 Subject: [PATCH] (utf-7-decode, utf-7-encode): Use utf-16be, not utf-16-be. --- lisp/ChangeLog | 11 +++++++++++ lisp/international/utf-7.el | 4 ++-- 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 + + * 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 * 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) ?/ ?,)) -- 2.39.5