;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@93 Decode LEN bytes of UTF-7 at point.
IMAP non-nil means use the IMAP version.

(fn LEN IMAP)
(defalias 'utf-7-decode #[514 "\212\214``\\}\210\211\203\300\202\301
\203\302\202\303m\204m
\304w\210m\204\304u\210`
\304w\304f\305=\2038\306\307!\210\211\310U\204h\311
[\312\"\313\314\"\210\203S\315`\316\317$\210\320`\"\266\321`\322#\210\212
b\210\306\323!\210)\266\202\266deZ*\207" ["^&" "^+" "A-Za-z0-9+," "A-Za-z0-9+/" nil 45 delete-char 1 0 mod 4 insert-char 61 subst-char-in-region 44 47 base64-decode-region decode-coding-region utf-16be -1] 12 (#$ . 84)])
#@12 

(fn LEN)
(defalias 'utf-7-post-read-conversion #[257 "\300
\301\"\207" [utf-7-decode nil] 4 (#$ . 671)])
#@12 

(fn LEN)
(defalias 'utf-7-imap-post-read-conversion #[257 "\300
\301\"\207" [utf-7-decode t] 4 (#$ . 784)])
#@129 Encode bytes between FROM and TO to UTF-7.
ESC and SKIP-CHARS are adjusted for the normal and IMAP versions.

(fn FROM TO IMAP)
(defalias 'utf-7-encode #[771 "p
\203	\300\202\n\301\203\302\202\303\304\305#\306\307!q\210;\203*c\210\2022\310#\210eb\210m\204\217
\311w\210\311f=\203M\311u\210\312c\210\2025m\2045c\210`
\311w\210\214\211`}\210\313
d\314#\210\315
d\"\210\203t\316
d\317\320$\210\211b\210\321\311w\210`d|\210)\210\204\211m\2045\312c\210\2025\311\207" [38 43 "	\n
 -%'-~" "	\n
 -*,-[]-}" format "^%s%c" generate-new-buffer " *temp*" insert-buffer-substring nil 45 encode-coding-region utf-16be base64-encode-region subst-char-in-region 47 44 "^= 	\n"] 13 (#$ . 901)])
#@16 

(fn FROM TO)
(defalias 'utf-7-pre-write-conversion #[514 "\300\301#\207" [utf-7-encode nil] 6 (#$ . 1617)])
#@16 

(fn FROM TO)
(defalias 'utf-7-imap-pre-write-conversion #[514 "\300\301#\207" [utf-7-encode t] 6 (#$ . 1735)])
(provide 'utf-7)