40 |
'utf-7 0 ?U |
'utf-7 0 ?U |
41 |
"UTF-7 encoding of Unicode (RFC 2152)" |
"UTF-7 encoding of Unicode (RFC 2152)" |
42 |
nil |
nil |
43 |
`((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars)) |
`((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars)) |
44 |
(mime-charset . utf-7) |
(mime-charset . utf-7) |
45 |
(pre-write-conversion . utf-7-pre-write-conversion) |
(pre-write-conversion . utf-7-pre-write-conversion) |
46 |
(post-read-conversion . utf-7-post-read-conversion))) |
(post-read-conversion . utf-7-post-read-conversion))) |
49 |
;; 'utf-7-imap 0 ?u |
;; 'utf-7-imap 0 ?u |
50 |
;; "UTF-7 encoding of Unicode, IMAP version (RFC 2060)" |
;; "UTF-7 encoding of Unicode, IMAP version (RFC 2060)" |
51 |
;; nil |
;; nil |
52 |
;; `((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars)) |
;; `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars)) |
53 |
;; (pre-write-conversion . utf-7-imap-pre-write-conversion) |
;; (pre-write-conversion . utf-7-imap-pre-write-conversion) |
54 |
;; (post-read-conversion . utf-7-imap-post-read-conversion))) |
;; (post-read-conversion . utf-7-imap-post-read-conversion))) |
55 |
|
|
75 |
(if imap |
(if imap |
76 |
(subst-char-in-region p (point) ?, ?/)) |
(subst-char-in-region p (point) ?, ?/)) |
77 |
(base64-decode-region p (point))) |
(base64-decode-region p (point))) |
78 |
(decode-coding-region p (point) 'utf-16-be) |
(decode-coding-region p (point) 'utf-16be) |
79 |
(save-excursion |
(save-excursion |
80 |
(goto-char p) |
(goto-char p) |
81 |
(delete-backward-char 1))))))) |
(delete-backward-char 1))))))) |
116 |
(save-restriction |
(save-restriction |
117 |
;; encode-coding-region doesn't preserve point |
;; encode-coding-region doesn't preserve point |
118 |
(narrow-to-region p (point)) |
(narrow-to-region p (point)) |
119 |
(encode-coding-region p (point-max) 'utf-16-be) |
(encode-coding-region p (point-max) 'utf-16be) |
120 |
(base64-encode-region p (point-max)) |
(base64-encode-region p (point-max)) |
121 |
(if imap |
(if imap |
122 |
(subst-char-in-region p (point-max) ?/ ?,)) |
(subst-char-in-region p (point-max) ?/ ?,)) |