;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/rfc2231.el
;;; in Emacs version 24.3.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\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)
#@40 Return the value of ATTRIBUTE from CT.
(defalias 'rfc2231-get-value #[(ct attribute) "	A\236A\207" [attribute ct] 2 (#$ . 788)])
#@129 Parse QP-encoded string using `rfc2231-parse-string'.
N.B.  This is in violation with RFC2047, but it seem to be in common use.
(defalias 'rfc2231-parse-qp-string #[(string) "\301\302!!\207" [string rfc2231-parse-string rfc2047-decode-string] 3 (#$ . 925)])
#@282 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.
(defalias 'rfc2231-parse-string #[(string &optional signal-error) "\306\307!rq\210\310\216\311	!\311\n!\311\312!\313\211\211\211\211\211\211#$%&'()\313\314\315\217*\316+!\210*c\210\317 \210eb)\210\320+!,\321\322\323,#\210\321\324\325,#\210\321\326\325,#\210\321\327\325,#\210\321\330\323,#\210\316,!\210)\313f\211&)>\205)
&(>?\205)
\313\331\332\217\211%\205)
\333\334\335\217\210\313\211-.\336\f\337\"/\313\2110$\313\2111\313#/:\203
/@\2110\211A0@$0\211A0@0\211A0@10@#$.\236\211-\203\3561\247\203\374\3401!\203\374$#E.B.\202
-\203

\203
-A-\2112A@)P\240\210/A\211/\202\257.%\341\342.\237\"*B.
\207" [#1=#:temp-buffer ietf-drums-text-token ietf-drums-tspecials value parameters number generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ietf-drums-token-to-list "0-9" nil (byte-code "\301\302!!\207" [string mail-header-remove-whitespace mail-header-remove-comments] 3) ((error (byte-code "\303\304\305	\"\203\304\306	\"\204\307	\305\310#\311\304\312	\"\2035\304\313	\"\2035\304\314	\"\2045\307	\315\316#\311\203@\303\317\320\217\206V\304\321\n\322\323\n\324\260	\"\203U\325\326	\"\202V\327)\207" [mod string ietf-drums-tspecials nil string-match "\\\\\"" "\\`\"\\|[^\\]\"" mm-replace-in-string "\"" t "\\\\(" "\\\\)" "\\`(\\|[^\\][()]" "\\\\\\([()]\\)" "\\1" (byte-code "\301\302!!\207" [string mail-header-remove-whitespace mail-header-remove-comments] 3) ((error)) "\\`[	\n ]*\\([^" "	\n ]+" "\\(?:/[^" "	\n ]+\\)?\\)\\(?:[	\n ;]\\|\\'\\)" match-string 1 #2=""] 7))) set-syntax-table ietf-drums-unfold-fws copy-syntax-table modify-syntax-entry 39 "w" 42 " " 59 61 58 (byte-code "`\300\301!\210`{\227\207" [forward-sexp 1] 3) ((error)) err (byte-code "m\204

\306f\211\307=\204\310\311	\"\210\312u\210\306f\211\203\n>\2036>\2046\313`\314\312!\210`{\227!\202;\310\311	\"\210\306f\211\315=\203y\312u\210\306f\211
>\204Y\316\306\202\317`\314\312!\210`{!\306f\211\315=\203\316\312u\210\306f\202\306\211\320=\204\212\310\311	\"\210\312u\210\306f\211\321=\203\261`T\314\312!\210`S{\203\361\322\323\324#\202\361\n>\204\275\325V\203\354>\204\354`\203\345\315=\204\333\325V\204\333z\326=\204\345\312u\210\306f\211\204\310`{\202\361\310\311	\"\210\fFB\202\306\207" [c string ttoken stoken attribute ntoken nil 59 error "Invalid header: %s" 1 intern forward-sexp 42 t string-to-number 61 34 mapconcat #[(c) "\301\302\"\207" [c format "%%%02x"] 3] #2# 127 32 encoded number value parameters] 5) ((error (byte-code "\303	\203
\304\n@\nA\"\210\303\207" [parameters signal-error err nil signal] 3))) sort #[(e1 e2) "AA@\206\302	AA@\206\302W\207" [e1 e2 0] 2] zerop mapcar #[(elem) "@\3018\203\302A@!\202A@B\207" [elem 2 rfc2231-decode-encoded-string] 3] encoded attribute type c ntoken stoken ttoken string ietf-drums-syntax-table table elem cparams #3=#:--cl-var-- #4=#:--cl-var-- part x] 11 (#$ . 1191)])
#@263 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***".
(defalias 'rfc2231-decode-encoded-string #[(string) "\304\305\"\210\306\307\310\"!\307\311\"\312\313!rq\210\314\216\315 \210	c\210eb\210\316\317\320\321#\203=\322\307\310!\323\"\324\224\324\225|\210c\210\202$\n\325>\203H\326 \202M\327\326 \n\"-\207" [string value coding-system #1=#:temp-buffer string-match "\\`\\(?:\\([^']+\\)?'\\([^']+\\)?'\\)?\\(.+\\)" mm-charset-to-coding-system match-string 1 3 generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mm-disable-multibyte re-search-forward "%\\([0-9A-Fa-f][0-9A-Fa-f]\\)" nil t string-to-number 16 0 (nil ascii) buffer-string mm-decode-coding-string] 4 (#$ . 4526)])
#@160 Return and PARAM=VALUE string encoded according to RFC2231.
Use `mml-insert-parameter' or `mml-insert-parameter-string' to insert
the result of this function.
(defalias 'rfc2231-encode-string #[(param value) "\306!\306	!\306\307!\306\n!\310\311GZ\312\211\211\211\211()*+,-./0\313\314!1r1q\210\315\216\316 \2102c\210eb\210m\204{g0>\204Yg/>\204Yg.>\203_\317)\202ug\320=\203k\317*\202ug->\204u\317(\321u\210\202@(\203\203\322 \323 \210)\204\246(\204\246\312\210i*\203\240+\324Z\202\242+V\203B
+\325Z+eb\210\326
\206\265\327!\330\261\210m\204
g->\203\340g0>\204\340g/>\204\340g.>\204\340g\320=\203\374i+SY\203\355\331c\210\317\332\333\334g\"\261\210\335\321!\210\202\272i+V\203
\331c\210\317\321u\210\202\272eb\210\f\204
\336\261\210\202`
m\204`
,\337Y\203,
\340\202-
\341\342\333\343,T\211,\"\336\261\210\321y\210\202
*\203X
eb\210\344\261\210db\210\345c\210\202`
eb\210\346\261\210\347 .\207" [ietf-drums-no-ws-ctl-token ietf-drums-tspecials ietf-drums-text-token param broken charset ietf-drums-token-to-list "*'%\n	" -1 74 nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-enable-multibyte t 32 1 mm-encode-body mm-disable-multibyte 2 6 symbol-name us-ascii "''" ";\n" "%" format "%02x" delete-char "*=" 0 " " "" "*" "%d" "=\"" "\"" "=" buffer-string charsetp encodep spacep limit num ascii special tspecial control #1# value] 11 (#$ . 5484)])
(provide 'rfc2231)