ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/rfc2047.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!\210\300\303!\210\300\304!\210\305\306\307\"\207" [require mm-util ietf-drums mail-prsvr rfc2045 autoload mm-body-7-or-8 "mm-bodies"] 3)
#@549 *Header/encoding method alist.
The list is traversed sequentially. The keys can either be
header regexps or t.
The values can be:
1) nil, in which case no encoding is done;
2) `mime', in which case the header will be encoded according to RFC2047;
3) `address-mime', like `mime', but takes account of the rules for address
fields (where quoted strings and comments must be treated separately);
4) a charset, in which case it will be encoded as that charset;
5) `default', in which case the field will be encoded as the rest
of the article.
(defvar rfc2047-header-encoding-alist '(("Newsgroups") ("Followup-To") ("Message-ID") ("\\(Resent-\\)?\\(From\\|Cc\\|To\\|Bcc\\|\\(In-\\)?Reply-To\\|Sender\\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\)" . address-mime) (t . mime)) (#$ . -582))
#@164 Alist of MIME charsets to RFC2047 encodings.
Valid encodings are nil, `Q' and `B'. These indicate binary (no) encoding,
quoted-printable and base64 respectively.
(defvar rfc2047-charset-encoding-alist '((us-ascii) (iso-8859-1 . Q) (iso-8859-2 . Q) (iso-8859-3 . Q) (iso-8859-4 . Q) (iso-8859-5 . B) (koi8-r . B) (iso-8859-7 . B) (iso-8859-8 . B) (iso-8859-9 . Q) (iso-8859-14 . Q) (iso-8859-15 . Q) (iso-2022-jp . B) (iso-2022-kr . B) (gb2312 . B) (gbk . B) (gb18030 . B) (big5 . B) (cn-big5 . B) (cn-gb . B) (cn-gb-2312 . B) (euc-kr . B) (iso-2022-jp-2 . B) (iso-2022-int-1 . B) (viscii . Q)) (#$ . 1385))
#@51 Alist of RFC2047 encodings to encoding functions.
(defvar rfc2047-encode-function-alist '((Q . rfc2047-q-encode-string) (B . rfc2047-b-encode-string) (nil . identity)) (#$ . 1999))
#@48 Whether encoded words should be encoded again.
(defvar rfc2047-encode-encoded-words t (#$ . 2186))
#@47 *Whether to decode irregular Q-encoded words.
(defvar rfc2047-allow-irregular-q-encoded-words t (#$ . -2291))
#@35 Regexp that matches encoded word.
(defconst rfc2047-encoded-word-regexp "=\\?\\([^][ - ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\\)\\?=" (#$ . 2407))
#@61 Regexp that matches encoded word allowing loose Q encoding.
(defconst rfc2047-encoded-word-regexp-loose "=\\?\\([^][ - ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\\)?\\(?:[ ->@-~]+\\?+[ -<>@-~]\\)*[ ->@-~]*\\?*\\)\\?=" (#$ . 2603))
#@97 Return the type with which to encode the buffer.
This is either `base64' or `quoted-printable'.
(defalias 'rfc2047-qp-or-base64 #[nil "\212d\302e\\^\303eb\210\304 w\210` W\203# T\305u\210\304 w\210\202 \306_ eZW\2043 \305U\2037 \307\2028 \310+\207" [n8bit limit 2000 0 " -
\n " 1 6 quoted-printable base64] 3 (#$ . 2888)])
#@54 Narrow the buffer to the header on the current line.
(defalias 'rfc2047-narrow-to-field #[nil "\300 \210`\301y\210\302\303\304\305#\203 \306 \202 d}\210eb\207" [beginning-of-line 1 re-search-forward "^[^ \n ]" nil t point-at-bol] 5 (#$ . 3225)])
#@41 Return the value of the field at point.
(defalias 'rfc2047-field-value #[nil "\212\214\300 \210\301\302\303\304#\210\305`d\"*\207" [rfc2047-narrow-to-field re-search-forward ":[ \n]*" nil t buffer-substring-no-properties] 4 (#$ . 3479)])
#@180 Quote special characters with `\'s in quoted strings.
Quoting will not be done in a quoted string if it contains characters
matching ENCODABLE-REGEXP or it is within parentheses.
(defalias 'rfc2047-quote-special-characters-in-quoted-strings #[(&optional encodable-regexp) "eb\210\306\307Q`\310\211 \311 p \312\216\313\314 !\210m?\205\327 \31511 \316\317!\210`Sf\320=0\2025 \210\202? \203? \316\321!\210\202B db\210\214 `}\210 b\210\322\323\310\324#\203\312 \325\224\211\206Z `Sf\326=\204J \nb\210\nT\3271\303 \330 \210`S\nb\210 \203\210 \331 \324#\203\210 Tb\202\277 \214\n }\210\331\f\310\332#\203\274 `Sf\326=\203\257 \333\f!\203\251 \310u\210\202\215 \334c\210\202\215 \325\224b\210\334c\210\310u\210\202\215 )\310u0\202\306 \210\nb\210\202J db\210)\316\317!\210`\202 .\207" [ietf-drums-tspecials end beg start tspecials #1=#:buffer "[" "]" nil syntax-table #[nil "rq\210\302 !)\207" [#1# #2=#:table set-syntax-table] 2] set-syntax-table standard-syntax-table (error) forward-list 1 41 -1 search-forward "\"" t 0 92 (error) forward-sexp re-search-forward move looking-at "\\" #2# encodable-regexp] 5 (#$ . 3725)])
#@219 The type of encoding done by `rfc2047-encode-region'.
This should be dynamically bound around calls to
`rfc2047-encode-region' to either `mime' or `address-mime'. See
`rfc2047-header-encoding-alist', for definitions.
(defvar rfc2047-encoding-type 'address-mime (#$ . 4866))
#@127 Encode the message header according to `rfc2047-header-encoding-alist'.
Should be called narrowed to the head of the message.
(defalias 'rfc2047-encode-message-header #[nil "\212eb\210\306\211\211\211m?\205 \214\307 \210\306\f\310ed\"\211G\311U\203. \312@!
B\202/
\211A\242\211\203V \n@;\203G \313\n@!\204N \n@\314=\2030 \306\nA\2020 \315 \204\205 \316=\203d \317 \210\320 \321=\203\322 \203\323 @!\203\324ed\312 @!#\210\202\325\326\306\314#\210 \316=\203\231 \327`d\"\210\202 \330=\203\253 \330 !\327`d\"\210)\202 \331=\203\322 \332\333!\203\334\335!\203\336\335!\203\"\203\324`d\"#\210\202 \204\336 \327`d\"\210\202\323 !\203\332\333!\203\366 \334\335!\203\366 \336\335!\204\374 \332\337!\203\324`d #\210db\210*\202\f -\207" [charsets method elem alist rfc2047-header-encoding-alist mm-coding-system-priorities nil rfc2047-narrow-to-field mm-find-mime-charset-region 1 mm-charset-to-coding-system looking-at t rfc2047-encodable-p address-mime rfc2047-quote-special-characters-in-quoted-strings mm-body-7-or-8 8bit mm-multibyte-p mm-coding-system-p mm-encode-coding-region re-search-forward "^[^:]+: *" rfc2047-encode-region mime default featurep mule boundp enable-multibyte-characters default-value file-coding message-posting-charset rfc2047-encoding-type mail-parse-charset] 6 (#$ . 5148) "*"])
#@106 Return non-nil if any characters in current buffer need encoding in headers.
The buffer may be narrowed.
(defalias 'rfc2047-encodable-p #[nil "\304\305!\210\306ed\"eb\210 \203 \307\n\310\311#eb\210\206% \205% @C\232?)\207" [charsets rfc2047-encode-encoded-words rfc2047-encoded-word-regexp message-posting-charset require message mm-find-mime-charset-region re-search-forward nil t] 4 (#$ . 6504)])
(defconst rfc2047-syntax-table (byte-code "\301 \302\303\304 \305H#\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\306\321\320#\210\306\322\320#\210\306\323\320#\210\306\324\320#\210\306\325\320#\210\306\326\320#\210\306\327\320#\210)\207" [table make-syntax-table set-char-table-range t standard-syntax-table 97 modify-syntax-entry 92 "\\" 34 "\"" 40 "(" 41 ")" 60 "." 62 91 93 58 59 44 64] 5))
#@175 Encode words in region B to E that need encoding.
By default, the region is treated as containing RFC2822 addresses.
Dynamically bind `rfc2047-encoding-type' to change that.
(defalias 'rfc2047-encode-region #[(b e &optional dont-fold) "\214 }\210\n\203
\306\202 \307\310\211\211\211\211\311 \" = > ? @A\312=\203i eb\210\313\310w\210m\204\267`?\314\315!\203R \316\225>\317@>\320#\203R >b\210\2027 `?V\203b \321?`\"\210\202, >b\210\202, \322@!\210\323 p B C\324\216\325D!\210eb\210\3261\225m?\205\221\313\310w\210`?\310f\203\203 \310fz\211\327=\203\350 \330 \210`>?b\210\317@>\331#\203\343 >b\210\332\333!\210?b\210\332\334!\210\f\203\325 \335\310x\210\336c\210`?>T>\321?>\337Z\"\210\320\202\203 \310\202\203
\340=\203\366 \310u\210\310\202\203
\341=\203\342\343!\210\202\203
\344=\203 \345 \210\312 A\346?T`S\"\210)\347\310w\210\202\203 \310>>\2041m\2041\314\350!\203`=\316\225>\317\351>\331#\204H\310\211>\203W`Sfz\352=\203W\310u\210\2028>\203\316\224>\n\203{=b\210\353\354>\331#\203\316\224b\210\310>\202>b\210>\204\"\314@!\203\"\316\225\211=b\210\314\355!\203\316\316\225\211>\203\316\317@>\320#\204\240=`W\203\316=b\203\316\317\356>\320#\203\307\316\224b\210\202\316>b\210\202\222\314\357!\203\"\316\225>\317\360>\320#\203 >`U\204\"\314\361@\362Q!\203\371\310\211>\202$\316\225Sb\210`\316\224U\204\"\363c\210\202\">b\210\313\310w\210\314\357!\203*\364@\365\316!\"\203*\310\211>\202$>b\210\202\"\313\310x\210`>?b\210\317@>\331#\203\214?\206L`Sf\366>\204\200?b\210\367\310x\210\314\360!\203o\316\225?U\203o`?\202\200?b\210\363c\210?T?>T>\321?>\"\210\320\202\203 \310\202\203 0\202\265 EF\204\241G\203\254\370E@EA\"\202\264\342\371\372 \373\363#\")\210+.H\204\303\374`\"\210db)\207" [b e rfc2047-encode-encoded-words orig-text last-encoded csyntax "[^ -]+\\|=\\?" "[^ -]+" nil buffer-substring-no-properties mime " \n" looking-at "[ \n]*\\([^ \n]+\\)" 0 re-search-forward t rfc2047-encode rfc2047-quote-special-characters-in-quoted-strings syntax-table #[nil "rq\210\302 !)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table (error) 34 forward-sexp move delete-char -1 1 " " 32 2 46 41 error "Unbalanced parentheses" 40 forward-list rfc2047-encode-region ")" "[ -]+" "[ \n]\\|\\Sw" 92 search-forward "=?" "[ \n]+\\([^ \n]+\\)" "\\Sw" "[^ \n]+" "\\Sw+" "\\sw*\\(" "\\)" " " string-match match-string (nil 9 32) "^ \n" signal "Invalid data for rfc2047 encoding: %s" mm-replace-in-string "[ \n]+" rfc2047-fold-region begin end start encodable-regexp rfc2047-encoding-type #1# #2# rfc2047-syntax-table err debug-on-quit debug-on-error dont-fold] 10 (#$ . 7368)])
#@114 Encode words in STRING.
By default, the string is treated as containing addresses (see
`rfc2047-encoding-type').
(defalias 'rfc2047-encode-string #[(string &optional dont-fold) "\303\304!rq\210\305\216\306 \210 c\210\307ed\n#\210\310 +\207" [#1=#:temp-buffer string dont-fold generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-enable-multibyte rfc2047-encode-region buffer-string] 4 (#$ . 10110)])
#@222 Maximum characters of each header line that contain encoded-words.
According to RFC 2047, it is 76. If it is nil, encoded-words
will not be folded. Too small value may cause an error. You
should not change this value.
(defvar rfc2047-encode-max-chars 76 (#$ . 10563))
#@38 Subroutine used by `rfc2047-encode'.
(defalias 'rfc2047-encode-1 #[(column string cs encoder start crest tail &optional eword) "\306\230\203\f \206y\306\207\n\204\" \f
\203 \307
\"\202 !\310Q\207\nY\203f \203S \311\312 \"\203= \313\211\224O\202S \311\314 \"\203S \315\313 \"P \313\211\224O\316G
\f \317 \320Q&\207\313GS\306\321\211 \203X\203 \f
\203\226 \307\313TO
\"\202\234 \313TO!\310QG\\\211\nV\203\272 \321\211\202y W\204\325 \311\320\"\206\317 G\\\nX\203\341 T\202w \311\322\"\203\313\211\225O\323\313\225\321OQT\202w \321\211\204| V\203! Q\202x\313U\203M \203E\311\314 \"\203E\315\313 \"P \313\211\224O\202U P\202U\317 P\311\312 \"\203b \313\211\224O\316G\321O
\f \317 \320Q&-\207" [string eword rfc2047-encode-max-chars start encoder cs "" mm-encode-coding-string "?=" string-match "\n[ ]+\\'" 0 "(+\\'" match-string rfc2047-encode-1 " " "\n" nil "\\`)+" "\n " column crest tail len next prev limit index] 12 (#$ . 10840)])
#@80 Encode the word(s) in the region B to E.
Point moves to the end of the region.
(defalias 'rfc2047-encode #[(b e) "\306 \"\206 \307C\310\211\211\211\211 ( )\310)>\203! \311C))G\312V\2033 \313\314\315 \"\"\202)G\312U\203)@)\316)!(\317 \203R \320(!\204U \310(\214 }\210)*\236A\206o \321 \322=\203n \323\202o \324~\210 b\210\325\310w\210\315 `\"b\210\326 \327 \310\223\330\331 \"\210b\210\325\310x\210\332\310x\333U\204\244 \315`\"\334\331 Z\335\315 \"\336\337#(
+\236A\206\274 \340\341\342)!\227\343\342
!\226\343\260 \206\317 \344\f&\211\333H\345=\203\350 n\203\344 `S\202\352 `\202\352 b \fG\\|\210\nc\210\310\211\223\210 \310\211\223\210\fG\333U?\206\fm\206\f\346\347!?\205\344c)\202 b.\207" [b e eword crest tail encoding mm-find-mime-charset-region us-ascii nil utf-8 1 error "Can't rfc2047-encode `%s'" buffer-substring-no-properties mm-charset-to-coding-system mm-multibyte-p mm-coding-system-p rfc2047-qp-or-base64 base64 B Q "^ \n" point-marker make-marker rfc2047-fold-region point-at-bol " " 0 rfc2047-encode-1 mm-replace-in-string "\n\\([ ]?\\)" "\\1" identity "=?" symbol-name "?" " " 10 looking-at "[ \n)]" cs mime-charset rfc2047-charset-encoding-alist rfc2047-encode-function-alist] 11 (#$ . 11929)])
#@32 Fold the current header field.
(defalias 'rfc2047-fold-field #[nil "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-fold-region] 3 (#$ . 13204)])
#@35 Fold long lines in region B to E.
(defalias 'rfc2047-fold-region #[(b e) "\214 }\210eb\210\306\211\307\214~\210\310 ) m\204\321
\204! \f\203U `\nZ\311V\203U
\206. \fb\210\306\211\312\306x\210\313\314!\203D \315c\210\202G \316c\210`S\312\306w\210m\204U \317u\210\306f\315=\203z \317u\210`\306\211\312\306w\210m\204\314 \306f\315=\204\314 \317u\210\202\314 \306f\320=\203\207 \317u\210\202\314 \306f\321>\203\233 \312\306w\210 \204\314 `\202\314
\204\310 \313\322!\204\271 \306f\323=\203\262 \317u\210\202\314 \324\306w\210\202\314 `U\204\301 `\325\306w\210\202\314 \325\306w\210\306\202
\204\331 \f\205`\nZ\311V\205
\206\346 \fb\210\306\211\326\312\306xV\204\372 \313\314!\203 \315c\210\202\316c\210`S\312\306w\210m?\205\317u-\207" [b e bol first qword-break break nil t point-at-bol 76 " " looking-at "[ ]" 10 "\n " 1 13 (32 9) "=\\?[^=]" 61 "^ \n
=" "^ \n
" 0] 5 (#$ . 13373)])
#@24 Fold the current line.
(defalias 'rfc2047-unfold-field #[nil "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-unfold-region] 3 (#$ . 14293)])
#@32 Unfold lines in region B to E.
(defalias 'rfc2047-unfold-region #[(b e) "\214 }\210eb\210\214~\210\304 )\305 \306y\210m?\205C \307\310!\2037 \305 Z\311W\2037 \n\211b\210\312\313w\210`|\210\202: \304 \305 \306y\210\202 +\207" [b e eol bol point-at-bol point-at-eol 1 looking-at "[ ]" 76 "
\n" nil] 3 (#$ . 14458)])
#@47 Base64-encode the header contained in STRING.
(defalias 'rfc2047-b-encode-string #[(string) "\301\302\"\207" [string base64-encode-string t] 3 (#$ . 14786)])
(autoload 'quoted-printable-encode-region "qp")
#@47 Quoted-printable-encode the header in STRING.
(defalias 'rfc2047-q-encode-string #[(string) "\302\303!rq\210\304\216\305 \210 c\210\306ed\307\310$\210\311ed\312\313$\210\314 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte quoted-printable-encode-region nil "-\n\f !#-'*+0-9A-Z\\^`-~" subst-char-in-region 32 95 buffer-string] 5 (#$ . 14999)])
#@187 Return and PARAM=VALUE string encoded in the RFC2047-like style.
This is a substitution for the `rfc2231-encode-string' function, that
is the standard but many mailers don't support it.
(defalias 'rfc2047-encode-parameter #[(param value) "\304\305\306\n\307 \310\"\"*\207" [rfc2047-encode-max-chars rfc2047-encoding-type param value mime nil rfc2045-encode-string rfc2047-encode-string t] 5 (#$ . 15452)])
#@64 If non-nil, quote decoded words containing special characters.
(defvar rfc2047-quote-decoded-words-containing-tspecials nil (#$ . 15866))
#@426 *Non-nil means allow incomplete encoded-text in successive encoded-words.
Dividing of encoded-text in the place other than character boundaries
violates RFC2047 section 5, while we have a capability to decode it.
If it is non-nil, the decoder will decode B- or Q-encoding in each
encoded-word, concatenate them, and decode it by charset. Otherwise,
the decoder will fully decode each encoded-word before concatenating
them.
(defvar rfc2047-allow-incomplete-encoded-text t (#$ . -16011))
#@53 Strip backslashes in quoted strings. `\"' remains.
(defalias 'rfc2047-strip-backslashes-in-quoted-strings #[nil "eb\210\303\304 p\305\216\306\307 !\210\310\311\303\312#\205_ `Sf\313=\204 \314\225\314\224b\210\3151X \316 \210\214`S}\210b\210\310\317\303\320#\203Q \303f\321>\204K \322\323!\210\303u\210\2028 )\303u0\202[ \210b\210\202 ,\207" [beg #1=#:buffer #2=#:table nil syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table standard-syntax-table search-forward "\"" t 92 0 (error) forward-sexp "\\" move (34) delete-char -1] 4 (#$ . 16505)])
#@288 Return coding-system corresponding to MIME CHARSET.
If your Emacs implementation can't decode CHARSET, return nil.
If allow-override is given, use `mm-charset-override-alist' to
map undesired charset names to their replacement. This should
only be used for decoding, not for encoding.
(defalias 'rfc2047-charset-to-coding-system #[(charset &optional allow-override) ";\203\n \305\227!\203 \306=\204 \306 >\204 >\203\" \n\307\310 #\211 \311=\2039 \307\n!\2065 \312\202R \313\f!\204R \203R <\203R \314 >\203R \307\n!\f\311=\203\\ \312\202] \f)\207" [charset mail-parse-ignored-charsets mail-parse-charset allow-override cs intern gnus-all mm-charset-to-coding-system nil ascii raw-text mm-coding-system-p gnus-unknown] 5 (#$ . 17100)])
(autoload 'quoted-printable-decode-string "qp")
#@150 Decode successive encoded-words in WORDS and return a decoded string.
Each element of WORDS looks like (CHARSET ENCODING ENCODED-TEXT
ENCODED-WORD).
(defalias 'rfc2047-decode-encoded-words #[(words) "\306\211\211\211\211\211 \203\223 \211A \242\307
@\211\310\"\211\203\210 \3111W \312\313
A@\"\203> \314\315\316
8!!\211\202S \312\317
A@\"\205S \320\321\322\323\316
8\310$!\2110\202c \324\325\326 !\"\210)\306\203\210 \203 @@=\203 @@A P\241\210\202\f BB\202\f \306\327
8BB\202\f \203\342 @@\211\203\274 \3301\255 \331@A \"0\202\271 \324\325\326 !\"\210)\306\206\326 A\205\302 \332@A \205\325 \333 !\323=?\205\325 \332Q P A\211\204\227 .\207" [rest text encoding cs charset word nil rfc2047-charset-to-coding-system t (error) char-equal 66 base64-decode-string rfc2047-pad-base64 2 81 quoted-printable-decode-string mm-subst-char-in-string 95 32 message "%s" error-message-string 3 (error) mm-decode-coding-string " " string-to-char words code rfc2047-allow-incomplete-encoded-text] 7 (#$ . 17907)])
#@173 Decode MIME-encoded words in region between START and END.
If ADDRESS-MIME is non-nil, strip backslashes which precede characters
other than `"' and `\' in quoted strings.
(defalias 'rfc2047-decode-region #[(start end &optional address-mime) "\306\203 \307\202\n \310\311\211\211\211 (\212\214)*}\210\203% \312 \210)\211b\210\313
\311\306#\211\203\217\314\224\315\225*\311\n\203g \316\317!\320\224f\316\320!\317\311O\316\314!F B\321
!\211\203> \315\225\211*b\210\202> *|\210\322 \237!c\210\214 `}\210 b\210\313\323\311\306#\203\211 \324\325!\210\202z d*+\203g\326\327,\"@\211 -\205\313 \214~\210 \206\245 `Sf\330=\205\261 *f\330=?\205\312 \331 \210\311f\332>\203\306 \333y\315U\204\270 \321-!))\203g\311 . b\210\334\311w\210`)\311f\330=.db\210\334)x\210.\205\374 `)TV\205\374 `Sf\330=\211.\203\333u\210)T)\335 *\202\335 *)b\210\336\337*\306#\203<\333u\210\340\311x\317\246\315U\315\224b\210\2036\341c\210\311u\210\202.\204`)b\210\313\342/\343Q*\306#\203`)b\210\337c\210*b\210\337c\210*\311\211\223\210)db\210)\344 \203\2120\203\2120\345=\204\2120\346=\204\212\347\f 0#\210`\202+ \344 \205\2570\205\2570\345=?\205\2570\346=?\205\257\347\fd0#.\207" [rfc2047-allow-irregular-q-encoded-words words match e b eword-regexp t "[\n ]*\\(=\\?\\([^][ - ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\\)?\\(?:[ ->@-~]+\\?+[ -<>@-~]\\)*[ ->@-~]*\\?*\\)\\?=\\)" "[\n ]*\\(=\\?\\([^][ - ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\\)\\?=\\)" nil rfc2047-strip-backslashes-in-quoted-strings re-search-forward 1 0 match-string 2 3 looking-at rfc2047-decode-encoded-words "[\n
]+" replace-match " " rassq address-mime 34 beginning-of-line (32 9) -1 " " point-marker search-forward "\"" "\\\\" "\\" "[" "]" mm-multibyte-p us-ascii gnus-decoded mm-decode-coding-region case-fold-search start end rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist regexp quoted ietf-drums-tspecials mail-parse-charset] 7 (#$ . 18962) "r"])
#@152 Decode MIME-encoded words in region between START and END.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.
(defalias 'rfc2047-decode-address-region #[(start end) "\302 \303#\207" [start end rfc2047-decode-region t] 4 (#$ . 21063)])
#@164 Decode MIME-encoded STRING and return the result.
If ADDRESS-MIME is non-nil, strip backslashes which precede characters
other than `"' and `\' in quoted strings.
(defalias 'rfc2047-decode-string #[(string &optional address-mime) "\306\307\"\203\325\310\311!r q\210\312\216\313 \210c\210ed\n \314
\203& \315\202' \316\317\211\211\211 5 6 7 8 9 :\212\214\f }\210\n\203D \320 \210\f\2118b\210\3219\317\314#\2116\203\255\322\2247\323\225\31756\203\215 \324\325!\326\224f\324\326!\325\317O\324\322!F5B5\3279!\2116\203` \323\225\211b\210\202` 7 |\210\3305\237!c\210\2147`}\2107b\210\321\331\317\314#\203\262 \332\333!\210\202\243 d;\203\202\334\302<\"@\211 =\205\363 \214~\2107\206\316 `Sf\335=\205\331 f\335=?\205\362 \336 \210\317f\337>\203\356 \340y\323U\204\340 \327=!))\203\202\317 >7b\210\341\317w\210`\317f\335=>db\210\341\fx\210>\205\"`\fTV\205\"`Sf\335=\211>\2034\340u\210\fT\342 \2027\342 \fb\210\343\344 \314#\203\\\340u\210\345\317x\325\246\323U\323\224b\210\203V\346c\210\317u\210\202:>\204|\fb\210\321\347?\350Q \314#\203|\fb\210\344c\210 b\210\344c\210 \317\211\223\210)db\210)\351 \203\247@\203\247@\352=\204\247@\353=\204\247\35487@#\210`8\202J \351 \205\316@\205\316@\352=?\205\316@\353=?\205\316\3548d@#. \210\355 +\207\n\203\370\310\311! ArAq\210\356\216\357!\203\356\313 \210c\210\320 \210\355 +@\203\"@\352=\204\"@\353=\204\"\360\361!\203 \361\314\"\362=\203 \207\363@\"\207\364!\207" [string #1=#:temp-buffer address-mime end start rfc2047-allow-irregular-q-encoded-words string-match "=\\?" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] mm-enable-multibyte t "[\n ]*\\(=\\?\\([^][ - ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\\)?\\(?:[ ->@-~]+\\?+[ -<>@-~]\\)*[ ->@-~]*\\?*\\)\\?=\\)" "[\n ]*\\(=\\?\\([^][ - ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\\)\\?=\\)" nil rfc2047-strip-backslashes-in-quoted-strings re-search-forward 1 0 match-string 2 3 looking-at rfc2047-decode-encoded-words "[\n
]+" replace-match " " rassq 34 beginning-of-line (32 9) -1 " " point-marker search-forward "\"" "\\\\" "\\" "[" "]" mm-multibyte-p us-ascii gnus-decoded mm-decode-coding-region buffer-string #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] mm-multibyte-string-p fboundp detect-coding-string undecided mm-decode-coding-string mm-string-to-multibyte words match e b eword-regexp case-fold-search rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist regexp quoted ietf-drums-tspecials mail-parse-charset #2#] 6 (#$ . 21347)])
#@143 Decode MIME-encoded STRING and return the result.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.
(defalias 'rfc2047-decode-address-string #[(string) "\301\302\"\207" [string rfc2047-decode-string t] 3 (#$ . 24072)])
#@25 Pad STRING to quartets.
(defalias 'rfc2047-pad-base64 #[(string) "\302G\303\"\304U\203\f \207\305\306\"\203 \304\211\224O\302G\303\"\307 \304\"\203* \202L \307 \310\"\2035 \202L \307 \311\"\203B \312P\202L \307 \313\"\205L \314P)\207" [string #1=#:temp mod 4 0 string-match "=+$" eql 1 2 "==" 3 "="] 3 (#$ . 24340)])
(provide 'rfc2047)
Kontol Shell Bypass