;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/mel.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 "`mel.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require mime-def alist] 2) #@67 List of Content-Transfer-Encoding. Each encoding must be string. (custom-declare-variable 'mime-encoding-list ''("7bit" "8bit" "binary" "base64" "quoted-printable") '(#$ . 696) :group 'mime :type '(repeat string)) #@131 Return list of Content-Transfer-Encoding. If SERVICE is specified, it returns available list of Content-Transfer-Encoding for it. (defalias 'mime-encoding-list #[(&optional service) "\203<\306\307\310\311\312\313\"!J\"\210\n\306\211@\211\2038 @\211 \235\2040 G\314X\2040 B)\fA\211\202* )\207 \207" [service dest mel-encoding-module-alist pair rest key nil mapatoms #[(sym) "\302=\206 \303! B\211\207" [sym dest nil symbol-name] 2] intern format "%s-obarray" 1 mime-encoding-list] 7 (#$ . 918)]) #@59 Return table of Content-Transfer-Encoding for completion. (defalias 'mime-encoding-alist #[(&optional service) "\301\302\303!\"\207" [service mapcar list mime-encoding-list] 4 (#$ . 1440)]) (defalias 'mel-use-module #[(name encodings) "\205\303\302@ \304@\n\"AB#\210A\211\204\305\207" [encodings name mel-encoding-module-alist set-alist assoc nil] 8]) (put 'mel-use-module 'byte-optimizer 'byte-compile-inline-expand) (defalias 'mel-find-function #[(service encoding) "\306\307\310\"!J \311 \n\"\211\2064\312 \f\"A\211\2032\313 @!\210\311 \n\"\211\2042 A\211\204 )+\207" [service encoding ob-array f mel-encoding-module-alist rest intern format "%s-obarray" intern-soft assoc require] 5]) (put 'mel-find-function 'byte-optimizer 'byte-compile-inline-expand) #@48 Insert file FILENAME encoded by "7bit" format. (defalias '8bit-insert-encoded-file #[(filename) "\303\304\305\n!*\207" [format-alist coding-system-for-read filename raw-text nil insert-file-contents] 2 (#$ . 2226)]) #@66 Decode and write current region encoded by "8bit" into FILENAME. (defalias '8bit-write-decoded-region #[(start end filename) "\305\306\307\n \f#*\207" [format-alist coding-system-for-write start end filename raw-text nil write-region] 4 (#$ . 2450)]) (byte-code "\306\307\310\311\"\210\302 B\312\302!\204\313\314\315\"\316\317\n\"\320!\204&\321KM\210)\306\307\310\322\"\210\303 B\312\303!\204=\313\314\315\"\316\317 \"\320!\204M\321KM\210)\307\310\323\"\210\304 B\312\304!\204b\313\314\315\"\316\317\f\"\324M\210\307\310\325\"\210\305 B\312\305!\204}\313\314\315\"\316\317 \"\326M\210\306\307\310\327\"\210\330 B\312\330!\204\233\313\314\315\"\316\317\"\320!\204\254\331KM\210)\306\307\310\332\"\210\333 B\312\333!\204\304\313\314\315\"\316\317\"\320!\204\325\334KM\210)\335\336\331\"\210\335\337\334\"\210\317\340\"#\211$\203\341$@#\"#\210$A\211$\204\356+\306\207" [sym current-load-list mime-encode-string-obarray mime-decode-string-obarray mime-encode-region-obarray mime-decode-region-obarray nil add-to-list mel-service-list mime-encode-string boundp make-vector 7 0 intern "8bit" fboundp identity mime-decode-string mime-encode-region #[(start end) "\300\207" [nil] 1] mime-decode-region #[(start end) "\300\207" [nil] 1] mime-insert-encoded-file mime-insert-encoded-file-obarray 8bit-insert-encoded-file mime-write-decoded-region mime-write-decoded-region-obarray 8bit-write-decoded-region defalias 7bit-insert-encoded-file 7bit-write-decoded-region "7bit" mel-copy-method dst-backend src-backend services] 5) #@68 Decode and write current region encoded by "binary" into FILENAME. (defalias 'binary-write-decoded-region #[(start end filename) "\306\307\211\310 \f #+\207" [jam-zcat-filename-list jka-compr-compression-info-list coding-system-for-write start end filename binary nil write-region] 4 (#$ . 4033)]) (defalias 'binary-insert-encoded-file 'insert-file-contents-literally) #@72 Like `find-file-noselect', q.v., but don't code and format conversion. (defalias 'binary-find-file-noselect #[(filename &optional nowarn rawfile) "\305\306\307\n \f#*\207" [format-alist coding-system-for-read filename nowarn rawfile binary nil find-file-noselect] 4 (#$ . 4411)]) #@53 Like `funcall', q.v., but read and write as binary. (defalias 'binary-funcall #[(name &rest args) "\304\211\305\n \"*\207" [coding-system-for-write coding-system-for-read name args binary apply] 3 (#$ . 4699)]) #@100 Like `funcall', q.v., but write as binary and read as text. Read text is decoded as CODING-SYSTEM. (defalias 'binary-to-text-funcall #[(coding-system name &rest args) "\305\306 \f\"*\207" [coding-system coding-system-for-write coding-system-for-read name args binary apply] 3 (#$ . 4919)]) (byte-code "\306\307\310\311\"\210\302 B\312\302!\204\313\314\315\"\316\317\n\"\320!\204&\321KM\210)\306\307\310\322\"\210\303 B\312\303!\204=\313\314\315\"\316\317 \"\320!\204M\321KM\210)\307\310\323\"\210\304 B\312\304!\204b\313\314\315\"\316\317\f\"\324M\210\307\310\325\"\210\305 B\312\305!\204}\313\314\315\"\316\317 \"\326M\210\306\307\310\327\"\210\330 B\312\330!\204\233\313\314\315\"\316\317\"\320!\204\254\331KM\210)\306\307\310\332\"\210\333 B\312\333!\204\304\313\314\315\"\316\317\"\320!\204\325\334KM\210)\335 B\312\335!\204\354\320\336!\205\352\337\336K!\203\307\306\307\310\311\"\210\302 B\312\302!\204\313\314\315\"\316\340\n\"\320!\204\336KM\210)\306\307\310\322\"\210\303 B\312\303!\204.\313\314\315\"\316\340 \"\320!\204>\341KM\210)\306\307\310\323\"\210\304 B\312\304!\204U\313\314\315\"\316\340\f\"\320!\204e\342KM\210)\306\307\310\325\"\210\305 B\312\305!\204|\313\314\315\"\316\340 \"\320!\204\214\343KM\210)\307\310\327\"\210\330 B\312\330!\204\242\313\314\315\"\316\340\"\344M\210\307\310\345\"\210\346 B\312\346!\204\277\313\314\315\"&\316\347&\"\350M\210\351\352@A@\203\355\353\354@@A\355@@,\"AB#\210@A\211@\204\322*\356\357@A@\203\353\354@@A\355@@,\"AB#\210@A\211@\204\371*\360\361@A@\203;\353\354@@A\355@@,\"AB#\210@A\211@\204 *\362\363@A@\203b\353\354@@A\355@@,\"AB#\210@A\211@\204G*\364 B\312\364!\204|\365\366!\205z\367\370!\210\371\372!4\373 B\312\373!\204\225\365\366!\205\223\367\370!\210\371\374!;4\203\301\372\375@A@\203\300\353\354@@A\355@@,\"AB#\210@A\211@\204\245*;\203\355\374\376@A@\203\354\353\354@@A\355@@,\"AB#\210@A\211@\204\321*B\203\377\201C@A@\203\353\354@@A\355@@,\"AB#\210@A\211@\204\377*\306\207" [sym current-load-list mime-encode-string-obarray mime-decode-string-obarray mime-encode-region-obarray mime-decode-region-obarray nil add-to-list mel-service-list mime-encode-string boundp make-vector 7 0 intern "binary" fboundp identity mime-decode-string mime-encode-region #[(start end) "\300\207" [nil] 1] mime-decode-region #[(start end) "\300\207" [nil] 1] mime-insert-encoded-file mime-insert-encoded-file-obarray binary-insert-encoded-file mime-write-decoded-region mime-write-decoded-region-obarray binary-write-decoded-region mel-b-builtin base64-encode-string subrp "base64" base64-decode-string base64-encode-region base64-decode-region #[(filename) "\302\303\304\305!!\306\216rq\210\307\310!\210\311 !\210\312 +!c\210n\206!\313c\207" [#1=#:temp-buffer filename base64-encode-string get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) set-buffer-multibyte nil binary-insert-encoded-file buffer-string 10] 4 "Encode contents of file FILENAME to base64, and insert the result.\nIt calls external base64 encoder specified by\n`base64-external-encoder'. So you must install the program (maybe\nmmencode included in metamail or XEmacs package)." "*fInsert encoded file: "] encoded-text-decode-string encoded-text-decode-string-obarray "B" #[(string) "\301\302\"\203 \303!\207\304\305\"\207" [string string-match "\\`\\(\\([A-Za-z0-9+/][A-Za-z0-9+/][A-Za-z0-9+/][A-Za-z0-9+/]\\)*[A-Za-z0-9+/][A-Za-z0-9+/][A-Za-z0-9+/=][A-Za-z0-9+/=]\\)\\'" base64-decode-string error "Invalid encoded-text %s"] 3] mel-b-el ("base64" "B") set-alist mel-encoding-module-alist assoc mel-q ("quoted-printable" "Q") mel-g ("x-gzip64") mel-u ("x-uue" "x-uuencode") mel-b-ccl-module featurep mule require path-util module-installed-p mel-b-ccl mel-q-ccl-module mel-q-ccl ("base64" "B") ("quoted-printable" "Q") mel-b-dl encodings name base64-dl-module ("base64" "B")] 8) #@87 Encode region START to END of current buffer using ENCODING. ENCODING must be string. (defalias 'mime-encode-region #[(start end encoding) "\306\307\310\311 \"!J\312\n\"\211\2068\313\f\"A\211\2036\314 @!\210\312\n\"\211\2046 A\211\204! )- \"\207" [encoding service ob-array f mel-encoding-module-alist rest mime-encode-region intern format "%s-obarray" intern-soft assoc require start end] 5 (#$ . 9004) (list (region-beginning) (region-end) (completing-read "Encoding: " (mime-encoding-alist) nil t "base64"))]) #@87 Decode region START to END of current buffer using ENCODING. ENCODING must be string. (defalias 'mime-decode-region #[(start end encoding) "\306\307\310\311 \"!J\312\n\"\211\2068\313\f\"A\211\2036\314 @!\210\312\n\"\211\2046 A\211\204! )- \"\207" [encoding service ob-array f mel-encoding-module-alist rest mime-decode-region intern format "%s-obarray" intern-soft assoc require start end] 5 (#$ . 9543) (list (region-beginning) (region-end) (completing-read "Encoding: " (mime-encoding-alist 'mime-decode-region) nil t "base64"))]) #@176 Decode STRING using ENCODING. ENCODING must be string. If ENCODING is found in `mime-string-decoding-method-alist' as its key, this function decodes the STRING by its value. (defalias 'mime-decode-string #[(string encoding) "\306\307\310\311 \"!J\312\n\"\211\2068\313\f\"A\211\2036\314 @!\210\312\n\"\211\2046 A\211\204! )-\211\203E  !\202G )\207" [encoding service ob-array f mel-encoding-module-alist rest mime-decode-string intern format "%s-obarray" intern-soft assoc require string] 6 (#$ . 10103)]) (byte-code "\302\303\304\"\210\301B\305\301!\204\306\307\310\"\302\207" [current-load-list encoded-text-encode-string-obarray add-to-list mel-service-list encoded-text-encode-string boundp make-vector 7 0] 3) #@165 Encode STRING as encoded-text using ENCODING. ENCODING must be string. Optional argument MODE allows `text', `comment', `phrase' or nil. Default value is `phrase'. (defalias 'encoded-text-encode-string #[(string encoding &optional mode) "\306\230\203 \307 \310\"\207\311\312\313\314\n\"!J\315 \"\211\206G\316 \"A\211\203E\317@!\210\315 \"\211\204EA\211\204-\f)-\211\203U\f \"\202V )\207" [encoding string service ob-array f mel-encoding-module-alist "B" base64-encode-string no-line-break encoded-text-encode-string intern format "%s-obarray" intern-soft assoc require rest mode] 6 (#$ . 10852)]) (byte-code "\302\303\304\"\210\301B\305\301!\204\306\307\310\"\302\207" [current-load-list encoded-text-decode-string-obarray add-to-list mel-service-list encoded-text-decode-string boundp make-vector 7 0] 3) #@73 Decode STRING as encoded-text using ENCODING. ENCODING must be string. (defalias 'encoded-text-decode-string #[(string encoding) "\306\307\310\311 \"!J\312\n\"\211\2068\313\f\"A\211\2036\314 @!\210\312\n\"\211\2046 A\211\204! )- !\207" [encoding service ob-array f mel-encoding-module-alist rest encoded-text-decode-string intern format "%s-obarray" intern-soft assoc require string] 5 (#$ . 11699)]) (defalias 'base64-encoded-length #[(string) "G\301\\\302\245\303_\207" [string 2 3 4] 2]) (defalias 'Q-encoding-printable-char-p #[(chr mode) "\302>?\205,\303X\205,\304X\205, \305=\203\306\207 \307=\203&\310>?\207\311\312\313!\"\207" [chr mode (61 63 95) 32 126 text t comment (40 41 92) string-match "[A-Za-z0-9!*+/=_---]" char-to-string] 4]) (put 'Q-encoding-printable-char-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Q-encoded-text-length #[(string &optional mode) "\306\211G\307 \nW\203b H\211 \211\310>?\205G\311 X\205G \312X\205G \313=\2034\314\202G \315=\203A \316>?\202G\317\320\321 !\"*\204Q \311=\203W\fT\202[\f\322\\ T\211\202\n\f,\207" [string chr len i l mode 0 nil (61 63 95) 32 126 text t comment (40 41 92) string-match "[A-Za-z0-9!*+/=_---]" char-to-string 3] 5]) #@50 Insert file FILENAME encoded by ENCODING format. (defalias 'mime-insert-encoded-file #[(filename encoding) "\306\307\310\311 \"!J\312\n\"\211\2068\313\f\"A\211\2036\314 @!\210\312\n\"\211\2046 A\211\204! )- !\207" [encoding service ob-array f mel-encoding-module-alist rest mime-insert-encoded-file intern format "%s-obarray" intern-soft assoc require filename] 5 (#$ . 12956) (list (read-file-name "Insert encoded file: ") (completing-read "Encoding: " (mime-encoding-alist) nil t "base64"))]) #@104 Decode and write current region encoded by ENCODING into FILENAME. START and END are buffer positions. (defalias 'mime-write-decoded-region #[(start end filename encoding) "\306\307\310\311 \"!J\312\n\"\211\2068\313\f\"A\211\2036\314 @!\210\312\n\"\211\2046 A\211\204! )- #\207" [encoding service ob-array f mel-encoding-module-alist rest mime-write-decoded-region intern format "%s-obarray" intern-soft assoc require start end filename] 5 (#$ . 13476) (list (region-beginning) (region-end) (read-file-name "Write decoded region to file: ") (completing-read "Encoding: " (mime-encoding-alist 'mime-write-decoded-region) nil t "base64"))]) (provide 'mel)