[Emacs-diffs] Changes to emacs/lisp/international/utf-7.el [emacs-unicode]

[Kenichi Handa]

Index: emacs/lisp/international/utf-7.el
diff -c emacs/lisp/international/utf-7.el:1.1.2.1 
emacs/lisp/international/utf-7.el:1.1.2.2
*** emacs/lisp/international/utf-7.el:1.1.2.1   Thu May  8 13:55:30 2003
--- emacs/lisp/international/utf-7.el   Sun Jun 22 19:27:26 2003
***************
*** 78,84 ****
                  (if imap
                      (subst-char-in-region p (point) ?, ?/))
                  (base64-decode-region p (point)))
!               (decode-coding-region p (point) 'utf-16-be)
                (save-excursion
                  (goto-char p)
                  (delete-backward-char 1)))))))
--- 78,84 ----
                  (if imap
                      (subst-char-in-region p (point) ?, ?/))
                  (base64-decode-region p (point)))
!               (decode-coding-region p (point) 'utf-16be)
                (save-excursion
                  (goto-char p)
                  (delete-backward-char 1)))))))
***************
*** 120,126 ****
            (save-restriction
              ;; encode-coding-region doesn't preserve point
              (narrow-to-region p (point))
!             (encode-coding-region p (point-max) 'utf-16-be)
              (base64-encode-region p (point-max))
              (if imap
                  (subst-char-in-region p (point-max) ?/ ?,))
--- 120,126 ----
            (save-restriction
              ;; encode-coding-region doesn't preserve point
              (narrow-to-region p (point))
!             (encode-coding-region p (point-max) 'utf-16be)
              (base64-encode-region p (point-max))
              (if imap
                  (subst-char-in-region p (point-max) ?/ ?,))