;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:18:02 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/mm-uu.el ;;; in Emacs version 20.4.1 ;;; 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 "`mm-uu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\"\210\306\311\310\"\210\306\312\313\"\210\306\314\313\"\207" [require mail-parse message nnheader mm-decode mailcap autoload binhex-decode-region "binhex" binhex-decode-region-external uudecode-decode-region "uudecode" uudecode-decode-region-external] 3) #@60 Copy the contents of the current buffer to a fresh buffer. (defalias 'mm-uu-copy-to-buffer #[(from to) "\212p\303\304!q\210\305 \n#\210p*\207" [obuf from to generate-new-buffer " *mm-uu*" insert-buffer-substring] 4 (#$ . 982)]) (byte-code "\305\300 B\306\302 B\307\303 B\310\304 B\300\207" [mm-uu-postscript-begin-line current-load-list mm-uu-postscript-end-line mm-uu-uu-begin-line mm-uu-uu-end-line "^%!PS-" "^%%EOF$" "^begin[ ]+[0-7][0-7][0-7][ ]+" "^end[ ]*$"] 2) #@190 *Function to uudecode. Internal function is done in elisp by default, therefore decoding may appear to be horribly slow . You can make Gnus use the external Unix decoder, such as uudecode. (custom-declare-variable 'mm-uu-decode-function ''uudecode-decode-region '(#$ . -1470) :type '(choice (item :tag "internal" uudecode-decode-region) (item :tag "external" uudecode-decode-region-external)) :group 'gnus-article-mime) (byte-code "\303\300 B\304\302 B\300\207" [mm-uu-binhex-begin-line current-load-list mm-uu-binhex-end-line "^:...............................................................$" ":$"] 2) #@193 *Function to binhex decode. Internal function is done in elisp by default, therefore decoding may appear to be horribly slow . You can make Gnus use the external Unix decoder, such as hexbin. (custom-declare-variable 'mm-uu-binhex-decode-function ''binhex-decode-region '(#$ . -2086) :type '(choice (item :tag "internal" binhex-decode-region) (item :tag "external" binhex-decode-region-external)) :group 'gnus-article-mime) (byte-code "\306\300 B\307\302 B\310\303 B\311\304 B\312\305!\204 \313\305 B\314 \315 B\313\207" [mm-uu-shar-begin-line current-load-list mm-uu-shar-end-line mm-uu-forward-begin-line mm-uu-forward-end-line mm-uu-begin-line "^#! */bin/sh" "^exit 0\\|^$" "^-+ \\(Start of \\)?Forwarded message" "^-+ End \\(of \\)?forwarded message" boundp nil ((37 . postscript) (98 . uu) (58 . binhex) (35 . shar) (45 . forward)) mm-uu-identifier-alist] 2) #@83 The default disposition of uu parts. This can be either "inline" or "attachment". (defvar mm-dissect-disposition "inline" (#$ . 2969)) (defalias 'mm-uu-configure-p #[(key val) " B\n\235\207" [key val mm-uu-configure-list] 2]) (defalias 'mm-uu-configure #[(&optional symbol value) "\203 \303 \"\210\304\305\306\307\"\207" [symbol value mm-uu-begin-line set-default nil mapcar #[(type) "\302\303\"?\205 \211\205\304\305\306\307!\310Q!JQ\211\207" [type mm-uu-begin-line mm-uu-configure-p disabled "\\|" intern "mm-uu-" symbol-name "-begin-line"] 6] (uu postscript binhex shar forward)] 3]) #@118 A list of mm-uu configuration. To disable dissecting shar codes, for instance, add `(shar . disabled)' to this list. (custom-declare-variable 'mm-uu-configure-list 'nil '(#$ . 3575) :type '(repeat (cons (choice (item postscript) (item uu) (item binhex) (item shar) (item forward)) (choice (item disabled)))) :group 'gnus-article-mime :set 'mm-uu-configure) (mm-uu-configure) #@61 Dissect the current buffer and return a list of uu handles. (defalias 'mm-uu-dissect #[nil "\306\211\211\211\211\211\211\211\211\211\307+,-./\212\214\310 \210db\210)\306y\210`/\311\3120\306\307#\203\215\313\224.\314\313!\313H1\236A\211,\315=\205_\316\317!\205_\314\320!\205_\3212\322\314\320!!)+\306y\210`\323\324\325,!\326Q!J\312 \306\307#\203,\313\224\313\225=\204,\313\224\306y\210`-,\327=\203\233\330\331\332\217\211+\203,./V\203\265\333/.\" \306\211\211\211\211\211\257\fB,\334=\203\316\333.-\"\335\306\211\211\211\211\211\257\202\203,\336=\203\345\333\n \"\337\306\211\211\211\211\211\257\202\203,\315=\203)\333.-\"+\203 \340\341+\"\203 \342\314\313+\"!\206\n\343C\344\306+\205!+\345\232?\205!3\346+BD\306\211\211\257\202\203,\327=\203m\333.-\"+\203M\340\341+\"\203M\342\314\313+\"!\206N\343C\347\306+\205e+\345\232?\205e3\346+BD\306\211\211\257\202\203,\350=\205\203\333.-\"\351\306\211\211\211\211\211\257\fB-/\202,\f\203\257d/TV\203\252\333/d\" \306\211\211\211\211\211\257\fB\352\f\237B\f.\f\207" [case-fold-search end-char-1 start-char-1 text-plain-type result end-line nil t mail-narrow-to-head ("text/plain" (charset . gnus-decoded)) re-search-forward 0 match-string uu looking-at "\\(.+\\)$" 1 ((47 . 44) (32 . 95) (42 . 95) (36 . 95)) nnheader-translate-file-chars intern "mm-uu-" symbol-name "-end-line" binhex #1=#:G82124 (binhex-decode-region start-char end-char t) ((error)) mm-uu-copy-to-buffer postscript ("application/postscript") forward ("message/rfc822" (charset . gnus-decoded)) string-match "\\.[^\\.]+$" mailcap-extension-to-mime "application/octet-stream" x-uuencode "" filename x-binhex shar ("application/x-shar") "multipart/mixed" file-name type end-char start-char text-start mm-uu-begin-line mm-uu-identifier-alist nnheader-file-name-translation-alist mm-dissect-disposition] 12 (#$ . 3956)]) #@54 Check whether the current buffer contains uu stuffs. (defalias 'mm-uu-test #[nil "\212eb\210\306\211\211\307\f\203G \204G\310\f\306\307#\203G\306y\210\311\312!\312H \236A\313\314\315 !\316Q!J\310\n\306\307#\203\f\312\224\312\225=\204\f\307\202\f -\207" [case-fold-search result end-line type mm-uu-begin-line mm-uu-identifier-alist nil t re-search-forward match-string 0 intern "mm-uu-" symbol-name "-end-line"] 4 (#$ . 5892)]) (provide 'mm-uu)