%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/mail/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/mail/rfc2047.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\"\210\310\311\312\313\314\315\316\317&\210\320\321\322\323\324DD\325\326\327%\207" [require mm-util ietf-drums mail-prsvr rfc2045 autoload mm-body-7-or-8 "mm-bodies" custom-declare-group rfc2047 nil "RFC2047 messages." :group mail :prefix "rfc2047-" custom-declare-variable rfc2047-header-encoding-alist funcall function #[0 "\300\207" [(("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))] 1] "Header/encoding method alist.\nThe list is traversed sequentially.  The keys can either be\nheader regexps or t.\n\nThe values can be:\n\n1) nil, in which case no encoding is done;\n2) `mime', in which case the header will be encoded according to RFC2047;\n3) `address-mime', like `mime', but takes account of the rules for address\n   fields (where quoted strings and comments must be treated separately);\n4) a charset, in which case it will be encoded as that charset;\n5) `default', in which case the field will be encoded as the rest\n   of the article." :type (alist :key-type (choice regexp (const t)) :value-type (choice (const nil) (const mime) (const address-mime) coding-system (const default)))] 8)
#@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)) (#$ . 1736))
#@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)) (#$ . 2350))
#@48 Whether encoded words should be encoded again.
(defvar rfc2047-encode-encoded-words t (#$ . 2537))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable rfc2047-allow-irregular-q-encoded-words funcall function #[0 "\300\207" [t] 1] "Whether to decode irregular Q-encoded words." :type boolean] 6)
#@35 Regexp that matches encoded word.
(defconst rfc2047-encoded-word-regexp "=\\?\\([^][- ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?[ ->@-~]*\\)\\?=" (#$ . 2864))
#@61 Regexp that matches encoded word allowing loose Q encoding.
(defconst rfc2047-encoded-word-regexp-loose "=\\?\\([^][- ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\\)?\\(?:[ ->@-~]+\\?+[ -<>@-~]\\)*[ ->@-~]*\\?*\\)\\?=" (#$ . 3060))
#@97 Return the type with which to encode the buffer.
This is either `base64' or `quoted-printable'.
(defalias 'rfc2047-qp-or-base64 #[0 "\212d\300e\\^\301eb\210\302w\210`W\203\"\211T\262\303u\210\302w\210\202\304_eZW\2042\211\303U\2036\305\2027\306\266\202)\207" [2000 0 " -
\n	" 1 6 quoted-printable base64] 5 (#$ . 3345)])
#@54 Narrow the buffer to the header on the current line.
(defalias 'rfc2047-narrow-to-field #[0 "\300 \210`\301y\210\302\303\304\305#\203\306 \202d}\210eb\207" [beginning-of-line 1 re-search-forward "^[^ \n	]" nil t point-at-bol] 5 (#$ . 3685)])
#@41 Return the value of the field at point.
(defalias 'rfc2047-field-value #[0 "\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 (#$ . 3937)])
(make-obsolete 'rfc2047-quote-special-characters-in-quoted-strings nil "27.1")
#@213 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.

(fn &optional ENCODABLE-REGEXP)
(defalias 'rfc2047-quote-special-characters-in-quoted-strings #[256 "eb\210\301\302Q`\303\211\304 p\305\306\307\310\311\"\312\"\313$\216\314\315 !\210m?\205\343\31617\317\320!\210`Sf\321=0\202;\210\202E\203E\317\322!\210\202Hdb\210\214`}\210b\210\323\324\303\325#\203\325\306\224\262\206a`Sf\326=\204Pb\210T\262\3271\316\330 \210`S\262b\210\203\221\331\325#\203\221Tb\202\312\214}\210\331\303\332#\203\307`Sf\326=\203\272\333!\203\264\303u\210\202\226\334c\210\202\226\306\224b\210\334c\210\303u\210\202\226)\303u0\202\321\210b\210\202Pdb\210)\317\320!\210`\262\202!)\266\202\207" [ietf-drums-tspecials "[" "]" nil syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table standard-syntax-table (error) forward-list 1 41 -1 search-forward "\"" t 92 (error) forward-sexp re-search-forward move looking-at "\\"] 14 (#$ . 4260)])
#@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 (#$ . 5408))
#@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 #[0 "\212eb\210\305\211\211\211m?\205\310\214\306 \210\305\262\262\307ed\"\262\211G\310U\203-\311@!	B\202.	\211A\262\242\211\262\203Y@;\203H\312@!\204O@\313=\203/\305\262A\262\202/\314 \204}\315 \316=\203\301\317 \203\301\320\n@!\203\301\321ed\311\n@!#\210\202\301\322\323\305\313#\210\324\267\202\251\325`d\"\210\202\301\326\325`d\"\210)\202\301\f\203\301\321`d\f#\210\202\301\204\265\325`d\"\210\202\301\320!\203\301\321`d#\210db\210*\202\266\204)\207" [rfc2047-header-encoding-alist mm-coding-system-priorities message-posting-charset rfc2047-encoding-type mail-parse-charset nil rfc2047-narrow-to-field mm-find-mime-charset-region 1 mm-charset-to-coding-system looking-at t rfc2047-encodable-p mm-body-7-or-8 8bit mm-multibyte-p mm-coding-system-p encode-coding-region re-search-forward "^[^:]+: *" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (address-mime 137 mime 145 default 156)) rfc2047-encode-region mime] 9 (#$ . 5690) "*"])
#@106 Return non-nil if any characters in current buffer need encoding in headers.
The buffer may be narrowed.
(defalias 'rfc2047-encodable-p #[0 "\303ed\"eb\210\203\304	\305\306#eb\210\206&\211\205&\211\307\302!\205\"\n@C\232?\207" [rfc2047-encode-encoded-words rfc2047-encoded-word-regexp message-posting-charset mm-find-mime-charset-region re-search-forward nil t boundp] 5 (#$ . 6884)])
(defconst rfc2047-syntax-table (byte-code "\300 \301\302\303 \304H#\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\317#\210\305\321\317#\210\305\322\317#\210\305\323\317#\210\305\324\317#\210\305\325\317#\210\305\326\317#\210\211\207" [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] 6))
#@216 Encode words in region B to E that need encoding.
By default, the region is treated as containing RFC 822 (or later) addresses.
Dynamically bind `rfc2047-encoding-type' to change that.

(fn B E &optional DONT-FOLD)
(defalias 'rfc2047-encode-region #[770 "\214}\210\203
\305\202\306\307\211\211\211\211\310		\"	\311=\203`eb\210\312\307w\210m\204\243`\262\313\314!\203G\315\225\262\316\317#\203Gb\210\202-`V\203W\320`\"\210\202\"b\210\202\"\202\243\321 p\322\315\323\324\325\"\326\"\327$\216\330\n!\210eb\210\3311\203m?\205\312\307w\210`\262\307f\203}\307fz\211\262\332=\203\345\333 \210`\262b\210\316	\334#\203\337b\210\335\336!\210b\210\335\337!\210\203\320\340\307x\210\341c\210`\262T\262\320\327Z\"\210\317\262\202}\307\262\202}\342\267\202\307u\210\307\262\202}\343\344!\210\202}\345 \210\311\346T`S\"\210)\347\307w\210\202}\307\262\204m\204\313\350!\203o`\262\315\225\262\316\351\334#\2049\307\211\262\203H`Sfz\352=\203H\307u\210\202)\203o\315\224\262\203kb\210\353\354\334#\203o\315\224b\210\307\262\202ob\210\204\313	!\203\315\225\211\262b\210\313\355!\203\274\315\225\211\262\203\274\316	\317#\204\220`W\203\274b\203\274\316\356\317#\203\265\315\224b\210\202\274b\210\202\202\313\357!\203\315\225\262\316\360\317#\203\370`U\204\313\361\n\362Q!\203\346\307\262\202\315\225Sb\210`\315\224U\204\363c\210\202b\210\312\307w\210\313\357!\203\364	\365\315!\"\203\307\262\202b\210\202\312\307x\210`\262b\210\316	\334#\203y\2068`Sf\366>\204lb\210\367\307x\210\313\360!\203[\315\225U\203[`\262\202lb\210\363c\210T\262T\262\320\"\210\317\262\202}\307\262\202}0\202\237\204\213\f\203\224\370@A\"\202\235\343\371\372\373\363#\"\262\210)\266\266\211\204\256\374`\"\210db)\207" [rfc2047-encode-encoded-words rfc2047-encoding-type rfc2047-syntax-table debug-on-quit debug-on-error "[^-]+\\|=\\?" "[^-]+" nil buffer-substring-no-properties mime " 	\n" looking-at "[ 	\n]*\\([^ 	\n]+\\)" 0 re-search-forward t rfc2047-encode syntax-table make-byte-code "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) 34 forward-sexp move delete-char -1 1 " 	" 32 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (46 235 41 244 40 251)) error "Unbalanced parentheses" 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" replace-regexp-in-string "[ 	\n]+" rfc2047-fold-region] 19 (#$ . 7730)])
#@147 Encode words in STRING.
By default, the string is treated as containing addresses (see
`rfc2047-encoding-type').

(fn STRING &optional DONT-FOLD)
(defalias 'rfc2047-encode-string #[513 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311 \210c\210\312ed#\210\313 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte rfc2047-encode-region buffer-string] 9 (#$ . 10494)])
#@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 (#$ . 10978))
#@102 Subroutine used by `rfc2047-encode'.

(fn COLUMN STRING CS ENCODER START CREST TAIL &optional EWORD)
(defalias 'rfc2047-encode-1 #[2055 "\301\230\203
\211\206\201\301\207\204'\203!\302		\"\202#!\303Q\207Y\203r\211\203[\304\305\"\203D\306\307\211\224#\262\202[\304\310\"\203[\311\307\"P\262\306\307\211\224#\262\312G\313\314\fQ&\207\307GS\301\315\211\203
X\203
\n\f\203\234\302\306\307\nT#\"\202\244\306\307	T#!\303Q\262\fG\\\262\211V\203\277\262\315\262\202zW\204\327\211\304\314	\"\206\321G\\X\203\341\262T\262\202z\304\316\"\203\306\307\211\225#\317\306	\307\225\"Q\262\262T\262\202z\262\315\262\202zV\203Q\202\307U\203K\203C\304\310\"\203C\311\307\"P\262\306\307\211\224#\262\202SP\262\202S\313\262P\262\304\305\"\203d\306\307\211\224#\262\312G\306\"


\313

\314Q&\266\205\207" [rfc2047-encode-max-chars "" encode-coding-string "?=" string-match "\n[ 	]+\\'" substring 0 "(+\\'" match-string rfc2047-encode-1 " " "\n" nil "\\`)+" "\n "] 24 (#$ . 11256)])
#@90 Encode the word(s) in the region B to E.
Point moves to the end of the region.

(fn B E)
(defalias 'rfc2047-encode #[514 "\302\"\206	\303C\304\211\211\211\211\211>\203\305C\262G\306V\203,\307\310\311\n\n\"\"\202&G\306U\203#@\262\312!\262\313 \203H\314!\204K\304\262\214}\210\236A\206e\315 \316=\203d\317\202e\320\262~\210b\210\321\304w\210\311`\"\262b\210\322 \262\323 \304\223\262\324\325 	\"\210b\210\321\304x\210\326\304x\327U\204\246\311`	\"\262\330\325 Z\331\332\333\311

\"#	\236A\206\301\334\335\336\f!\227\337\336\f!\226\337\260\206\326\340	&\262\211\327H\341=\203\361n\203\355`S\202\364`\202\364bG\\|\210\211c\210\304\211\223\210\304\211\223\210G\327U?\206m\206\342\343!?\205\340c)\202&b\207" [rfc2047-charset-encoding-alist rfc2047-encode-function-alist 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 replace-regexp-in-string "\n\\([ 	]?\\)" "\\1" identity "=?" symbol-name "?" " " 10 looking-at "[ 	\n)]"] 18 (#$ . 12385)])
#@32 Fold the current header field.
(defalias 'rfc2047-fold-field #[0 "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-fold-region] 3 (#$ . 13669)])
#@45 Fold long lines in region B to E.

(fn B E)
(defalias 'rfc2047-fold-region #[514 "\214}\210eb\210\300\211\214~\210\301 )\211`U\206!\214~\210\212\302\303\304#*?m\204\307\204-\203A`Z\305V\203A\306\"\262\300\262\300\262\300f\307=\203i\310u\210`\262\300\262\300\262\311\300w\210m\204!\300f\307=\204!\310u\210\202!\300f\312=\203v\310u\210\202!\300f\313>\203\221\311\300w\210\211\203\213\300\262\202!`\262\202!\204\300\314\315!\204\257\300f\316=\203\250\310u\210\202!\317\300w\210\202!`U\204\271`\262\320\300w\210\202!\320\300w\210\202!\204\317\205\333`Z\305V\205\333\306\"\266\204)\207" [nil line-beginning-position re-search-backward "[ 	]" t 76 rfc2047--break-line 10 1 " 	" 13 (32 9) looking-at "=\\?[^=]" 61 "^ 	\n
=" "^ 	\n
"] 9 (#$ . 13836)])
#@26 

(fn BREAK QWORD-BREAK)
(defalias 'rfc2047--break-line #[514 "\206\211b\210\300\301x\210\302\303!\203\304c\210\202\305c\210`S\300\301w\210m\204'\306u\210\207" [" 	" nil looking-at "[ 	]" 10 "\n " 1] 5 (#$ . 14637)])
#@24 Fold the current line.
(defalias 'rfc2047-unfold-field #[0 "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-unfold-region] 3 (#$ . 14868)])
#@42 Unfold lines in region B to E.

(fn B E)
(defalias 'rfc2047-unfold-region #[514 "\214}\210eb\210\214~\210\300 )\301 \302y\210m?\205C\303\304!\2035\301 Z\305W\2035\211b\210\306\307w\210`|\210\2029\300 \262\301 \262\302y\210\202\266\202)\207" [point-at-bol point-at-eol 1 looking-at "[ 	]" 76 "
\n" nil] 7 (#$ . 15031)])
#@60 Base64-encode the header contained in STRING.

(fn STRING)
(defalias 'rfc2047-b-encode-string #[257 "\300\301\"\207" [base64-encode-string t] 4 (#$ . 15368)])
(autoload 'quoted-printable-encode-region "qp")
#@60 Quoted-printable-encode the header in STRING.

(fn STRING)
(defalias 'rfc2047-q-encode-string #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311 \210c\210\312ed\313\314$\210\315ed\316\317$\210\320 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [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] 8 (#$ . 15582)])
#@203 Return a 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.

(fn PARAM VALUE)
(defalias 'rfc2047-encode-parameter #[514 "\302\303\304\305\306\"\"*\207" [rfc2047-encode-max-chars rfc2047-encoding-type mime nil rfc2045-encode-string rfc2047-encode-string t] 7 (#$ . 16077)])
#@64 If non-nil, quote decoded words containing special characters.
(defvar rfc2047-quote-decoded-words-containing-tspecials nil (#$ . 16484))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable rfc2047-allow-incomplete-encoded-text funcall function #[0 "\300\207" [t] 1] "Non-nil means allow incomplete encoded-text in successive encoded-words.\nDividing of encoded-text in the place other than character boundaries\nviolates RFC2047 section 5, while we have a capability to decode it.\nIf it is non-nil, the decoder will decode B- or Q-encoding in each\nencoded-word, concatenate them, and decode it by charset.  Otherwise,\nthe decoder will fully decode each encoded-word before concatenating\nthem." :type boolean] 6)
#@53 Strip backslashes in quoted strings.  `\"' remains.
(defalias 'rfc2047-strip-backslashes-in-quoted-strings #[0 "eb\210\300\301 p\302\303\304\305\306\"\307\"\310$\216\311\312 !\210\313\314\300\315#\205j`Sf\316=\204\303\225\262\303\224b\210\3171c\320 \210\214`S}\210b\210\313\321\300\322#\203\\\300f\323=\204V\324\325!\210\300u\210\202C)\300u0\202f\210b\210\202)\266\202\207" [nil syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table standard-syntax-table search-forward "\"" t 92 (error) forward-sexp "\\" move 34 delete-char -1] 10 (#$ . 17233)])
#@327 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.

(fn CHARSET &optional ALLOW-OVERRIDE)
(defalias 'rfc2047-charset-to-coding-system #[513 ";\203\302\227!\262\203!\303=\204!\303>\204!>\203$	\262\304\305#\211\306=\203;\304	!\2066\307\262\202U\310!\204U\203U<\203U\311>\203U\304	!\262\211\306=\203_\307\202`\211\207" [mail-parse-ignored-charsets mail-parse-charset intern gnus-all mm-charset-to-coding-system nil ascii raw-text mm-coding-system-p gnus-unknown] 6 (#$ . 17862)])
(autoload 'quoted-printable-decode-string "qp")
#@162 Decode successive encoded-words in WORDS and return a decoded string.
Each element of WORDS looks like (CHARSET ENCODING ENCODED-TEXT
ENCODED-WORD).

(fn WORDS)
(defalias 'rfc2047-decode-encoded-words #[257 "\301\211\211\211\203\210\211@\302@\303\"\211\262\203x\3041I\305\306A@\"\203/\307\310\3118!!\211\262\202E\305\312A@\"\205E\313\314\315\316\3118\303$!\211\2620\202S\317\320\321!\"\210\301\262\203x\203n@@=\203n@@AP\241\210\202\201BB\262\202\201\301\3228BB\262A\266\202\202\210\301\262\211\203\330\211@@\211\262\203\264\3231\247\324@A\"0\202\261\317\320\321!\"\210\301\262\206\315\211A\205\272\325@A\205\314\326!\316=?\205\314\325QP\262\211A\262\202\214\207" [rfc2047-allow-incomplete-encoded-text nil rfc2047-charset-to-coding-system t (error) char-equal 66 base64-decode-string rfc2047-pad-base64 2 81 quoted-printable-decode-string subst-char-in-string 95 32 message "%s" error-message-string 3 (error) decode-coding-string " " string-to-char] 12 (#$ . 18662)])
#@212 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.

(fn START END &optional ADDRESS-MIME)
(defalias 'rfc2047-decode-region #[770 "\306\203	\307\202\n\310\311\211\211\211\212\214}\210\203 \312 \210\211\262b\210\313\311\306#\211\262\203\204\314\224\262\315\225\262\311\262\203h\316\317!\320\224f\321\316\320!\317\"\316\314!FB\262\322!\211\262\203=\315\225\211\262	b\210\202=|\210\323\237!c\210\214`}\210b\210\313\324\311\306#\203\212\325\326!\210\202{d\262\n\203_\327\330\"@\211\205\307\214~\210\206\242`Sf\331=\205\256f\331=?\205\306\332 \210\311f\333>\203\303\334y\315U\204\265\322!)\262\203_\311b\210\335\311w\210`\262\n\311f\331=\262db\210\335\nx\210\211\205\366`\nTV\205\366`Sf\331=\211\262\203\334u\210	T\262\n\336 \262	\202\336 \262		b\210\337\340\n\306#\2036\334u\210\341\311x\317\246\315U\315\224b\210\2030\342c\210\311u\210\202\211\204X	b\210\313\343\f\344Q\n\306#\203X	b\210\340c\210b\210\340c\210\311\211\223\266db\210)\345 \203~
\203~
\346=\204~
\347=\204~\350
#\210`\262\202'\345 \205\240
\205\240
\346=?\205\240
\347=?\205\240\350d
#+\207" [rfc2047-allow-irregular-q-encoded-words case-fold-search rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist ietf-drums-tspecials mail-parse-charset 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 substring 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 decode-coding-region] 14 (#$ . 19700) "r"])
#@168 Decode MIME-encoded words in region between START and END.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.

(fn START END)
(defalias 'rfc2047-decode-address-region #[514 "\300\301#\207" [rfc2047-decode-region t] 6 (#$ . 21799)])
#@200 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.

(fn STRING &optional ADDRESS-MIME)
(defalias 'rfc2047-decode-string #[513 "\306\307\"\203\312\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321 \210c\210ed\322\203,\323\202-\324\325\211\211\211\212\214}\210\203C\326 \210\211\262b\210\327\325\322#\211\262\203\247\330\224\262\313\225\262\325\262\203\213\331\320!\332\224f\333\331\332!\320\"\331\330!FB\262\334!\211\262\203`\313\225\211\262	b\210\202`|\210\335\237!c\210\214`}\210b\210\327\336\325\322#\203\255\337\340!\210\202\236d\262\n\203\202\341\342\"@\211\205\352\214~\210\206\305`Sf\343=\205\321f\343=?\205\351\344 \210\325f\345>\203\346\346y\313U\204\330\334!)\262\203\202\325b\210\347\325w\210`\262\n\325f\343=\262db\210\347\nx\210\211\205`\nTV\205`Sf\343=\211\262\203.\346u\210	T\262\n\350 \262	\2022\350 \262		b\210\351\352\n\322#\203Y\346u\210\353\325x\320\246\313U\313\224b\210\203S\354c\210\325u\210\2026\211\204{	b\210\327\355\f\356Q\n\322#\203{	b\210\352c\210b\210\352c\210\325\211\223\266db\210)\357 \203\241
\203\241
\360=\204\241
\361=\204\241\362
#\210`\262\202J\357 \205\303
\205\303
\360=?\205\303
\361=?\205\303\362d
#+\266\n\363 *\207\211\203\367\310\311!r\211q\210\312\313\314\315\316!\364\"\320$\216\365!\203\352\321 \210c\210\326 \210\363 *\262\262
\203
\360=\204
\361=\204\366\322\"\367=\203\207\370
\"\207\365!\203\207\370\360\"\207" [rfc2047-allow-irregular-q-encoded-words case-fold-search rfc2047-quote-decoded-words-containing-tspecials rfc2047-header-encoding-alist ietf-drums-tspecials mail-parse-charset string-match "=\\?" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [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 match-string 3 substring 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 decode-coding-region buffer-string [buffer-name kill-buffer] multibyte-string-p detect-coding-string undecided decode-coding-string] 17 (#$ . 22081)])
#@156 Decode MIME-encoded STRING and return the result.
Backslashes which precede characters other than `"' and `\' in quoted
strings are stripped.

(fn STRING)
(defalias 'rfc2047-decode-address-string #[257 "\300\301\"\207" [rfc2047-decode-string t] 4 (#$ . 24781)])
#@38 Pad STRING to quartets.

(fn STRING)
(defalias 'rfc2047-pad-base64 #[257 "\300G\301\"\302U\203\207\303\304\"\203\305\302\211\224#\262\300G\301\"\211\306\267\2029\202:\202:\307P\202:\310P\202:\311\207" [mod 4 0 string-match "=+$" substring #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 37 1 41 2 45 3 51)) "==" "=" nil] 5 (#$ . 25050)])
(provide 'rfc2047)

Zerion Mini Shell 1.0