;ELC ;;; Compiled by root@tweety.build.redhat.com on Tue Dec 14 03:50:02 2004 ;;; from file /usr/src/build/496412-noarch/BUILD/flim-1.14.7/mime.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`mime.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require alist std11 mime-def eword-decode] 2) #@76 Encode header fields to network representation, such as MIME encoded-word. (autoload 'mime-encode-header-in-buffer "eword-encode" '(#$ . 743)) #@51 Parse STRING as field-body of Content-Type field. (autoload 'mime-parse-Content-Type "mime-parse" '(#$ . 892)) #@82 Read field-body of Content-Type field from current-buffer, and return parsed it. (autoload 'mime-read-Content-Type "mime-parse" '(#$ . 1009)) #@58 Parse STRING as field-body of Content-Disposition field. (autoload 'mime-parse-Content-Disposition "mime-parse" '(#$ . 1157)) #@89 Read field-body of Content-Disposition field from current-buffer, and return parsed it. (autoload 'mime-read-Content-Disposition "mime-parse" '(#$ . 1289)) #@64 Parse STRING as field-body of Content-Transfer-Encoding field. (autoload 'mime-parse-Content-Transfer-Encoding "mime-parse" '(#$ . 1451)) #@88 Read field-body of Content-Transfer-Encoding field from current-buffer, and return it. (autoload 'mime-read-Content-Transfer-Encoding "mime-parse" '(#$ . 1595)) #@59 Parse TOKENS as msg-id of Content-Id or Message-Id field. (autoload 'mime-parse-msg-id "mime-parse" '(#$ . 1762)) #@26 Parse STRING as cid URI. (autoload 'mime-uri-parse-cid "mime-parse" '(#$ . 1882)) #@33 Parse BUFFER as a MIME message. (autoload 'mime-parse-buffer "mime-parse" '(#$ . 1970)) #@57 Encode FIELD-BODY as FIELD-NAME, and return the result. (autoload 'mime-encode-field-body "eword-encode" '(#$ . 2064)) (defalias 'mime-entity-send '(macro . #[(entity message &rest args) "\303\304\305\306\307\310 !\"!D\nBBB\207" [entity message args luna-send quote intern format "mime-%s" eval] 8])) #@149 Open an entity and return it. TYPE is representation-type. LOCATION is location of entity. Specification of it is depended on representation-type. (defalias 'mime-open-entity #[(type location) "\302\303\304\305\"!!\210\306\303\304\307\"!\310 #\207" [type location require intern format "mm%s" luna-make-entity "mime-%s-entity" :location] 5 (#$ . 2373)]) #@71 Return non-nil if contents of ENTITY has been already code-converted. (defalias 'mime-entity-cooked-p #[(entity) "\301\302#\207" [entity luna-apply-generic mime-entity-cooked-p] 4 (#$ . 2736)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-entity-cooked-p luna-method-cache make-vector 31 0] 6) #@49 Return list of entities included in the ENTITY. (defalias 'mime-entity-children #[(entity) "\306H\206>\307C\310\311H\312N\n\"\313\211 \203; \211A@\314\f \"\f9\2037\f\315N\316=?\2028\317\204 .\207" [entity luna-current-method-arguments message luna-previous-return-value luna-current-method luna-next-methods 4 mime-entity-children luna-class-find-functions 0 luna-class nil apply luna-method-qualifier :around t] 3 (#$ . 3048)]) #@27 Return node-id of ENTITY. (defalias 'mime-entity-node-id #[(entity) "\301H\207" [entity 6] 2 (#$ . 3503)]) #@33 Return entity-number of ENTITY. (defalias 'mime-entity-number #[(entity) "\301\302H!\207" [entity reverse 6] 3 (#$ . 3617)]) #@46 Return entity from ENTITY-NUMBER in MESSAGE. (defalias 'mime-find-entity-from-number #[(entity-number message) "@\211\204 \n\202 \304\n!8\211\205\305A \"))\207" [entity-number sn message rc mime-entity-children mime-find-entity-from-number] 4 (#$ . 3749)]) #@47 Return entity from ENTITY-NODE-ID in MESSAGE. (defalias 'mime-find-entity-from-node-id #[(entity-node-id message) "\302\303! \"\207" [entity-node-id message mime-find-entity-from-number reverse] 3 (#$ . 4021)]) #@36 Return entity from CID in MESSAGE. (defalias 'mime-find-entity-from-content-id #[(cid message) "\304 \305\"\232\203 \207\306 !\307\211\203&\310 @\"\211\204& A\211\204\n*\207" [cid message ret children mime-entity-read-field "Content-Id" mime-entity-children nil mime-find-entity-from-content-id] 5 (#$ . 4239)]) #@89 Return mother entity of ENTITY. If MESSAGE is specified, it is regarded as root entity. (defalias 'mime-entity-parent #[(entity &optional message) " \232?\205\n\302H\207" [entity message 5] 2 (#$ . 4569)]) #@102 Return t if ENTITY is root-entity (message). If MESSAGE is specified, it is regarded as root entity. (defalias 'mime-root-entity-p #[(entity &optional message) "\302 \"?\207" [entity message mime-entity-parent] 3 (#$ . 4785)]) #@31 Return root entity of ENTITY. (defalias 'mime-find-root-entity #[(entity) "\301!\204 \302!\202\207" [entity mime-root-entity-p mime-entity-parent] 2 (#$ . 5019)]) #@44 Insert header and body of ENTITY at point. (defalias 'mime-insert-entity #[(entity) "\301\302#\207" [entity luna-apply-generic mime-insert-entity] 4 (#$ . 5195)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-insert-entity luna-method-cache make-vector 31 0] 6) #@48 Write header and body of ENTITY into FILENAME. (defalias 'mime-write-entity #[(entity filename) "\302\303 $\207" [entity filename luna-apply-generic mime-write-entity] 5 (#$ . 5474)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-write-entity luna-method-cache make-vector 31 0] 6) #@47 Return network representation of ENTITY body. (defalias 'mime-entity-body #[(entity) "\301\302#\207" [entity luna-apply-generic mime-entity-body] 4 (#$ . 5773)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-entity-body luna-method-cache make-vector 31 0] 6) #@56 Insert network representation of ENTITY body at point. (defalias 'mime-insert-entity-body #[(entity) "\301\302#\207" [entity luna-apply-generic mime-insert-entity-body] 4 (#$ . 6049)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-insert-entity-body luna-method-cache make-vector 31 0] 6) #@37 Write body of ENTITY into FILENAME. (defalias 'mime-write-entity-body #[(entity filename) "\302\303 $\207" [entity filename luna-apply-generic mime-write-entity-body] 5 (#$ . 6355)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-write-entity-body luna-method-cache make-vector 31 0] 6) #@53 Return content of ENTITY as byte sequence (string). (defalias 'mime-entity-content #[(entity) "\301\302#\207" [entity luna-apply-generic mime-entity-content] 4 (#$ . 6658)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-entity-content luna-method-cache make-vector 31 0] 6) #@36 Insert content of ENTITY at point. (defalias 'mime-insert-entity-content #[(entity) "\301\302#\207" [entity luna-apply-generic mime-insert-entity-content] 4 (#$ . 6949)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-insert-entity-content luna-method-cache make-vector 31 0] 6) #@40 Write content of ENTITY into FILENAME. (defalias 'mime-write-entity-content #[(entity filename) "\302\303 $\207" [entity filename luna-apply-generic mime-write-entity-content] 5 (#$ . 7244)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-write-entity-content luna-method-cache make-vector 31 0] 6) #@37 Insert decoded text body of ENTITY. (defalias 'mime-insert-text-content #[(entity) "\301\302#\207" [entity luna-apply-generic mime-insert-text-content] 4 (#$ . 7559)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-insert-text-content luna-method-cache make-vector 31 0] 6) #@73 Return the value of the ENTITY's header field whose type is FIELD-NAME. (defalias 'mime-entity-fetch-field #[(entity field-name) "\302\303 $\207" [entity field-name luna-apply-generic mime-entity-fetch-field] 5 (#$ . 7849)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-entity-fetch-field luna-method-cache make-vector 31 0] 6) #@32 Return content-type of ENTITY. (defalias 'mime-entity-content-type #[(entity) "\302H\206\303\304\"\211\205\302\305 !I)\207" [entity ret 3 mime-entity-fetch-field "Content-Type" mime-parse-Content-Type] 5 (#$ . 8195)]) #@39 Return content-disposition of ENTITY. (defalias 'mime-entity-content-disposition #[(entity) "\302H\206\303\304\"\211\205\302\305 !I)\207" [entity ret 7 mime-entity-fetch-field "Content-Disposition" mime-parse-Content-Disposition] 5 (#$ . 8427)]) #@194 Return content-transfer-encoding of ENTITY. If the ENTITY does not have Content-Transfer-Encoding field, this function returns DEFAULT-ENCODING. If it is nil, "7bit" is used as default value. (defalias 'mime-entity-encoding #[(entity &optional default-encoding) "\303H\206\304\305\"\303 \203\306 !\206\n\206\307I)\207" [entity ret default-encoding 8 mime-entity-fetch-field "Content-Transfer-Encoding" mime-parse-Content-Transfer-Encoding "7bit"] 4 (#$ . 8688)]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list mime-field-parser-alist boundp ((Return-Path . std11-parse-route-addr) (Reply-To . std11-parse-addresses) (Sender . std11-parse-mailbox) (From . std11-parse-addresses) (Resent-Reply-To . std11-parse-addresses) (Resent-Sender . std11-parse-mailbox) (Resent-From . std11-parse-addresses) (To . std11-parse-addresses) (Resent-To . std11-parse-addresses) (Cc . std11-parse-addresses) (Resent-Cc . std11-parse-addresses) (Bcc . std11-parse-addresses) (Resent-Bcc . std11-parse-addresses) (Message-Id . mime-parse-msg-id) (Recent-Message-Id . mime-parse-msg-id) (In-Reply-To . std11-parse-msg-ids) (References . std11-parse-msg-ids) (Content-Id . mime-parse-msg-id))] 2) (defalias 'mime-entity-read-field #[(entity field-name) "9\203 \306!\202\307\310!!\211\311=\203\312\n!\202v \313=\203+\314\n!\202v \315=\2037\316\n!\202v\n\317H \236A\211\206u\320\n\"\321\211\205t \236A\211\203c \322!!\202i\323 \324#\n\317\325 \f #I\210\f**)\207" [field-name sym entity header field parser symbol-name intern capitalize Content-Type mime-entity-content-type Content-Disposition mime-entity-content-disposition Content-Transfer-Encoding mime-entity-encoding 10 mime-entity-fetch-field nil eword-lexical-analyze mime-decode-field-body plain put-alist field-body mime-field-parser-alist] 7]) #@49 Insert before point a decoded header of ENTITY. (defalias 'mime-insert-header #[(entity &optional invisible-fields visible-fields) "\303\304 \n%\207" [entity invisible-fields visible-fields luna-apply-generic mime-insert-header] 6 (#$ . 10545)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-insert-header luna-method-cache make-vector 31 0] 6) #@28 Return name of the ENTITY. (defalias 'mime-entity-name #[(entity) "\301\302#\207" [entity luna-apply-generic mime-entity-name] 4 (#$ . 10907)]) (byte-code "\300\301\302\303\304\305\"#\207" [put mime-entity-name luna-method-cache make-vector 31 0] 6) (defalias 'mime-entity-uu-filename #[(entity) "\303! \235\205,\304\305\306!!\307\216r\nq\210\310!\210\311\312\313\314#\205+\315\316!\205+\317\224\317\225{+\207" [entity mime-uuencode-encoding-name-list #1=#:temp-buffer mime-entity-encoding get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) mime-insert-entity-body re-search-forward "^begin [0-9]+ " nil t looking-at ".+$" 0] 4]) #@28 Return filename of ENTITY. (defalias 'mime-entity-filename #[(entity) "\306!\2069\307!\310 \311\") \203\n\203\312\n!\202\n)\2069\313!\211AA)\314\315 \"\2067\314\316 \")A\207" [entity content-disposition ret mime-header-accept-quoted-encoded-words content-type param mime-entity-uu-filename mime-entity-content-disposition mime-content-disposition-parameter "filename" eword-decode-string mime-entity-content-type assoc "name" "x-name"] 4 (#$ . 11633)]) #@38 Return primary media-type of ENTITY. (defalias 'mime-entity-media-type #[(entity) "\302!\211@A)\207" [entity content-type mime-entity-content-type] 3 (#$ . 12108)]) (put 'mime-entity-media-type 'byte-optimizer 'byte-compile-inline-expand) #@33 Return media-subtype of ENTITY. (defalias 'mime-entity-media-subtype #[(entity) "\302!\211A@A)\207" [entity content-type mime-entity-content-type] 3 (#$ . 12355)]) (put 'mime-entity-media-subtype 'byte-optimizer 'byte-compile-inline-expand) #@46 Return parameters of Content-Type of ENTITY. (defalias 'mime-entity-parameters #[(entity) "\302!\211AA)\207" [entity content-type mime-entity-content-type] 3 (#$ . 12604)]) (put 'mime-entity-parameters 'byte-optimizer 'byte-compile-inline-expand) #@48 Return type/subtype of Content-Type of ENTITY. (defalias 'mime-entity-type/subtype #[(entity-info) "\305 !\211@A*\305 !\211A@A*\211\205+ \203'\306\307\f #\202+\306\310\f\"*\207" [entity-info entity content-type subtype type mime-entity-content-type format "%s/%s" "%s"] 5 (#$ . 12859)]) (put 'mime-entity-type/subtype 'byte-optimizer 'byte-compile-inline-expand) #@44 Set ENTITY's content-type to CONTENT-TYPE. (defalias 'mime-entity-set-content-type #[(entity content-type) "\302 I\207" [entity content-type 3] 3 (#$ . 13239)]) #@53 Set ENTITY's content-transfer-encoding to ENCODING. (defalias 'mime-entity-set-encoding #[(entity encoding) "\302 I\207" [entity encoding 8] 3 (#$ . 13407)]) (provide 'mime)