;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 316)])#@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 (#$ . 451)])#@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\371z\367=\204\337u\210\312f\262\202\336`{\262\202\357\360\"\210FB\262\2020\210\2022\312\262\f\2050\370@A\"\266\312\211\371\372\"\312\211\211\211\211:\203\237@\262\211A\262\242\262\211A\262\242\262\211A\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\300AA@\206\300W\207" [0] 4 "\n\n(fn E1 E2)"] 0 mapcar #[257 "\211@\3008\203\301A@!\202A@B\207" [2 rfc2231-decode-encoded-string] 4 "\n\n(fn ELEM)"]] 24 (#$ . 717)])#@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 (#$ . 3702)])#@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\202Qm\204Q\335Y\203\336\202\337\340\331\341\fT\211\262\"\334\261\210\317y\210\202\f\203Heb\210 \342\261\210db\210\343c\210\202Qeb\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 (#$ . 4717)]) (provide 'rfc2231)