;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:29 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/utf7.el
;;; in Emacs version 24.3.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.

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


(byte-code "\300\301!\210\300\302!\207" [require base64 mm-util] 2)
#@55 Character ranges which do not need escaping in UTF-7.
(defconst utf7-direct-encoding-chars " -%'-*,-[]-}" (#$ . 620))
#@75 Character ranges which do not need escaping in the IMAP variant of UTF-7.
(defconst utf7-imap-direct-encoding-chars (concat utf7-direct-encoding-chars "+\\~") (#$ . 744))
#@72 Coding system which encodes big endian UTF-16 without a BOM signature.
(defconst utf7-utf-16-coding-system (byte-code "\300\301!\203\301\207\300\302!\203\303\304\302\"G\305U\203\302\207\300\306!\205!\306\207" [mm-coding-system-p utf-16-be-no-signature utf-16-be encode-coding-string "a" 2 utf-16-be-nosig] 3) (#$ . 921))
#@70 Return required length of padding for IMAP modified base64 fragment.
(defalias 'utf7-imap-get-pad-length #[(len modulus) "\302[	\"\207" [len modulus mod] 3 (#$ . 1255)])
(put 'utf7-imap-get-pad-length 'byte-optimizer 'byte-compile-inline-expand)
#@91 Encode text in (temporary) buffer as UTF-7.
Use IMAP modification if FOR-IMAP is non-nil.
(defalias 'utf7-encode-internal #[(&optional for-imap) "ed\211}\210	b\210\n\203\306\202\307\n\203\f\202
\310Pm?\205f\311w\210m\204&c\210`g\311wU\203X\312U\203X\313\314!\210\202_\315`\n#\210\316c\210+\202&-\207" [end start for-imap esc-char utf7-imap-direct-encoding-chars utf7-direct-encoding-chars 38 43 "^" nil 1 delete-char -1 utf7-fragment-encode "-" direct-encoding-chars not-direct-encoding-chars run-length fc p] 5 (#$ . 1508)])
#@113 Encode text from START to END in buffer as UTF-7 escape fragment.
Use IMAP modification if FOR-IMAP is non-nil.
(defalias 'utf7-fragment-encode #[(start end &optional for-imap) "\214	}\210\306\307! \210\n\211\203\310\311!\210\312d\"\210\203!\310\313!\210)b\210d
\203:\314\315\311\313#\203:\316\317!\210\202+\320\fw\210`\f|*\207" [start end enable-multibyte-characters #1=#:multibyte pm for-imap utf7-get-u16char-converter to-utf-16 set-buffer-multibyte nil base64-encode-region t search-forward "/" replace-match "," "^= 	\n"] 5 (#$ . 2083)])
#@88 Decode UTF-7 text in (temporary) buffer.
Use IMAP modification if FOR-IMAP is non-nil.
(defalias 'utf7-decode-internal #[(&optional for-imap) "ed\211b\210\306\307\n\203\310\202\311!P\312\307\n\203\313\202 \314!Pm?\205c\315w\210m\204#\315u\210`\f\315wm\204Hg\316U\203H\317\320!\210
\321U\204_\212\322`\n#\210b\210\317\323!\210)*\202#,\207" [end start for-imap esc-pattern base64-chars run-length "^" char-to-string 38 43 "A-Za-z0-9+" 44 47 nil 45 delete-char 1 0 utf7-fragment-decode -1 p] 5 (#$ . 2644)])
#@121 Decode base64 encoded fragment from START to END of UTF-7 text in buffer.
Use IMAP modification if FOR-IMAP is non-nil.
(defalias 'utf7-fragment-decode #[(start end &optional for-imap) "\214	}\210\n\203b\210\306\307\310\311#\203\312\313!\210\202\f	Z\314\315\f[\"*\316
\317\"c\210\320	
\\\"\210)\321\322! )\207" [start end for-imap modulus len pl search-forward "," nil move-to-end replace-match "/" 4 mod make-string 61 base64-decode-region utf7-get-u16char-converter from-utf-16] 4 (#$ . 3181)])
#@72 Return a function to convert between UTF-16 and current character set.
(defalias 'utf7-get-u16char-converter #[(which-way) "\203	\302=\203\f\303\207\304\207	\302=\203\305\207\306\207" [utf7-utf-16-coding-system which-way to-utf-16 #[nil "\301ed#\207" [utf7-utf-16-coding-system encode-coding-region] 4] #[nil "\301ed#\207" [utf7-utf-16-coding-system decode-coding-region] 4] utf7-latin1-u16-char-converter utf7-u16-latin1-char-converter] 2 (#$ . 3697)])
#@123 Convert latin 1 (ISO-8859.1) characters to 16 bit Unicode.
Characters are converted to raw byte pairs in narrowed buffer.
(defalias 'utf7-latin1-u16-char-converter #[nil "\300ed\301#\210\302 \210eb\210m?\205\303c\210\304u\210\202\f\207" [mm-encode-coding-region iso-8859-1 mm-disable-multibyte 0 nil] 4 (#$ . 4166)])
#@113 Convert 16 bit Unicode characters to latin 1 (ISO-8859.1).
Characters are in raw byte pairs in narrowed buffer.
(defalias 'utf7-u16-latin1-char-converter #[nil "eb\210m\204g\300U\203\301\302!\210\202\303\304!\210\305u\210\202\306ed\307#\210\310 \207" [0 delete-char 1 error "Unable to convert from Unicode" nil mm-decode-coding-region iso-8859-1 mm-enable-multibyte] 4 (#$ . 4493)])
#@69 Encode UTF-7 STRING.  Use IMAP modification if FOR-IMAP is non-nil.
(defalias 'utf7-encode #[(string &optional for-imap) "\303\304!\203\303\305!\203\306	\203\305\202\304\"\207\307\310!r\nq\210\311\216\312 \210c\210\313	!\210\314 +\207" [string for-imap #1=#:temp-buffer coding-system-p utf-7 utf-7-imap encode-coding-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-enable-multibyte utf7-encode-internal buffer-string] 3 (#$ . 4890)])
#@69 Decode UTF-7 STRING.  Use IMAP modification if FOR-IMAP is non-nil.
(defalias 'utf7-decode #[(string &optional for-imap) "\303\304!\203\303\305!\203\306	\203\305\202\304\"\207\307\310!r\nq\210\311\216\312 \210c\210\313	!\210\314 \210\315 +\207" [string for-imap #1=#:temp-buffer coding-system-p utf-7 utf-7-imap decode-coding-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte utf7-decode-internal mm-enable-multibyte buffer-string] 3 (#$ . 5413)])
(provide 'utf7)