%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/mail/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/mail/rfc2231.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@59 Return the value of ATTRIBUTE from CT.

(fn CT ATTRIBUTE)
(defalias 'rfc2231-get-value #[514 "\211A\236A\207" [] 4 (#$ . 641)])
#@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 (#$ . 777)])
#@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!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\314	!\314\315!\316\211\211\211\211\211\211\31711\320\321!!0\202\241\210\316\322\323\"\203N\322\324\"\204N\325\323\326#\262\327\262\322\330\"\203q\322\331\"\203q\322\332\"\204q\325\333\334#\262\327\262\211\203\210\3351\203\320\321!!0\202\205\210\316\206\237\322\336	\337	\340\260\"\203\236\341\342\"\202\237\343\262\344\n!\210\211c\210\345 \210eb\266\346\n!\347\350\351#\210\347\352\353#\210\347\354\353#\210\347\355\353#\210\347\356\351#\210\344!\266\316f\262\n>\205\261	>?\205\261\3571\372`\360\342!\210`{\2270\202\374\210\316\211\262\205\261\3611'm?\205#\316f\262\354=\204\362\363\"\210\342u\210\316f\211\262\203\n>\203F	>\204F\364`\360\342!\210`{\227!\262\202L\362\363\"\210\316f\262\352=\203\222\342u\210\316f\262>\204o\327\262\316\262\202\230\365`\360\342!\210`{!\262\316f\262\352=\203\230\327\262\342u\210\316f\262\202\230\316\262\316\262\355=\204\245\362\363\"\210\342u\210\316f\262\366=\203\314`T\360\342!\210`S{\262\203\367\370\343#\262\202\n>\204\333\371V\203	>\204`\203	\352=\204\377\371V\204\377z\372=\204	\342u\210\316f\262\202\344`{\262\202\362\363\"\210FB\262\2020\2027\316\262\f\2055\373@A\"\262\210\316\211\374\375\"\316\211\211\211\211:\203\245@\262\211A\262\242\262\211A\262\242\262\211A\262\242\262\211@\262\236\211\262\203}\247\203\211\306U\203\211EB\262\202\236\203\223\n\203\236AA@P\240\210A\262\202C\266\376\377\237\"B\266\202\266\212*\207" [ietf-drums-text-token ietf-drums-tspecials ietf-drums-syntax-table generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [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 #[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)"] mapcar #[257 "\211@\3008\203\301A@!\202A@B\207" [2 rfc2231-decode-encoded-string] 4 "\n\n(fn ELEM)"]] 24 (#$ . 1044)])
#@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\"\210\302\303\304\"\305\306#\303\307\"\310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321 \210c\210eb\210\322\323\305\306#\203F\324\303\304!\325\"\313\224\313\225|\210c\210\202-\326>\203Q\327 \202V\330\327 \"*\262\207" [string-match "\\`\\(?:\\([^']+\\)?'\\([^']+\\)?'\\)?\\(.+\\)" mm-charset-to-coding-system match-string 1 nil t 3 generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-disable-multibyte re-search-forward "%\\([[:xdigit:]][[:xdigit:]]\\)" string-to-number 16 (nil ascii) buffer-string decode-coding-string] 10 (#$ . 4037)])
#@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!r\211q\210\312\313\314\315\316!\317\"\320$\216\321 \210\fc\210eb\210m\204og\f>\204Mg>\204Mg\n>\203S\322\262\202ig\323=\203_\322\262\202ig	>\204i\322\262\324u\210\2024\203w\325 \262\326 \210\204\230\204\230\307\210i\203\222\320Z\202\224V\2038\327Z\262eb\210\330\206\247\331!\332\261\210m\204g	>\203\322g\f>\204\322g>\204\322g\n>\204\322g\323=\203\357iSY\203\340\333c\210\322\262\334\335\336g\"\261\210\337\324!\210\202\254iV\203\374\333c\210\322\262\324u\210\202\254eb\210\204
\340\261\210\202Wm\204W\313Y\203!\341\202\"\342\343\335\344\fT\211\262\"\340\261\210\324y\210\202\203Neb\210
\345\261\210db\210\346c\210\202Web\210
\347\261\210\350 *\262\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*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-enable-multibyte t 32 1 mm-encode-body mm-disable-multibyte 6 symbol-name us-ascii "''" ";\n" "%" format "%02x" delete-char "*=" " " "" "*" "%d" "=\"" "\"" "=" buffer-string] 21 (#$ . 5024)])
(provide 'rfc2231)

Zerion Mini Shell 1.0