ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/utf7.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 " -%'-*,-[]-}" (#$ . 478))
#@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 "+\\~") (#$ . 602))
#@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) (#$ . 779))
#@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 (#$ . 1113)])
(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
\310P m?\205f \311w\210m\204& c\210`g\311w U\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 (#$ . 1366)])
#@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 (#$ . 1941)])
#@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!P m?\205c \315w\210m\204# \315u\210`\f\315w m\204H g\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 (#$ . 2502)])
#@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\203 b\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 (#$ . 3039)])
#@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 (#$ . 3555)])
#@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 (#$ . 4024)])
#@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\204 g\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 (#$ . 4351)])
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-enable-multibyte utf7-encode-internal buffer-string] 3 (#$ . 4748)])
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte utf7-decode-internal mm-enable-multibyte buffer-string] 3 (#$ . 5255)])
(provide 'utf7)
Kontol Shell Bypass