78 |
(if imap |
(if imap |
79 |
(subst-char-in-region p (point) ?, ?/)) |
(subst-char-in-region p (point) ?, ?/)) |
80 |
(base64-decode-region p (point))) |
(base64-decode-region p (point))) |
81 |
(decode-coding-region p (point) 'utf-16-be) |
(decode-coding-region p (point) 'utf-16be) |
82 |
(save-excursion |
(save-excursion |
83 |
(goto-char p) |
(goto-char p) |
84 |
(delete-backward-char 1))))))) |
(delete-backward-char 1))))))) |
120 |
(save-restriction |
(save-restriction |
121 |
;; encode-coding-region doesn't preserve point |
;; encode-coding-region doesn't preserve point |
122 |
(narrow-to-region p (point)) |
(narrow-to-region p (point)) |
123 |
(encode-coding-region p (point-max) 'utf-16-be) |
(encode-coding-region p (point-max) 'utf-16be) |
124 |
(base64-encode-region p (point-max)) |
(base64-encode-region p (point-max)) |
125 |
(if imap |
(if imap |
126 |
(subst-char-in-region p (point-max) ?/ ?,)) |
(subst-char-in-region p (point-max) ?/ ?,)) |