diff options
author | Kenichi Handa <[email protected]> | 2003-06-21 02:25:38 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2003-06-21 02:25:38 +0000 |
commit | 9ef9b28e03a8f88556d563ad6eebe01dd3c176a6 (patch) | |
tree | c7877e1264406f5bfa48be198f1b5d684a49f6a6 /lisp/international/utf-7.el | |
parent | 566f38a0e0db1af7575b3f8babd3deb24d28248f (diff) |
Adjusted for the name change: xxx-utf-16-{le,be} -> xxx-utf-16{le,be}.
Diffstat (limited to 'lisp/international/utf-7.el')
-rw-r--r-- | lisp/international/utf-7.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/utf-7.el b/lisp/international/utf-7.el index 4e453c4145..842d81c92a 100644 --- a/lisp/international/utf-7.el +++ b/lisp/international/utf-7.el @@ -40,7 +40,7 @@ 'utf-7 0 ?U "UTF-7 encoding of Unicode (RFC 2152)" nil - `((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars)) + `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars)) (mime-charset . utf-7) (pre-write-conversion . utf-7-pre-write-conversion) (post-read-conversion . utf-7-post-read-conversion))) @@ -49,7 +49,7 @@ ;; 'utf-7-imap 0 ?u ;; "UTF-7 encoding of Unicode, IMAP version (RFC 2060)" ;; nil -;; `((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars)) +;; `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars)) ;; (pre-write-conversion . utf-7-imap-pre-write-conversion) ;; (post-read-conversion . utf-7-imap-post-read-conversion))) @@ -75,7 +75,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))))))) @@ -116,7 +116,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) ?/ ?,)) |