;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/mmexternal.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 "`mmexternal.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\305\306!\210\305\307!\210\310\311\312\313#\210\314\311!\210\315\311\316N\317;\204\"\320!\321 \322H\"*\317\323N\n\203>\324 !\203>\325\326\n\"\210 \fM\210\327 \330\331#\210+\331\207" [member-name class cache sym func require mmgeneric mime luna-define-class-function mime-external-entity (mime-entity standard-object) (body-buffer body-file) luna-define-internal-accessors #[(entity) "\301\302\303H!P\207" [entity "child of " mime-entity-name 5] 4] luna-class mime-entity-name symbol-name intern 1 luna-method-cache fboundp mapatoms #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] put luna-method-qualifier nil] 5) (defalias 'mmexternal-require-file-name #[(entity) "\300\301\302\217\207" [nil (byte-code "\306H\206]\307\310H!\211\311\312\n AA\"A*\211\205\\\f\313\230\205\\ \314\312\n AA\"A* \315\312\n AA\"A* \316\312\n AA\"A*\306\317 \320\321\322!R\"I+*\207" [entity ct parameter content-type access-type name 12 mime-entity-content-type 5 "access-type" assoc "anon-ftp" "site" "directory" "name" expand-file-name "/anonymous@" ":" file-name-as-directory directory site] 10) ((error (message "Can't make file-name of external-body.")))] 3]) (defalias 'mmexternal-require-buffer #[(entity) "\301H\205 \302\301H!?\205\303\304\305\217\207" [entity 11 buffer-live-p nil (byte-code "\301!\210\302r\303\304\305!\306Q!q\210\307\310H!\210p)I\207" [entity mmexternal-require-file-name 11 get-buffer-create " *Body of " mime-entity-name "*" binary-insert-encoded-file 12] 6) ((error (message "Can't get external-body.")))] 3]) (byte-code "\305\306\307N\310;\204\311!\312 \313H\"*\310\314N\n\203,\315 !\203,\316\317\n\"\210 \fM\210\320 \321\322#\210+\323\306\307N\324;\204G\311!\312 \313H\"*\324\314N\n\203c\315 !\203c\316\325\n\"\210 \fM\210\320 \321\322#\210+\326\306\307N\327;\204~\311!\312 \313H\"*\327\314N\n\203\232\315 !\203\232\316\330\n\"\210 \fM\210\320 \321\322#\210+\331\306\307N\332;\204\265\311!\312 \313H\"*\332\314N\n\203\321\315 !\203\321\316\333\n\"\210 \fM\210\320 \321\322#\210+\334\306\307N\335;\204\354\311!\312 \313H\"*\335\314N\n\203\315 !\203\316\336\n\"\210 \fM\210\320 \321\322#\210+\337\306\307N\340;\204#\311!\312 \313H\"*\340\314N\n\203?\315 !\203?\316\341\n\"\210 \fM\210\320 \321\322#\210+\342\306\307N\343;\204Z\311!\312 \313H\"*\343\314N\n\203v\315 !\203v\316\344\n\"\210 \fM\210\320 \321\322#\210+\345\306\307N\346;\204\221\311!\312 \313H\"*\346\314N\n\203\255\315 !\203\255\316\347\n\"\210 \fM\210\320 \321\322#\210+\350\306\307N\351;\204\310\311!\312 \313H\"*\351\314N\n\203\344\315 !\203\344\316\352\n\"\210 \fM\210\320 \321\353#\210+\354\306\307N\355;\204\377\311!\312 \313H\"*\355\314N\n\203\315 !\203\316\356\n\"\210 \fM\210\320 \321\322#\210+\357\360!\207" [member-name class cache sym func #[(entity) "\301\302H!\210\303c\210\301!\207" [entity mime-insert-entity-body 5 "\n"] 3] mime-external-entity luna-class mime-insert-entity symbol-name intern 1 luna-method-cache fboundp mapatoms #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] put luna-method-qualifier nil #[(entity filename) "\304\305\306!!\307\216rq\210\310 !\210\311\312ed #,\207" [#1=#:temp-buffer entity coding-system-for-write filename 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 raw-text-dos write-region] 4] mime-write-entity #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(entity) "\301!\210r\302Hq\210\303 )\207" [entity mmexternal-require-buffer 11 buffer-string] 2] mime-entity-body #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(entity) "\301!\210\302\303H!\207" [entity mmexternal-require-buffer insert-buffer-substring 11] 3] mime-insert-entity-body #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(entity filename) "\302!\210r\303Hq\210\304ed #)\207" [entity filename mmexternal-require-buffer 11 binary-write-decoded-region] 4] mime-write-entity-body #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(entity) "\302!\211\203\303 \304!\"\202\305\306!\210\307)\207" [entity ret mime-entity-body mime-decode-string mime-entity-encoding message "Cannot get content" nil] 5] mime-entity-content #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(entity) "\301!c\207" [entity mime-entity-content] 2] mime-insert-entity-content #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(entity filename) "\302!\210r\303Hq\210\304ed \305!\206\306$)\207" [entity filename mmexternal-require-buffer 11 mime-write-decoded-region mime-entity-encoding "7bit"] 6] mime-write-entity-content #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(entity field-name) "\304 \2067\305\306\307!!\310\216rq\210\311 \312H!\210\313\n!\211\2056\n9\204*\314\315\n!! \316\317\n \316H#I\210 ,\207" [#2=#:temp-buffer entity field-name ret luna-call-next-method get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) mime-insert-entity-body 5 std11-fetch-field intern capitalize 9 put-alist] 8] mime-entity-fetch-field #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] :around #[(entity &optional invisible-fields visible-fields) "p\306\211\211\307\310\311!!\312\216r\fq\210\313 \314H!\210ped q\210\315\n %.\207" [p-max p-min buf the-buf #3=#:temp-buffer entity nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#3# buffer-name kill-buffer] 2)) mime-insert-entity-body 5 mime-insert-header-from-buffer invisible-fields visible-fields] 6] mime-insert-header #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] provide mmexternal] 5)