;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:04:15 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/rfc2231.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`rfc2231.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require ietf-drums rfc2047] 2) #@40 Return the value of ATTRIBUTE from CT. (defalias 'rfc2231-get-value #[(ct attribute) " A\236A\207" [attribute ct] 2 (#$ . 696)]) #@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 (#$ . 833)]) #@114 Parse STRING and return a list. The list will be on the form `(name (attribute . value) (attribute . value)...) (defalias 'rfc2231-parse-string #[(string) "\306\307\310!!\311\216rq\210\312 !\312\n!\312\313!\314\315\211\211\211\211\211\211\211\211\211\211\211#$%&'()*+,-./\316\3170!!0\3201!\2100c\210\321 \210eb\210)\3221!2\323\324\3252#\210\323\326\3252#\210\3202!\210)\315f\211)/>\205\265).>?\205\265`\327\330!\210`{\227$m\204\235\315f\211)\331=\204\243\332\3330\"\210\330u\210\315f\211)\203\217)/>\203\315).>\204\315\334`\327\330!\210`{\227!&\202\323\332\3330\"\210\315f)\315)\335=\203\330u\210\315f\211)->\204\365\336\315\202\337`\327\330!\210`{!\315f\211)\335=\203\336\330u\210\315f) \203+ &=\204+ ,B'B'\315\314,)\340=\2048\332\3330\"\210\330u\210\315f\211)\341=\203S`T\327\330!\210`S{%\202u)/>\203o).>\204o`\327\330!\210`{%\202u\332\3330\"\210\f\203\342%!% \203\220&,%P,\202\217&%B'B'\202\217 \203\252 ,B'B'$\205\265$'\237B.\207" [#1=#:temp-buffer ietf-drums-text-token ietf-drums-tspecials prev-attribute encoded number get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ietf-drums-token-to-list "0-9" "" nil mail-header-remove-whitespace mail-header-remove-comments set-syntax-table ietf-drums-unfold-fws copy-syntax-table modify-syntax-entry 39 "w" 58 forward-sexp 1 59 error "Invalid header: %s" intern 42 t string-to-number 61 34 rfc2231-decode-encoded-string subtype type value attribute parameters display-string c mailbox display-name prev-value ntoken stoken ttoken string ietf-drums-syntax-table table] 17 (#$ . 1099)]) #@103 Decode an RFC2231-encoded string. These look like "us-ascii'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A". (defalias 'rfc2231-decode-encoded-string #[(string) "\305\306\307!!\310\216rq\210\311 \312\"\211 A:\203! \211A\210\202 )@c\210eb\210\313\314\315\316#\203E\317``\320\\{\321\"`S`\320\\|\210c\210\202)\322\323!\204U\324\304!\203U\f\202X\322\325!\203t\nG\326V\203t\327\n@!\330\232\204t\331ed\327\n@!#\210\332 ,\207" [#1=#:temp-buffer string elems x enable-multibyte-characters get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) split-string "'" search-forward "%" nil t string-to-number 2 16 featurep xemacs boundp mule 1 intern us-ascii mm-decode-coding-region buffer-string] 6 (#$ . 2840)]) #@61 Return and PARAM=VALUE string encoded according to RFC2231. (defalias 'rfc2231-encode-string #[(param value) "\306!\306 !\306\307!\306\n!\310\311\211\211\211\211%&'()*+\312\313\314!!,\315\216r,q\210-c\210eb\210m\204rg+>\204Qg*>\204Qg)>\203W\316%\202lg\317=\203c\316&\202lg(>\204l\316\320u\210\2028 \203y\321 %\204\202 \203eb\210m\204\313i\322V\203\224\323c\210\316g(>\203\266g+>\204\266g*>\204\266g)>\204\266g\317=\203\305\324\325\326g\"\261\210\327\320!\210\202\205\320u\210\202\205eb\210\330\f\206\324\331!\332\261\210eb\210 \204\351.\333\261\210\202/m\204/'\334Y\203\370\335\202\371\336.\337\325\340'T\211'\"\333\261\210\320y\210\202\351&\203&eb\210.\341\261\210db\210\342c\210\202/eb\210.\343\261\210\344 . \207" [ietf-drums-no-ws-ctl-token ietf-drums-tspecials ietf-drums-text-token broken charset charsetp ietf-drums-token-to-list "*'%\n " -1 nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) t 32 1 mm-encode-body 60 ";\n" "%" format "%02x" delete-char symbol-name us-ascii "''" "*=" 0 " " "\n " "*" "%d" "=\"" "\"" "=" buffer-string encodep spacep num ascii special tspecial control #1# value param] 10 (#$ . 3634)]) (provide 'rfc2231)