HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/mail/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/mail/rfc2231.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 641)])
#@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 (#$ . 778)])
#@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?@ABCDE\31419\315\316F!!0\202\254\210\313G\317\320F\"\203X\317\321F\"\204X\322\320\323F#F\324G\317\325F\"\203{\317\326F\"\203{\317\327F\"\204{\322\330\331F#F\324GG\203\223\3321\216\315\316F!!0\202\220\210\313\206\253\317\333\n\334\335\n\336\260F\"\203\252\337\340F\"\202\253\341)F\342H!\210Fc\210\343 \210eb)\210\344H!I\345\346\347I#\210\345\350\351I#\210\345\352\351I#\210\345\353\351I#\210\345\354\347I#\210\342I!\210)\313f\211BE>\205\332BD>?\205\332\3551`\356\340!\210`{\2270\202\210\313\211A\205\332\35715m?\2051\313f\211B\352=\2042\360\361F\"\210\340u\210\313f\211B\203BE>\203\\BD>\204\\\362`\356\340!\210`{\227!@\202b\360\361F\"\210\313f\211B\350=\203\243\340u\210\313f\211BC>\204\202\324?\313\202\250\363`\356\340!\210`{!\313f\211B\350=\203\250\324?\340u\210\313fB\202\250\313\211?B\353=\204\265\360\361F\"\210\340u\210\313f\211B\364=\203\332`T\356\340!\210`S{?\203$\365\366\341#\202$BE>\204\351B\367V\203BD>\204`B\203B\350=\204
B\367V\204
Bz\370=\204\340u\210\313f\211B\204\367`{\202$\360\361F\"\210@
?F\fB\2020\202GJ\313K\205F\371J@JA\")\210\313\211LM\372\f\373\"N\313\211@\313\211O?\313PN:\203\316N@\211P\211AP\242@P\211AP\242P\211AP\242OP@?@M\236\211L\203\243O\247\203\261O\374U\203\261@?EMBM\202\305L\203\272
\203\305LALA@P\240\210NA\211N\202d.A\375\376M\237\"*B.
\207" [#1=#:temp-buffer ietf-drums-text-token ietf-drums-tspecials value parameters number generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] ietf-drums-token-to-list "0-9" nil (error) mail-header-remove-whitespace mail-header-remove-comments string-match "\\\\\"" "\\`\"\\|[^\\]\"" replace-regexp-in-string "\"" t "\\\\(" "\\\\)" "\\`(\\|[^\\][()]" "\\\\\\([()]\\)" "\\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 #[(c) "\301\302\"\207" [c format "%%%02x"] 3] 127 32 signal sort #[(e1 e2) "AA@\206\302	AA@\206\302W\207" [e1 e2 0] 2] 0 mapcar #[(elem) "@\3018\203\302A@!\202A@B\207" [elem 2 rfc2231-decode-encoded-string] 3] encoded attribute type c ntoken stoken ttoken string mod ietf-drums-syntax-table table err signal-error elem cparams #2=#:--cl-var-- part #3=#:--cl-var--] 11 (#$ . 1044)])
#@279 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\"\311\312#\307\313\"\314\315!rq\210\316\216\317 \210	c\210eb\210\320\321\311\312#\203?\322\307\310!\323\"\324\224\324\225|\210c\210\202&\n\325>\203J\326 \202O\327\326 \n\"-\207" [string value coding-system #1=#:temp-buffer string-match "\\`\\(?:\\([^']+\\)?'\\([^']+\\)?'\\)?\\(.+\\)" mm-charset-to-coding-system match-string 1 nil t 3 generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] mm-disable-multibyte re-search-forward "%\\([0-9A-Fa-f][0-9A-Fa-f]\\)" string-to-number 16 0 (nil ascii) buffer-string decode-coding-string] 4 (#$ . 4050)])
#@158 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.
(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\204g->\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*\203Xeb\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*" #[nil "\301!\205	\302!\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 (#$ . 5013)])
(provide 'rfc2231)