;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:04:17 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/uudecode.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 "`uudecode.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303!\203\f\303\202 \304\"\210\305\306!\203\300\307\310\"\210\202!\307\311M\210\300\207" [defalias uudecode-char-int fboundp char-int identity featurep xemacs uudecode-insert-char insert-char #[(char &optional count ignored buffer) "\203\np=\203\303 \n\"\207rq\210\303 \n\")\207" [buffer char count insert-char] 3]] 4) #@177 *Non-nil value should be a string that names a uu decoder. The program should expect to read uu data on its standard input and write the converted data to its standard output. (custom-declare-variable 'uudecode-decoder-program '"uudecode" '(#$ . -981) :type 'string :group 'gnus-extract) #@67 *List of command line flags passed to `uudecode-decoder-program'. (custom-declare-variable 'uudecode-decoder-switches 'nil '(#$ . -1275) :group 'gnus-extract :type '(repeat string)) (byte-code "\306\300 B\307\302 B\310\303 B\311\312 S\211\313V\203&\f\314P\202\f\315P*\316 B\317\320!\204O\321\322!\203A\322 \202M\317\323!\203L\202M\324\320 B\300\207" [uudecode-alphabet current-load-list uudecode-begin-line uudecode-end-line str i " -`" "^begin[ ]+[0-7][0-7][0-7][ ]+\\(.*\\)$" "^end[ ]*$" 61 "^M" 0 "[^a-z]" ".?$" uudecode-body-line boundp uudecode-temporary-file-directory fboundp temp-directory temporary-file-directory "/tmp"] 2) #@180 Uudecode region between START and END using external program. If FILE-NAME is non-nil, save the result to FILE-NAME. The program used is specified by `uudecode-decoder-program'. (defalias 'uudecode-decode-region-external #[(start end &optional file-name) "p\306\211\211\212\fb\210\307 \306\310#\203\262\311y\210`&\203/&;\204/\312\313\306\211\211\314\311!%&&\203;\315&!\202S\316\317!\203L'(\317\320!)\202S\315\321\320!'\")\306*+\322\216\323\324\325!!,\326\216r,q\210\327\330\n!\331\261\210\332 -#\210\333\334\n!!\210\335\336ed.\306\211\211/&\210.\337\n!\203\256&\204\262\fb\210\f-|\210\3060\340\n!\210)\202\262\341\342!\210\343\344\345\217-\207" [status firstline tempfile cbuf start uudecode-begin-line nil re-search-forward t 1 read-file-name "File to Name:" match-string expand-file-name fboundp make-temp-file "uu" make-temp-name ((byte-code "\302!\210 q\207" [cdir cbuf cd] 2)) 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)) "begin 600 " file-name-nondirectory "\n" insert-buffer-substring cd file-name-directory apply call-process-region file-exists-p insert-file-contents-literally message "Can not uudecode" #2=#:G89075 (byte-code "\206\302 !\207" [file-name tempfile delete-file] 2) ((error)) file-name uudecode-temporary-file-directory temporary-file-directory default-directory default-process-coding-system cdir #1# end uudecode-decoder-program uudecode-decoder-switches format-alist] 9 (#$ . 1945) "r\nP"]) #@129 Uudecode region between START and END without using an external program. If FILE-NAME is non-nil, save the result to FILE-NAME. (defalias 'uudecode-decode-region #[(start end &optional file-name) "\306\211\307\211\211\211\306\310P'()\311\216\212*b\210\312+\306\313#\205v,\203=,;\204=\314\315\316\306\211\211\317\320!%!,\321\322!)\320y\210 -w\210(\204H`\307\307\307'-w\307V\203\336`\323\324\nf!\325Z\326\"\nT \307U\203y\313(\n W\203\336 \307V\203\336\f\323\324\nf!\325Z\326\"\\'\307U\204\233 S'T'\nT'\327U\203\326\330\331\f\332\"\320\306)$\210\330\323\331\f\333\"\334\"\320\306)$\210\330\323\f\334\"\320\306)$\210\307\307'\202y\331\f\335\"\202y(\204@\307 V\203\363\336\337!\210\313(\202@`-U\203(\204\313(\202@'\340U\203+\330\323\331\f\332\"\334\"\320\306)$\210\330\323\331\f\333\"\334\"\320\306)$\210\202@'\341U\203@\330\323\331\f\342\"\334\"\320\306)$\210 -w\210\202J,\203Z\212)q\210\343,!)\202v\344-!\204i\345 -\306\223-*b\210\346)!\210`-|.\n\207" [uudecode-alphabet non-data-chars inputpos lim bits remain nil 0 "^" ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) re-search-forward t expand-file-name read-file-name "File to Name:" match-string 1 generate-new-buffer " *uudecode-work*" logand uudecode-char-int 32 63 4 uudecode-insert-char lsh -16 -8 255 6 error "uucode line ends unexpectly" 3 2 -10 write-file markerp make-marker insert-buffer-substring counter done work-buffer start uudecode-begin-line file-name end] 9 (#$ . 3514) "r\nP"]) (provide 'uudecode)