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



(byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\303\306\307\"\210\303\310\307\"\207" [require ietf-drums rfc2047 autoload mm-encode-body "mm-bodies" mail-header-remove-whitespace "mail-parse" mail-header-remove-comments] 3)
#@59 Return the value of ATTRIBUTE from CT.

(fn CT ATTRIBUTE)
(defalias 'rfc2231-get-value #[514 "\211A\236A\207" [] 4 (#$ . 317)])
#@142 Parse QP-encoded string using `rfc2231-parse-string'.
N.B.  This is in violation with RFC2047, but it seem to be in common use.

(fn STRING)
(defalias 'rfc2231-parse-qp-string #[257 "\300\301!!\207" [rfc2231-parse-string rfc2047-decode-string] 4 (#$ . 453)])
#@318 Parse STRING and return a list.
The list will be on the form
 `(name (attribute . value) (attribute . value)...)'.

If the optional SIGNAL-ERROR is non-nil, signal an error when this
function fails in parsing of parameters.  Otherwise, this function
must never cause a Lisp error.

(fn STRING &optional SIGNAL-ERROR)
(defalias 'rfc2231-parse-string #[513 "\303\304\305\"r\211q\210\306\307\"\216\310!\310	!\310\311!\312\211\211\211\211\211\211\3131+\314\315!!0\202\233\210\312\316\317\"\203H\320\321\"\204H\322\317\323#\262\305\262
\316\324\"\203k\316\325\"\203k\320\326\"\204k\327\330\331#\262\305\262
\211\203\202\3321}\314\315!!0\202\210\312\206\231\320\333	\334	\335\260\"\203\230\336\337\"\202\231\340\262
\341\n!\210\211c\210\342 \210eb\266\343\n!\344\345\346#\210\344\347\350#\210\344\351\350#\210\344\352\350#\210\344\353\346#\210\341
!\266\312f\262\n>\205\253	>?\205\253\3541\364`\355\337!\210`{\2270\202\366\210\312\211\262\205\253\3561\"m?\205\312f\262\351=\204
\357\360\"\210\337u\210\312f\211\262\203
\n>\203@
	>\204@
\361`\355\337!\210`{\227!\262\202F
\357\360\"\210\312f\262\347=\203\214
\337u\210\312f\262>\204i
\305\262\312\262\202\222
\362`\355\337!\210`{!\262\312f\262\347=\203\222
\305\262\337u\210\312f\262\202\222
\312\262\312\262\352=\204\237
\357\360\"\210\337u\210\312f\262\363=\203\306
`T\355\337!\210`S{\262
\203\364\365\340#\262
\202\n>\204\325
\366V\203\n	>\204\n`\203\347=\204\371
\366V\204\371
z\367=\204\337u\210\312f\262\202\336
`{\262
\202\357\360\"\210
FB\262\202
0\210\2022\312\262\f\2050\370
@A\"\266\312\211\371\372\"\312\211\211\211\211:\203\237@\262
\211
A\262\242\262\211
A\262\242\262\211
A\262\242\262\211@\262\236\211\262\203w\247\203\203\373U\203\203EB\262\202\230\203\215\n\203\230AA@P\240\210A\262\202=\266\374\375\237\"B\266\202\266\212*\207" [ietf-drums-text-token ietf-drums-tspecials ietf-drums-syntax-table generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] ietf-drums-token-to-list "0-9" nil (error) mail-header-remove-whitespace mail-header-remove-comments string-search "\\\"" string-match "\\`\"\\|[^\\]\"" string-replace "\"" "\\(" "\\)" "\\`(\\|[^\\][()]" replace-regexp-in-string "\\\\\\([()]\\)" "\\1" (error) "\\`[	\n ]*\\([^" "	\n ]+\\(?:/[^" "	\n ]+\\)?\\)\\(?:[	\n ;]\\|\\'\\)" match-string 1 "" set-syntax-table ietf-drums-unfold-fws copy-syntax-table modify-syntax-entry 39 "w" 42 " " 59 61 58 (error) forward-sexp (error) error "Invalid header: %s" intern string-to-number 34 mapconcat #[257 "\300\301\"\207" [format "%%%02x"] 4 "\n\n(fn C)"] 127 32 signal sort #[514 "
AA@\206\300
AA@\206\300W\207" [0] 4 "\n\n(fn E1 E2)"] 0 mapcar #[257 "\211@\3008\203\301A@!\202
A@B\207" [2 rfc2231-decode-encoded-string] 4 "\n\n(fn ELEM)"]] 24 (#$ . 720)])
#@292 Decode an RFC2231-encoded string.
These look like:
 "us-ascii\='en-us\='This%20is%20%2A%2A%2Afun%2A%2A%2A",
 "us-ascii\='\='This%20is%20%2A%2A%2Afun%2A%2A%2A",
 "\='en-us\='This%20is%20%2A%2A%2Afun%2A%2A%2A",
 "\='\='This%20is%20%2A%2A%2Afun%2A%2A%2A", or
 "This is ***fun***".

(fn STRING)
(defalias 'rfc2231-decode-encoded-string #[257 "\300\301\"\204\f\302\303\"\207\304\305\"\306\304\307\"\310\311#\312\313\311\"r\211q\210\314\315\"\216\316 \210c\210eb\210\317\320\310\311#\203G\321\304\307!\322\"\323\224\323\225|\210c\210\202.
\324>\203R\325 \202W\326\325 \"*\207" [string-match "\\`\\(?:\\([^']+\\)?'\\([^']+\\)?'\\)?\\(.+\\)\\'" error "Unrecognized RFC2231 format: %S" match-string 3 mm-charset-to-coding-system 1 nil t generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte re-search-forward "%\\([[:xdigit:]][[:xdigit:]]\\)" string-to-number 16 0 (nil ascii) buffer-string decode-coding-string] 8 (#$ . 3706)])
#@176 Return a PARAM=VALUE string encoded according to RFC2231.
Use `mml-insert-parameter' or `mml-insert-parameter-string' to insert
the result of this function.

(fn PARAM VALUE)
(defalias 'rfc2231-encode-string #[514 "\303!\303	!\303\304!\303\n!\305\306GZ\307\211\211\211\211\310\311\312\"r\211q\210\313\314\"\216\315 \210\fc\210eb\210m\204ig\f>\204Gg>\204Gg\n>\203M\312\262\202cg\316=\203Y\312\262\202cg	>\204c\312\262\317u\210\202.\203q\320 \262\321 \210\204\222\204\222\307\210i\203\214\322Z\202\216V\2032
\323Z\262eb\210\324\206\241\325!\326\261\210m\204\374g	>\203\314g\f>\204\314g>\204\314g\n>\204\314g\316=\203\351iSY\203\332\327c\210\312\262\330\331\332g\"\261\210\333\317!\210\202\246iV\203\366\327c\210\312\262\317u\210\202\246eb\210
\204\f

\334\261\210\202Q
m\204Q
\335Y\203
\336\202
\337\340\331\341\fT\211\262\"\334\261\210\317y\210\202\f
\203H
eb\210
\342\261\210db\210\343c\210\202Q
eb\210
\344\261\210\345 *\207" [ietf-drums-no-ws-ctl-token ietf-drums-tspecials ietf-drums-text-token ietf-drums-token-to-list "*'%\n	" -1 74 nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-enable-multibyte 32 1 mm-encode-body mm-disable-multibyte 2 6 symbol-name us-ascii "''" ";\n" "%" format "%02x" delete-char "*=" 0 " " "" "*" "%d" "=\"" "\"" "=" buffer-string] 21 (#$ . 4722)])
(provide 'rfc2231)