;ELC   
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@78 Decode LEN bytes of UTF-7 at point.
IMAP non-nil means use the IMAP version.
(defalias 'utf-7-decode #[(len imap) "\212\214``\\}\210	\203 \306\202 \307	\203 \310\202 \311m\204s \312w\210m\204 \312u\210`\n\312w\312f\313=\203< \314\315!\210\f\316U\204o \317\f[\320\"\321\322\"\210	\203Z \323`\324\325$\210\326`\"\210)\327`\330#\210\212b\210\314\331!\210)*\202 *deZ*\207" [len imap skip-chars not-esc run-length p "^&" "^+" "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 pl] 5 (#$ . 408)])
(defalias 'utf-7-post-read-conversion #[(len) "\301\302\"\207" [len utf-7-decode nil] 3])
(defalias 'utf-7-imap-post-read-conversion #[(len) "\301\302\"\207" [len utf-7-decode t] 3])
#@110 Encode bytes between FROM and TO to UTF-7.
ESC and SKIP-CHARS are adjusted for the normal and IMAP versions.
(defalias 'utf-7-encode #[(from to imap) "p	\203\n \306\202 \307	\203 \310\202 \311\312\313\n#\314\315!q\210;\203, c\210\2023 \316#\210eb\210m\204\226 \317w\210\n\317f=\203N \317u\210\320c\210\2026 m\2046 \nc\210`\f\317w\210\214`}\210\321d\322#\210\323d\"\210	\203{ \324d\325\326$\210b\210\327\317w\210`d|\210*	\204\220 m\2046 \320c\210\2026 ,\317\207" [old-buf imap esc skip-chars not-skip-chars from 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" to p] 5 (#$ . 1213)])
(defalias 'utf-7-pre-write-conversion #[(from to) "\302	\303#\207" [from to utf-7-encode nil] 4])
(defalias 'utf-7-imap-pre-write-conversion #[(from to) "\302	\303#\207" [from to utf-7-encode t] 4])
(provide 'utf-7)