;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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)) (#$ . 1415))
#@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)) (#$ . 2029))
#@48 Whether encoded words should be encoded again.
(defvar rfc2047-encode-encoded-words t (#$ . 2216))
(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\\?[ ->@-~]*\\)\\?=" (#$ . 2546))
#@61 Regexp that matches encoded word allowing loose Q encoding.
(defconst rfc2047-encoded-word-regexp-loose "=\\?\\([^][- ()<>@,;:*\\\"/?.=]+\\)\\(?:\\*[^?]+\\)?\\?\\(B\\?[+/0-9A-Za-z]*=*\\|Q\\?\\(?:\\?+[ -<>@-~]\\)?\\(?:[ ->@-~]+\\?+[ -<>@-~]\\)*[ ->@-~]*\\?*\\)\\?=" (#$ . 2742))
#@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\2038\266\305\202;\266\306)\207" [2000 0 " -
\n	" 1 6 quoted-printable base64] 5 (#$ . 3027)])
#@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 (#$ . 3369)])
#@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 (#$ . 3621)])
(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#\216\307\310 !\210m?\205\333\3111.\312\313!\210`Sf\314=0\2022\210\202<\203<\312\315!\210\202?db\210\214`}\210b\210\316\317\303\320#\203\315\321\224\262\206X`Sf\322=\204Gb\210T\262\3231\306\324 \210`S\262b\210\203\210\325\320#\203\210Tb\202\301\214}\210\325\303\326#\203\276`Sf\322=\203\261\327!\203\253\303u\210\202\215\330c\210\202\215\321\224b\210\330c\210\303u\210\202\215)\303u0\210\202G\210b\210\202Gdb\210)\312\313!\210`\262\202)\207" [ietf-drums-tspecials "[" "]" nil syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 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 "\\"] 11 (#$ . 3944)])
#@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 (#$ . 5053))
#@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\304\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\275\317 \203\275\320\n@!\203\275\321ed\311\n@!#\210\202\275\322\323\305\313#\210
\324\267\202\261\325`d\"\210\202\275\326\325`d\"\210)\202\275\f\203\275\321`d\f#\210\202\275\325`d\"\210\202\275\320!\203\275\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 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (address-mime 137 mime 145 default 156 nil 169)) rfc2047-encode-region mime] 9 (#$ . 5335) "*"])
#@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 (#$ . 6527)])
(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\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=\203beb\210\312\307w\210m\204\236`\262\313\314!\203G\315\225\262\316\317#\203Gb\210\202-`V\203W\320`\"\210\202\"b\210\202\"\266\202\240\321 p\322\323#\216\324\n!\210eb\210\3251}m?\205x\312\307w\210`\262\307f\203v\307fz\211\262\326=\203\336\327 \210`\262b\210\316	\330#\203\330b\210\331\332!\210b\210\331\333!\210\203\311\334\307x\210\335c\210`\262T\262\320\336Z\"\210\317\262\202v\307\262\202v\337\267\202	
\307u\210\307\262\202v\340\341!\210\202v\342 \210\311\343T`S\"\210)\344\307w\210\202v\307\262\204m\204\313\345!\203h
`\262\315\225\262\316\346\330#\2042
\307\211\262\203A
`Sfz\347=\203A
\307u\210\202\"
\203h
\315\224\262\203d
b\210\350\351\330#\203h
\315\224b\210\307\262\202h
b\210\204\f
\313	!\203\f
\315\225\211\262b\210\313\352!\203\265
\315\225\211\262\203\265
\316	\317#\204\211
`W\203\265
b\203\265
\316\353\317#\203\256
\315\224b\210\202\265
b\210\202{
\313\354!\203\f
\315\225\262\316\355\317#\203\361
`U\204\f
\313\356\n\357Q!\203\337
\307\262\202\f
\315\225Sb\210`\315\224U\204\f
\360c\210\202\f
b\210\312\307w\210\313\354!\203\361	\362\315!\"\203\307\262\202\f
b\210\202\f
\312\307x\210`\262b\210\316	\330#\203r\2061`Sf\363>\204eb\210\364\307x\210\313\355!\203T\315\225U\203T`\262\202eb\210\360c\210T\262T\262\320\"\210\317\262\202v\307\262\202v0\210\202\233\204\205\f\203\220\365
@A\"\266\202\233\340\366\367\370\360#\"\266)\266\266\211\204\251\371`\"\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-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table (error) 34 forward-sexp move delete-char -1 1 " 	" 32 2 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (46 228 41 237 40 244)) 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 (#$ . 7369)])
#@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\302\"r\211q\210\303\304\"\216\305 \210c\210\306ed#\210\307 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-enable-multibyte rfc2047-encode-region buffer-string] 7 (#$ . 10117)])
#@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 (#$ . 10575))
#@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\206v
\301\207\204'\203!\302		\"\202#!\303Q\207Y\203p\211\203Y\304\305\"\203C\211\306\211\224O\262
\202Y\304\307\"\203Y\310\306\"P\262\211\306\211\224O\262
\311G\312\313\fQ&\207\306GS\301\314\211\203
X\203
\n\f\203\231\302\306	TO\"\202\240
\306TO!\303Q\262\fG\\\262
\211V\203\273\262\314\262\202xW\204\323\211\315\313	\"\206\315G\\X\203\335
\262T\262\202x\304\316\"\203\377\306\211\225O\317\306\225\314OQ\262
\262T\262\202x\262\314\262\202xV\203
Q\207\306U\203B
\203:
\304\307\"\203:
\310\306\"P\262\306\211\224O\262\202J
P\262\202J
\312\262P\262\304\305\"\203Y
\306\211\224O\262\311G
\314O


\312

\313Q&\266\205\207" [rfc2047-encode-max-chars "" encode-coding-string "?=" string-match "\n[ 	]+\\'" 0 "(+\\'" match-string rfc2047-encode-1 " " "\n" nil string-search "\\`)+" "\n "] 24 (#$ . 10853)])
#@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\"\"\207G\306U\203
@\262\312!\262\313 \203F\314!\204I\304\262\214}\210\236A\206c\315 \316=\203b\317\202c\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\244\311`	\"\262\330\325 Z\331\332\333\311

\"#	\236A\206\277\334\335\336\f!\227\337\336\f!\226\337\260\206\324\340	&\262
\211\327H\341=\203\357n\203\353`S\202\362`\202\362bG\\|\210\211c\210\304\211\223\210\304\211\223\210G\327U?\206
m\206
\342\343!?\205
\340c)\207b\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 (#$ . 11957)])
#@58 Fold the current header field.
Return the new end point.
(defalias 'rfc2047-fold-field #[0 "\212\214\300 \210\301ed\"\210d*\207" [rfc2047-narrow-to-field rfc2047-fold-region] 3 (#$ . 13237)])
#@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 (#$ . 13435)])
#@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 (#$ . 14236)])
#@24 Fold the current line.
(defalias 'rfc2047-unfold-field #[0 "\212\214\300 \210\301ed\"*\207" [rfc2047-narrow-to-field rfc2047-unfold-region] 3 (#$ . 14467)])
#@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\211
b\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 (#$ . 14630)])
#@60 Base64-encode the header contained in STRING.

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

(fn STRING)
(defalias 'rfc2047-q-encode-string #[257 "\300\301\302\"r\211q\210\303\304\"\216\305 \210
c\210\306ed\307\310$\210\311ed\312\313$\210\314 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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] 7 (#$ . 15181)])
#@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 (#$ . 15650)])
#@64 If non-nil, quote decoded words containing special characters.
(defvar rfc2047-quote-decoded-words-containing-tspecials nil (#$ . 16057))
(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#\216\304\305 !\210\306\307\300\310#\205b`Sf\311=\204\312\225\262\312\224b\210\3131[\314 \210\214`S}\210b\210\306\315\300\316#\203S\300f\317=\204M\320\321!\210\300u\210\202:)\300u0\210\202\210b\210\202)\207" [nil syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table standard-syntax-table search-forward "\"" t 92 0 (error) forward-sexp "\\" move 34 delete-char -1] 7 (#$ . 16809)])
#@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\207\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 (#$ . 17400)])
(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\262
A\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 (#$ . 18194)])
#@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\316\320!\317\311O\316\314!F
B\262
\321!\211\262\203=\315\225\211\262	b\210\202=|\210\322
\237!c\210\214`}\210b\210\313\323\311\306#\203\212\324\325!\210\202{d\262\n\203_
\326\327\"@\211\205\307\214~\210\206\242`Sf\330=\205\256f\330=?\205\306\331 \210\311f\332>\203\303\333y\315U\204\265\321
!)\262
\203_
\311b\210\334\311w\210`\262\n\311f\330=\262
db\210\334\nx\210\211\205\366`\nTV\205\366`Sf\330=\211\262\203
\333u\210	T\262\n\335 \262	\202
\335 \262		b\210\336\337\n\306#\2036
\333u\210\340\311x\317\246\315U\315\224b\210\2030
\341c\210\311u\210\202
\211\204X
	b\210\313\342\f\343Q\n\306#\203X
	b\210\337c\210b\210\337c\210\311\211\223\266db\210)\344 \203~

\203~

\345=\204~

\346=\204~
\347
#\210`\262\202'\344 \205\240

\205\240

\345=?\205\240

\346=?\205\240
\347d
#+\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 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 (#$ . 19232) "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 (#$ . 21320)])
#@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\304
\310\311\312\"r\211q\210\313\314\"\216\315 \210c\210ed\312\203&\316\202'\317\320\211\211\211\212\214}\210\203=\321 \210\211\262b\210\322\320\312#\211\262\203\241
\323\224\262\324\225\262\320\262

\203\205\325\326!\327\224f\325\327!\326\320O\325\323!F
B\262
\330!\211\262\203Z\324\225\211\262	b\210\202Z|\210\331
\237!c\210\214`}\210b\210\322\332\320\312#\203\247\333\334!\210\202\230d\262\n\203|
\335\336\"@\211\205\344\214~\210\206\277`Sf\337=\205\313f\337=?\205\343\340 \210\320f\341>\203\340\342y\324U\204\322\330
!)\262
\203|
\320b\210\343\320w\210`\262\n\320f\337=\262
db\210\343\nx\210\211\205
`\nTV\205
`Sf\337=\211\262\203(
\342u\210	T\262\n\344 \262	\202,
\344 \262		b\210\345\346\n\312#\203S
\342u\210\347\320x\326\246\324U\324\224b\210\203M
\350c\210\320u\210\2020
\211\204u
	b\210\322\351\f\352Q\n\312#\203u
	b\210\346c\210b\210\346c\210\320\211\223\266db\210)\353 \203\233

\203\233

\354=\204\233

\355=\204\233
\356
#\210`\262\202D\353 \205\275

\205\275

\354=?\205\275

\355=?\205\275
\356d
#+\266\n\357 *\207\211\203\353
\310\311\312\"r\211q\210\313\360\"\216\361!\203\336
\315 \210c\210\321 \210\357 *\262
\262
\203
\354=\204
\355=\204\362\312\"\363=\203
\207\364
\"\207\361!\203
\207\364\354\"\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-search "=?" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-enable-multibyte "[\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 decode-coding-region buffer-string #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] multibyte-string-p detect-coding-string undecided decode-coding-string] 17 (#$ . 21602)])
#@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 (#$ . 24284)])
#@38 Pad STRING to quartets.

(fn STRING)
(defalias 'rfc2047-pad-base64 #[257 "\300
G\301\"\302U\203\207\303\304\"\203\211\302\211\224O\262
\300
G\301\"\211\305\267\2020
\207
\207
\306P\207
\307P\207\310\207" [mod 4 0 string-match "=+$" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 36 1 38 2 40 3 44)) "==" "=" nil] 4 (#$ . 24553)])
(provide 'rfc2047)