diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 11 | ||||
| -rw-r--r-- | 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 <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) ?/ ?,)) |