;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\322%\210\307\323\311\312\324DD\325\326\327\315\330&\207" [custom-declare-group uudecode nil "Decoding of uuencoded data." :group mail news custom-declare-variable uudecode-decoder-program funcall function #[0 "\300\207" ["uudecode"] 1 #1=""] "Non-nil value should be a string that names a uu decoder.\nThe program should expect to read uu data on its standard\ninput and write the converted data to its standard output." :type string uudecode-decoder-switches #[0 "\300\207" [nil] 1 #1#] "List of command line flags passed to `uudecode-decoder-program'." (repeat string) uudecode-use-external #[0 "\301!\207" [uudecode-decoder-program executable-find] 2 #1#] "Use external uudecode program." :version "22.1" boolean] 8)
(defconst uudecode-alphabet " -`")
(defconst uudecode-begin-line "^begin[ 	]+[0-7][0-7][0-7][ 	]+\\(.*\\)$")
(defconst uudecode-end-line "^end[ 	]*$")
(defconst uudecode-body-line (byte-code "\300\301
S\211\262\302V\203\211\303P\262
\202\211\304P\207" [61 "^M" 0 "[^a-z]" ".?$"] 4))
(make-obsolete-variable 'uudecode-temporary-file-directory 'temporary-file-directory "28.1")
#@216 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'.

(fn START END &optional FILE-NAME)
(defalias 'uudecode-decode-region-external #[770 "p\306\211\212b\210\307\306\310#\203\222\311y\210`\262
\203);\204)\312\313\306\211\211\314\311!%\262\2033\315!\2026\316\317!\262	\306\320\321#\216\322\323\310\"r\211q\210\320\324\"\216\325\326!\327\261\210\330	#\210\331\332!!\210\333\334ed\306\211\211\f&\210*\210*\210\335!\203\216\204\222b\210|\210\306\336!\210)\202\222\337\340!\210\3411\241\206\235\342!0\202\243\210\306)\207" [uudecode-begin-line default-directory default-process-coding-system uudecode-decoder-program uudecode-decoder-switches format-alist nil re-search-forward t 1 read-file-name "File to Name:" match-string expand-file-name make-temp-file "uu" make-closure #[0 "\302\301!\210\300q\207" [V0 V1 cd] 2] generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 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" (error) delete-file] 17 (#$ . 1308) "r\nP"])
#@165 Uudecode region between START and END without using an external program.
If FILE-NAME is non-nil, save the result to FILE-NAME.

(fn START END &optional FILE-NAME)
(defalias 'uudecode-decode-region-internal #[770 "\303\304\211\211\211\303\211\305P\212\nb\210\306	\303\307#\205~
\203/;\204/\310\311\312\303\211\211\313\314!%!\262	\314y\210\211\nw\210\204'
`\262\304\262\304\262\304\262\nw\304V\203\305`\262\315f\316Z\317\"\262T\262\304U\203j\307\262W\203\305\304V\203\305\315f\316Z\317\"\\\262\304U\204\214S\262T\262T\262\320U\203\274\315\321\"\315\322\323\"\321\"\322\324\"BBB\262\304\262\304\262\202j\322\325\"\262\202j\204
\304V\203\333\326\327!\210\307\262\202
`\nU\203\355\204\355\307\262\202
\330U\203\f
\315\322\323\"\321\"\315\322\324\"\321\"BB\262\202
\331U\203
\315\322\332\"\321\"B\262\211\nw\210\2027\203V
\333\334\307\"\335\336\"\216r\211q\210\337\303!\210\340\341\237\")r
q\210\342\303\211
\303\304%\210*\262
\202~
\343\n!\204e
\344 \n\303\223\262\n\nb\210\340\341\n\203v
\345\346\"\202w
\237\"\210`\n|)\207" [uudecode-alphabet uudecode-begin-line enable-multibyte-characters nil 0 "^" re-search-forward t expand-file-name read-file-name "File to Name:" match-string 1 logand 32 63 4 255 ash -8 -16 6 error "uucode line ends unexpectedly" 3 2 -10 generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte apply insert write-region markerp make-marker mapcar #[257 "\300\301\"\206\211\207" [decode-char eight-bit] 4 "\n\n(fn CH)"]] 19 (#$ . 2623) "r\nP"])
#@131 Uudecode region between START and END.
If FILE-NAME is non-nil, save the result to FILE-NAME.

(fn START END &optional FILE-NAME)
(defalias 'uudecode-decode-region #[770 "\203\n\301#\207\302#\207" [uudecode-use-external uudecode-decode-region-external uudecode-decode-region-internal] 7 (#$ . 4283)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias uudecode-char-int identity nil make-obsolete "28.1" provide uudecode] 4)