Gecko [ 122.154.134.11 ]

Name	Size	Permission
auth-source.elc	5.49 KB	-rw-r--r--
canlock.elc	6.03 KB	-rw-r--r--
compface.elc	1.35 KB	-rw-r--r--
deuglify.elc	8.31 KB	-rw-r--r--
earcon.elc	5.67 KB	-rw-r--r--
ecomplete.elc	4.45 KB	-rw-r--r--
flow-fill.elc	4.57 KB	-rw-r--r--
gmm-utils.elc	7.68 KB	-rw-r--r--
gnus-agent.elc	122.37 KB	-rw-r--r--
gnus-art.elc	258.37 KB	-rw-r--r--
gnus-async.elc	12.09 KB	-rw-r--r--
gnus-audio.elc	2.48 KB	-rw-r--r--
gnus-bcklg.elc	3.67 KB	-rw-r--r--
gnus-bookmark.elc	24.54 KB	-rw-r--r--
gnus-cache.elc	26.11 KB	-rw-r--r--
gnus-cite.elc	27.6 KB	-rw-r--r--
gnus-cus.elc	38.4 KB	-rw-r--r--
gnus-delay.elc	4.98 KB	-rw-r--r--
gnus-demon.elc	8.65 KB	-rw-r--r--
gnus-diary.elc	9 KB	-rw-r--r--
gnus-dired.elc	6.56 KB	-rw-r--r--
gnus-draft.elc	10.7 KB	-rw-r--r--
gnus-dup.elc	4.77 KB	-rw-r--r--
gnus-eform.elc	3.68 KB	-rw-r--r--
gnus-ems.elc	7.21 KB	-rw-r--r--
gnus-fun.elc	8.91 KB	-rw-r--r--
gnus-group.elc	155.85 KB	-rw-r--r--
gnus-int.elc	51.53 KB	-rw-r--r--
gnus-kill.elc	18.37 KB	-rw-r--r--
gnus-logic.elc	5.2 KB	-rw-r--r--
gnus-mh.elc	2.89 KB	-rw-r--r--
gnus-ml.elc	5.22 KB	-rw-r--r--
gnus-mlspl.elc	6.37 KB	-rw-r--r--
gnus-move.elc	3.63 KB	-rw-r--r--
gnus-msg.elc	84.07 KB	-rw-r--r--
gnus-nocem.elc	12.08 KB	-rw-r--r--
gnus-picon.elc	8.63 KB	-rw-r--r--
gnus-range.elc	11.92 KB	-rw-r--r--
gnus-registry.elc	32.46 KB	-rw-r--r--
gnus-salt.elc	29.77 KB	-rw-r--r--
gnus-score.elc	76.25 KB	-rw-r--r--
gnus-setup.elc	5.01 KB	-rw-r--r--
gnus-sieve.elc	8.54 KB	-rw-r--r--
gnus-soup.elc	16.29 KB	-rw-r--r--
gnus-spec.elc	17 KB	-rw-r--r--
gnus-srvr.elc	43.88 KB	-rw-r--r--
gnus-start.elc	142.13 KB	-rw-r--r--
gnus-sum.elc	406.63 KB	-rw-r--r--
gnus-topic.elc	46.81 KB	-rw-r--r--
gnus-undo.elc	4.07 KB	-rw-r--r--
gnus-util.elc	48.22 KB	-rw-r--r--
gnus-uu.elc	57.87 KB	-rw-r--r--
gnus-vm.elc	2.63 KB	-rw-r--r--
gnus-win.elc	12.56 KB	-rw-r--r--
gnus.elc	158.49 KB	-rw-r--r--
html2text.elc	10.59 KB	-rw-r--r--
ietf-drums.elc	7.85 KB	-rw-r--r--
legacy-gnus-agent.elc	6.67 KB	-rw-r--r--
mail-parse.elc	2.44 KB	-rw-r--r--
mail-prsvr.elc	1.29 KB	-rw-r--r--
mail-source.elc	30.28 KB	-rw-r--r--
mailcap.elc	25.11 KB	-rw-r--r--
message.elc	223.29 KB	-rw-r--r--
messcompat.elc	2.83 KB	-rw-r--r--
mm-bodies.elc	6.06 KB	-rw-r--r--
mm-decode.elc	46.1 KB	-rw-r--r--
mm-encode.elc	5.96 KB	-rw-r--r--
mm-extern.elc	4.65 KB	-rw-r--r--
mm-partial.elc	3.44 KB	-rw-r--r--
mm-url.elc	9.94 KB	-rw-r--r--
mm-util.elc	39.83 KB	-rw-r--r--
mm-uu.elc	18.57 KB	-rw-r--r--
mm-view.elc	17.58 KB	-rw-r--r--
mml-sec.elc	12.58 KB	-rw-r--r--
mml-smime.elc	14.58 KB	-rw-r--r--
mml.elc	40.35 KB	-rw-r--r--
mml1991.elc	14.71 KB	-rw-r--r--
mml2015.elc	41.93 KB	-rw-r--r--
nnagent.elc	10.86 KB	-rw-r--r--
nnbabyl.elc	17.45 KB	-rw-r--r--
nndb.elc	29.58 KB	-rw-r--r--
nndiary.elc	39.38 KB	-rw-r--r--
nndir.elc	3.2 KB	-rw-r--r--
nndoc.elc	28.12 KB	-rw-r--r--
nndraft.elc	9.95 KB	-rw-r--r--
nneething.elc	11.98 KB	-rw-r--r--
nnfolder.elc	38.93 KB	-rw-r--r--
nngateway.elc	3.1 KB	-rw-r--r--
nnheader.elc	30.94 KB	-rw-r--r--
nnimap.elc	61.12 KB	-rw-r--r--
nnir.elc	45.26 KB	-rw-r--r--
nnkiboze.elc	11.79 KB	-rw-r--r--
nnlistserv.elc	4.42 KB	-rw-r--r--
nnmail.elc	52.92 KB	-rw-r--r--
nnmaildir.elc	98.94 KB	-rw-r--r--
nnmairix.elc	72.84 KB	-rw-r--r--
nnmbox.elc	19.03 KB	-rw-r--r--
nnmh.elc	15.64 KB	-rw-r--r--
nnml.elc	45.05 KB	-rw-r--r--
nnnil.elc	1.94 KB	-rw-r--r--
nnoo.elc	8.95 KB	-rw-r--r--
nnrss.elc	33.15 KB	-rw-r--r--
nnslashdot.elc	16.43 KB	-rw-r--r--
nnsoup.elc	21.22 KB	-rw-r--r--
nnspool.elc	15.55 KB	-rw-r--r--
nntp.elc	135.97 KB	-rw-r--r--
nnultimate.elc	13.85 KB	-rw-r--r--
nnvirtual.elc	18.99 KB	-rw-r--r--
nnwarchive.elc	21.92 KB	-rw-r--r--
nnweb.elc	18.3 KB	-rw-r--r--
nnwfm.elc	12.56 KB	-rw-r--r--
pop3.elc	13.01 KB	-rw-r--r--
qp.elc	4.12 KB	-rw-r--r--
rfc1843.elc	5.74 KB	-rw-r--r--
rfc2045.elc	1.01 KB	-rw-r--r--
rfc2047.elc	25.24 KB	-rw-r--r--
rfc2104.elc	1.71 KB	-rw-r--r--
rfc2231.elc	6.9 KB	-rw-r--r--
score-mode.elc	3.56 KB	-rw-r--r--
sieve-manage.elc	19.88 KB	-rw-r--r--
sieve-mode.elc	7.1 KB	-rw-r--r--
sieve.elc	10.77 KB	-rw-r--r--
smiley.elc	5.37 KB	-rw-r--r--
smime.elc	18.81 KB	-rw-r--r--
spam-report.elc	11.77 KB	-rw-r--r--
spam-stat.elc	19.88 KB	-rw-r--r--
spam-wash.elc	1.43 KB	-rw-r--r--
spam.elc	87.54 KB	-rw-r--r--
starttls.elc	6.63 KB	-rw-r--r--
utf7.elc	6.08 KB	-rw-r--r--
webmail.elc	28.79 KB	-rw-r--r--
yenc.elc	3.85 KB	-rw-r--r--

Code Editor : gnus-uu.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:03:46 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/gnus/gnus-uu.el
;;; in Emacs version 23.1.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 "`gnus-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\300\306!\210\307\310\311\312\313\314\315\301&\210\307\316\311\317\315\310%\210\307\320\311\321\315\310%\210\307\322\311\321\313\323\315\310&\207" [require gnus gnus-art message gnus-msg mm-decode yenc custom-declare-group gnus-extract nil "Extracting encoded files." :prefix "gnus-uu-" :group gnus-extract-view "Viewwing extracted files." gnus-extract-archive "Extracting encoded archives." gnus-extract-post "gnus-uu-post"] 8)
#@1218 *Default actions to be taken when the user asks to view a file.
To change the behavior, you can either edit this variable or set
`gnus-uu-user-view-rules' to something useful.

For example:

To make gnus-uu use 'xli' to display JPEG and GIF files, put the
following in your .emacs file:

(setq gnus-uu-user-view-rules '(("jpg$\\|gif$" "xli")))

Both these variables are lists of lists with two string elements.  The
first string is a regular expression.  If the file name matches this
regular expression, the command in the second string is executed with
the file as an argument.

If the command string contains "%s", the file name will be inserted
at that point in the command string.  If there's no "%s" in the
command string, the file name will be appended to the command string
before executing.

There are several user variables to tailor the behavior of gnus-uu to
your needs.  First we have `gnus-uu-user-view-rules', which is the
variable gnus-uu first consults when trying to decide how to view a
file.  If this variable contains no matches, gnus-uu examines the
default rule variable provided in this package.  If gnus-uu finds no
match here, it uses `gnus-uu-user-view-rules-end' to try to make a
match.
(custom-declare-variable 'gnus-uu-default-view-rules ''(("\\.te?xt$\\|\\.doc$\\|read.*me\\|\\.c?$\\|\\.h$\\|\\.bat$\\|\\.asm$\\|makefile" "cat %s | sed 's/
$//'") ("\\.pas$" "cat %s | sed 's/
$//'") ("\\.[1-9]$" "groff -mandoc -Tascii %s | sed s/.//g") ("\\.\$jpe?g\\|gif\\|tiff?\\|p[pgb]m\\|xwd\\|xbm\\|pcx\$$" "display") ("\\.tga$" "tgatoppm %s | ee -") ("\\.\$wav\\|aiff\\|hcom\\|u[blw]\\|s[bfw]\\|voc\\|smp\$$" "sox -v .5 %s -t .au -u - > /dev/audio") ("\\.au$" "cat %s > /dev/audio") ("\\.midi?$" "playmidi -f") ("\\.mod$" "str32") ("\\.ps$" "ghostview") ("\\.dvi$" "xdvi") ("\\.html$" "xmosaic") ("\\.mpe?g$" "mpeg_play") ("\\.\$flc\\|fli\\|rle\\|iff\\|pfx\\|avi\\|sme\\|rpza\\|dl\\|qt\\|rsrc\\|mov\$$" "xanim") ("\\.\$tar\\|arj\\|zip\\|zoo\\|arc\\|gz\\|Z\\|lzh\\|ar\\|lha\$$" "gnus-uu-archive")) '(#$ . -1120) :group 'gnus-extract-view :type '(repeat (group regexp (string :tag "Command"))))
#@126 What actions are to be taken to view a file.
See the documentation on the `gnus-uu-default-view-rules' variable for
details.
(custom-declare-variable 'gnus-uu-user-view-rules 'nil '(#$ . 3252) :group 'gnus-extract-view :type '(repeat (group regexp (string :tag "Command"))))
#@145 *What actions are to be taken if no rule matched the file name.
See the documentation on the `gnus-uu-default-view-rules' variable for
details.
(custom-declare-variable 'gnus-uu-user-view-rules-end ''(("" "file")) '(#$ . -3534) :group 'gnus-extract-view :type '(repeat (group regexp (string :tag "Command"))))
#@36 *See `gnus-uu-user-archive-rules'.
(custom-declare-variable 'gnus-uu-default-archive-rules ''(("\\.tar$" "tar xf") ("\\.zip$" "unzip -o") ("\\.ar$" "ar x") ("\\.arj$" "unarj x") ("\\.zoo$" "zoo -e") ("\\.\$lzh\\|lha\$$" "lha x") ("\\.Z$" "uncompress") ("\\.gz$" "gunzip") ("\\.arc$" "arc -x")) '(#$ . -3850) :group 'gnus-extract-archive :type '(repeat (group regexp (string :tag "Command"))))
(byte-code "\301B\302\301!\204�\303\301\304\305D\"\210\301\207" [current-load-list gnus-uu-destructive-archivers default-boundp set-default "uncompress" "gunzip"] 4)
#@269 A list that can be set to override the default archive unpacking commands.
To use, for instance, 'untar' to unpack tar files and 'zip -x' to
unpack zip files, say the following:
  (setq gnus-uu-user-archive-rules
    '(("\\.tar$" "untar")
      ("\\.zip$" "zip -x")))
(custom-declare-variable 'gnus-uu-user-archive-rules 'nil '(#$ . 4421) :group 'gnus-extract-archive :type '(repeat (group regexp (string :tag "Command"))))
#@335 *A regular expression saying what files should not be viewed based on name.
If, for instance, you want gnus-uu to ignore all .au and .wav files,
you could say something like

(setq gnus-uu-ignore-files-by-name "\\.au$\\|\\.wav$")

Note that this variable can be used in conjunction with the
`gnus-uu-ignore-files-by-type' variable.
(custom-declare-variable 'gnus-uu-ignore-files-by-name 'nil '(#$ . -4852) :group 'gnus-extract :type '(choice (const :tag "off" nil) (regexp :format "%v")))
#@360 *A regular expression saying what files that shouldn't be viewed, based on MIME file type.
If, for instance, you want gnus-uu to ignore all audio files and all mpegs,
you could say something like

(setq gnus-uu-ignore-files-by-type "audio/\\|video/mpeg")

Note that this variable can be used in conjunction with the
`gnus-uu-ignore-files-by-name' variable.
(custom-declare-variable 'gnus-uu-ignore-files-by-type 'nil '(#$ . -5350) :group 'gnus-extract :type '(choice (const :tag "off" nil) (regexp :format "%v")))
(byte-code "\301B\302\303!\207" [current-load-list gnus-uu-ext-to-mime-list (lambda (#1=#:defconst-tmp-var) (defconst gnus-uu-ext-to-mime-list #1#)) (("\\.gif$" "image/gif") ("\\.jpe?g$" "image/jpeg") ("\\.tiff?$" "image/tiff") ("\\.xwd$" "image/xwd") ("\\.pbm$" "image/pbm") ("\\.pgm$" "image/pgm") ("\\.ppm$" "image/ppm") ("\\.xbm$" "image/xbm") ("\\.pcx$" "image/pcx") ("\\.tga$" "image/tga") ("\\.ps$" "image/postscript") ("\\.fli$" "video/fli") ("\\.wav$" "audio/wav") ("\\.aiff$" "audio/aiff") ("\\.hcom$" "audio/hcom") ("\\.voc$" "audio/voc") ("\\.smp$" "audio/smp") ("\\.mod$" "audio/mod") ("\\.dvi$" "image/dvi") ("\\.mpe?g$" "video/mpeg") ("\\.au$" "audio/basic") ("\\.\$te?xt\\|doc\\|c\\|h\$$" "text/plain") ("\\.\$c\\|h\$$" "text/source") ("read.*me" "text/plain") ("\\.html$" "text/html") ("\\.bat$" "text/bat") ("\\.[1-6]$" "text/man") ("\\.flc$" "video/flc") ("\\.rle$" "video/rle") ("\\.pfx$" "video/pfx") ("\\.avi$" "video/avi") ("\\.sme$" "video/sme") ("\\.rpza$" "video/prza") ("\\.dl$" "video/dl") ("\\.qt$" "video/qt") ("\\.rsrc$" "video/rsrc") ("\\..*$" "unknown/unknown"))] 2)
#@71 *Variable saying where gnus-uu is to do its work.
Default is "/tmp/".
(custom-declare-variable 'gnus-uu-tmp-dir '(cond ((fboundp 'temp-directory) (temp-directory)) ((boundp 'temporary-file-directory) temporary-file-directory) ("/tmp/")) '(#$ . -6978) :group 'gnus-extract :type 'directory)
#@102 *Non-nil means that gnus-uu won't peek inside archives looking for files to display.
Default is nil.
(custom-declare-variable 'gnus-uu-do-not-unpack-archives 'nil '(#$ . -7275) :group 'gnus-extract-archive :type 'boolean)
#@132 *Non-nil means that gnus-uu will ignore the default viewing rules.
Only the user viewing rules will be consulted.  Default is nil.
(custom-declare-variable 'gnus-uu-ignore-default-view-rules 'nil '(#$ . -7504) :group 'gnus-extract-view :type 'boolean)
#@209 Functions run on each file after successful decoding.
They will be called with the name of the file as the argument.
Likely functions you can use in this list are `gnus-uu-grab-view'
and `gnus-uu-grab-move'.
(custom-declare-variable 'gnus-uu-grabbed-file-functions 'nil '(#$ . 7763) :group 'gnus-extract :options '(gnus-uu-grab-view gnus-uu-grab-move) :type 'hook)
#@150 *Non-nil means that gnus-uu will ignore the default archive unpacking commands.
Only the user unpacking commands will be consulted.  Default is nil.
(custom-declare-variable 'gnus-uu-ignore-default-archive-rules 'nil '(#$ . -8135) :group 'gnus-extract-archive :type 'boolean)
#@90 *Non-nil means that gnus-uu will strip all carriage returns from articles.
Default is t.
(custom-declare-variable 'gnus-uu-kill-carriage-return 't '(#$ . -8417) :group 'gnus-extract :type 'boolean)
#@197 *Non-nil means that files will be viewed with metamail.
The gnus-uu viewing functions will be ignored and gnus-uu will try
to guess at a content-type based on file name suffixes.  Default
it nil.
(custom-declare-variable 'gnus-uu-view-with-metamail 'nil '(#$ . -8622) :group 'gnus-extract :type 'boolean)
#@108 *Non-nil means that gnus-uu will mark articles that were unsuccessfully decoded as unread.
Default is nil.
(custom-declare-variable 'gnus-uu-unmark-articles-not-decoded 'nil '(#$ . -8934) :group 'gnus-extract :type 'boolean)
#@118 *Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted.
Default is nil.
(custom-declare-variable 'gnus-uu-correct-stripped-uucode 'nil '(#$ . -9166) :group 'gnus-extract :type 'boolean)
#@331 *Non-nil means that gnus-uu, when asked to save without decoding, will save in digests.
If this variable is nil, gnus-uu will just save everything in a
file without any embellishments.  The digesting almost conforms to RFC1153 -
no easy way to specify any meaningful volume and issue numbers were found,
so I simply dropped them.
(custom-declare-variable 'gnus-uu-save-in-digest 'nil '(#$ . -9404) :group 'gnus-extract :type 'boolean)
#@48 Hook run before sending a message to uudecode.
(custom-declare-variable 'gnus-uu-pre-uudecode-hook 'nil '(#$ . 9845) :group 'gnus-extract :type 'hook)
#@158 *List of regexps to match headers included in digested messages.
The headers will be included in the sequence they are matched.  If nil
include all headers.
(custom-declare-variable 'gnus-uu-digest-headers ''("^Date:" "^From:" "^To:" "^Cc:" "^Subject:" "^Message-ID:" "^Keywords:" "^Summary:" "^References:" "^Content-Type:" "^Content-Transfer-Encoding:" "^MIME-Version:" "^Content-Disposition:" "^Content-Description:" "^Content-ID:") '(#$ . -10003) :group 'gnus-extract :type '(repeat regexp))
#@67 *Non-nil means that gnus-uu will save articles in separate files.
(custom-declare-variable 'gnus-uu-save-separate-articles 'nil '(#$ . -10505) :group 'gnus-extract :type 'boolean)
#@204 *Specifies what to do if unusual situations arise during decoding.
If nil, be as conservative as possible.  If t, ignore things that
didn't work, and overwrite existing files.  Otherwise, ask each time.
(custom-declare-variable 'gnus-uu-be-dangerous ''ask '(#$ . -10692) :group 'gnus-extract :type '(choice (const :tag "conservative" nil) (const :tag "ask" ask) (const :tag "liberal" t)))
(byte-code "\304B\305\304!\204�\306\304\307\"\210\310B\305\310!\204�\306\310\311\"\210\312B\305\312!\204-�\306\312\313\"\210\302B\305\302!\204<�\306\302\314\"\210\315	S\211\316V\203N�\n\317P\202>�\n\320P)\321B\305\321!\204b�\306\321\322\"\210\323B\305\323!\204q�\306\323\307\"\210\324B\305\324!\204\200�\306\324\325\"\210\326B\305\326!\204\217�\306\326\327\"\210\330B\305\330!\204\236�\306\330\331\"\210\332B\305\332!\204\255�\306\332\307\"\210\333B\305\333!\204\274�\306\333\307\"\210\334B\305\334!\204\313�\306\334\307\"\210\335B\305\335!\204\332�\306\335\307\"\210\336B\305\336!\204\351�\306\336\307\"\210\337B\305\337!\204\370�\306\337\340\"\210\341B\305\341!\204\306\341\"\210\342B\305\342!\204\306\342\307\"\210\343B\305\343!\204%\306\343\307\"\210\307\207" [current-load-list i gnus-uu-body-line gnus-article-save-directory gnus-uu-saved-article-name default-boundp set-default nil gnus-uu-begin-string "^begin[ 	]+0?[0-7][0-7][0-7][ 	]+\$.*\$$" gnus-uu-end-string "^end[ 	]*$" "^M" 61 0 "[^a-z]" ".?$" gnus-uu-shar-begin-string "^#! */bin/sh" gnus-uu-shar-file-name gnus-uu-shar-name-marker "begin 0?[0-7][0-7][0-7][ 	]+\$\\(\\w\\|[.\\:]\$*\\b\\)" gnus-uu-postscript-begin-string "^%!PS-" gnus-uu-postscript-end-string "^%%EOF$" gnus-uu-file-name gnus-uu-uudecode-process gnus-uu-binhex-article-name gnus-uu-yenc-article-name gnus-uu-work-dir gnus-uu-output-buffer-name " *Gnus UU Output*" gnus-uu-default-dir gnus-uu-digest-from-subject gnus-uu-digest-buffer] 3)
#@32 Uudecodes the current article.
(defalias 'gnus-uu-decode-uu #[(&optional n) "\301\302\"\207" [n gnus-uu-decode-with-method gnus-uu-uustrip-article] 3 (#$ . 12611) "P"])
#@39 Decodes and saves the resulting file.
(defalias 'gnus-uu-decode-uu-and-save #[(n dir) "\302\303	\304\211\305&\207" [n dir gnus-uu-decode-with-method gnus-uu-uustrip-article nil t] 7 (#$ . 12787) (list current-prefix-arg (file-name-as-directory (read-file-name "Uudecode and save in dir: " gnus-uu-default-dir gnus-uu-default-dir t)))])
#@30 Unshars the current article.
(defalias 'gnus-uu-decode-unshar #[(&optional n) "\301\302\303\211\304\305&\207" [n gnus-uu-decode-with-method gnus-uu-unshar-article nil scan t] 7 (#$ . 13131) "P"])
#@40 Unshars and saves the current article.
(defalias 'gnus-uu-decode-unshar-and-save #[(n dir) "\302\303	\304\305\306&\207" [n dir gnus-uu-decode-with-method gnus-uu-unshar-article nil scan t] 7 (#$ . 13335) (list current-prefix-arg (file-name-as-directory (read-file-name "Unshar and save in dir: " gnus-uu-default-dir gnus-uu-default-dir t)))])
#@28 Saves the current article.
(defalias 'gnus-uu-decode-save #[(n file) "\303\304\n\305\306$\207" [file gnus-uu-saved-article-name n gnus-uu-decode-with-method gnus-uu-save-article nil t] 5 (#$ . 13686) (list current-prefix-arg (read-file-name (if gnus-uu-save-separate-articles "Save articles in dir: " "Save articles in file: ") gnus-uu-default-dir gnus-uu-default-dir))])
#@33 Unbinhexes the current article.
(defalias 'gnus-uu-decode-binhex #[(n dir) "\304\305\306\"!\307\310\n#\207" [gnus-uu-work-dir gnus-uu-binhex-article-name n dir mm-make-temp-file expand-file-name "binhex" gnus-uu-decode-with-method gnus-uu-binhex-article] 4 (#$ . 14066) (list current-prefix-arg (file-name-as-directory (read-file-name "Unbinhex and save in dir: " gnus-uu-default-dir gnus-uu-default-dir)))])
#@42 Decode the yEnc-encoded current article.
(defalias 'gnus-uu-decode-yenc #[(n dir) "\303\304\305	\n\303\306%\207" [gnus-uu-yenc-article-name n dir nil gnus-uu-decode-with-method gnus-uu-yenc-article t] 6 (#$ . 14484) (list current-prefix-arg (file-name-as-directory (read-file-name "yEnc decode and save in dir: " gnus-uu-default-dir gnus-uu-default-dir)))])
#@42 Uudecodes and views the current article.
(defalias 'gnus-uu-decode-uu-view #[(&optional n) "\206�\302\303	!)\207" [gnus-view-pseudos n automatic gnus-uu-decode-uu] 2 (#$ . 14849) "P"])
#@46 Decodes, views and saves the resulting file.
(defalias 'gnus-uu-decode-uu-and-save-view #[(n dir) "\206�\303\304	\n\")\207" [gnus-view-pseudos n dir automatic gnus-uu-decode-uu-and-save] 3 (#$ . 15043) (list current-prefix-arg (read-file-name "Uudecode, view and save in dir: " gnus-uu-default-dir gnus-uu-default-dir t))])
#@40 Unshars and views the current article.
(defalias 'gnus-uu-decode-unshar-view #[(&optional n) "\206�\302\303	!)\207" [gnus-view-pseudos n automatic gnus-uu-decode-unshar] 2 (#$ . 15376) "P"])
#@40 Unshars and saves the current article.
(defalias 'gnus-uu-decode-unshar-and-save-view #[(n dir) "\206�\303\304	\n\")\207" [gnus-view-pseudos n dir automatic gnus-uu-decode-unshar-and-save] 3 (#$ . 15576) (list current-prefix-arg (read-file-name "Unshar, view and save in dir: " gnus-uu-default-dir gnus-uu-default-dir t))])
#@38 Saves and views the current article.
(defalias 'gnus-uu-decode-save-view #[(n file) "\206�\303\304	\n\")\207" [gnus-view-pseudos n file automatic gnus-uu-decode-save] 3 (#$ . 15909) (list current-prefix-arg (read-file-name (if gnus-uu-save-separate-articles "Save articles is dir: " "Save articles in file: ") gnus-uu-default-dir gnus-uu-default-dir))])
#@43 Unbinhexes and views the current article.
(defalias 'gnus-uu-decode-binhex-view #[(n file) "\305\306\307\"!\n\206\f�\310\311\f\")\207" [gnus-uu-work-dir gnus-uu-binhex-article-name gnus-view-pseudos n file mm-make-temp-file expand-file-name "binhex" automatic gnus-uu-decode-binhex] 4 (#$ . 16272) (list current-prefix-arg (read-file-name "Unbinhex, view and save in dir: " gnus-uu-default-dir gnus-uu-default-dir))])
#@51 Digests and forwards all articles in this series.
(defalias 'gnus-uu-digest-mail-forward #[(&optional n post) "\306\307\310\311\"!	\n\312\211\21156789:\203+�:\247\204+�	?\312:\313:!;:\204F�;G\314U\203F�\315 \210\316 \237;\317 \320p!;<=\321!>\321!?@ABCD\312>\322\323\324\"\210\322\323\325\"\210\322\326\327\"\210\322\326\330\"\210\331\332E\236E\"E@\203\253�@\333\230\204\253�\334F!\335A\206\244�B!BEBE\336\216\312G\337\340!5\341;!H\342:8\"\210H;)\341;!H\3435!\210G\211I\2030I\211J@@)\344I\211J@A)!IA\211I\2030\f\204\377�
\2030\f\203\fI\211J@@)\230\204\312
\203'\344I\211J@A)!
\230\204'\312IA\211I\204\367�
\2046\345\f\204H\346=!\203F=\202G\347)eb\210\350\351!\203Z`\352 |\210
c\210eb\210\350\353!\203m`\352 |\210\354\f\261\210\306K\355L\306\"\210*\356 \210\357 \210\360\361\306\"\210\362\363!\210\364\312!\210.	\312\211G.\207" [gnus-uu-tmp-dir message-forward-as-mime gnus-newsgroup-charset gnus-newsgroup-ignored-charsets from subject t mm-make-temp-file nnheader-concat "forward" nil gnus-summary-work-articles 1 gnus-summary-top-thread gnus-uu-find-articles-matching current-window-configuration buffer-name copy-sequence add-hook message-header-setup-hook gnus-inews-insert-gcc gnus-inews-insert-archive-gcc message-mode-hook #[nil "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[nil "\302\303	!)\207" [gnus-article-copy #1=#:gnus-setup-message-group nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft ((byte-code "\306	\n\307%\210p\310\311!\210
\nB	\310\312!\210
\n\203#�\313\314!\210\315\316!\210\317=\203X�\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202_�\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles gnus-message-buffer #1# gnus-inews-add-send-actions forward make-local-variable gnus-message-group-art gnus-newsgroup-name gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list gnus-make-local-hook kill-buffer-hook change-major-mode-hook add-hook mml-destroy-buffers nil t gnus-message-highlight-citation major-mode mbl1 mbl] 6)) gnus-get-buffer-create " *gnus-uu-forward*" reverse gnus-uu-decode-save switch-to-buffer gnus-simplify-subject-fuzzy "Digested Articles" gnus-news-group-p "Various" re-search-forward "^Subject: " point-at-eol "^From:" " " message-forward message-hide-headers gnus-add-buffer gnus-configure-windows forward run-hooks post-command-hook set-buffer-modified-p gnus-uu-digest-buffer mail-parse-ignored-charsets mail-parse-charset file gnus-uu-save-in-digest n gnus-article-reply gnus-article-yanked-articles gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #2# message-required-headers gnus-draft-meta-information-header gnus-uu-digest-from-subject gnus-newsgroup-processable fs x message-forward-decoded-p post] 10 (#$ . 16700) "P"])
#@36 Digest and forward to a newsgroup.
(defalias 'gnus-uu-digest-post-forward #[(&optional n) "\301\302\"\207" [n gnus-uu-digest-mail-forward t] 3 (#$ . 19772) "P"])
(defalias 'gnus-message-process-mark #[(unmarkp new-marked) "G	GZ\304\305\306	G	G\307U\203�\310\202�\311\203�\312\202 �\313\314\n!\203.�\204.�\310\202>�\203:�\315\316G\"\202>�\315\317\n\"&)\207" [gnus-newsgroup-processable new-marked old unmarkp gnus-message 6 "%d mark%s %s%s" 1 "" "s" "removed" "added" zerop format ", %d remain marked" ", %d already marked"] 9])
(defalias 'gnus-new-processable #[(unmarkp articles) "\203	�\303	\n\"\207\304\n	\"\207" [unmarkp gnus-newsgroup-processable articles gnus-intersection gnus-set-difference] 3])
#@163 Set the process mark on articles whose subjects match REGEXP.
When called interactively, prompt for REGEXP.
Optional UNMARK non-nil means unmark instead of mark.
(defalias 'gnus-uu-mark-by-regexp #[(regexp &optional unmark) "\212\304!\305\n	\"	\203(�\n\203�\306	\211A@!\210\202\n�\307	\211A@!\210\202\n�\310\n\"\210+\311 \207" [regexp articles unmark new-marked gnus-uu-find-articles-matching gnus-new-processable gnus-summary-remove-process-mark gnus-summary-set-process-mark gnus-message-process-mark gnus-summary-position-point] 3 (#$ . 20495) "sMark (regexp): \nP"])
#@114 Remove the process mark from articles whose subjects match REGEXP.
When called interactively, prompt for REGEXP.
(defalias 'gnus-uu-unmark-by-regexp #[(regexp) "\301\302\"\207" [regexp gnus-uu-mark-by-regexp t] 3 (#$ . 21080) "sUnmark (regexp): "])
#@48 Mark the current series with the process mark.
(defalias 'gnus-uu-mark-series #[(&optional silent) "\303 \211G\203�\304@!\210A\211\204\n�\n\204 �\305\306\307	#\210\310 \210	*\207" [articles l silent gnus-uu-find-articles-matching gnus-summary-set-process-mark gnus-message 6 "Marked %d articles" gnus-summary-position-point] 5 (#$ . 21336) nil])
#@62 Set the process mark on all articles between point and mark.
(defalias 'gnus-uu-mark-region #[(beg end &optional unmark) "\212b\210`	W\203K�\n\203+�\304\305`\306\"\211\203�\307!\210)\305`\310\"\206&�\311 !\210\202E�\312\305`\306\"\211\2039�\307!\210)\305`\310\"\206C�\311 !\210\313y\210\202�)\314 \207" [beg end unmark to gnus-summary-remove-process-mark get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-set-process-mark 1 gnus-summary-position-point] 5 (#$ . 21695) "r"])
#@67 Remove the process mark from all articles between point and mark.
(defalias 'gnus-uu-unmark-region #[(beg end) "\302	\303#\207" [beg end gnus-uu-mark-region t] 4 (#$ . 22243) "r"])
#@53 Set the process mark on all articles in the buffer.
(defalias 'gnus-uu-mark-buffer #[nil "\300ed\"\207" [gnus-uu-mark-region] 3 (#$ . 22431) nil])
#@56 Remove the process mark on all articles in the buffer.
(defalias 'gnus-uu-unmark-buffer #[nil "\300ed\301#\207" [gnus-uu-mark-region t] 4 (#$ . 22584) nil])
#@46 Marks all articles downwards in this thread.
(defalias 'gnus-uu-mark-thread #[nil "\305 \306\216\212	\307=\203�\310`\311\"\203�\312\2022�\313\310`\311\"\211\203%�\314\n!\210)\310`\315\"\206/�\316 \2368\317\310`\311\"\211\203A�\314\n!\210)\310`\315\"\206K�\316 !\203\212�\320\321\322\323\324#!\203\212�	\307=\203j�\310`\311\"\203j�\312\202\205�\313\310`\311\"\211\203x�\314\n!\210)\310`\315\"\206\202�\316 \2368\fV\2043�,\325 \207" [#1=#:config gnus-summary-make-false-root to gnus-newsgroup-data level gnus-hidden-threads-configuration ((gnus-restore-hidden-threads-configuration #1#)) dummy get-text-property gnus-intangible 0 4 gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-set-process-mark zerop gnus-summary-next-subject 1 nil t gnus-summary-position-point] 6 (#$ . 22747) nil])
#@48 Unmarks all articles downwards in this thread.
(defalias 'gnus-uu-unmark-thread #[nil "\304=\203�\305`\306\"\203�\307\202,�\310\305`\306\"\211\203�\311	!\210)\305`\312\"\206)�\313 \n\2368\314\305`\306\"\211\203;�\311	!\210)\305`\312\"\206E�\313 !\203\202�\315\316\317!!\203\202�\304=\203b�\305`\306\"\203b�\307\202}�\310\305`\306\"\211\203p�\311	!\210)\305`\312\"\206z�\313 \n\2368V\204-�)\320 \207" [gnus-summary-make-false-root to gnus-newsgroup-data level dummy get-text-property gnus-intangible 0 4 gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-remove-process-mark zerop gnus-summary-next-subject 1 gnus-summary-position-point] 5 (#$ . 23576) nil])
#@45 Invert the list of process-marked articles.
(defalias 'gnus-uu-invert-processable #[nil "\304\212\n\203$�\n\211A@@\211>\203�\305	!\210\202�\306	!\210\202�+\307 \207" [gnus-newsgroup-data number data gnus-newsgroup-processable nil gnus-summary-remove-process-mark gnus-summary-set-process-mark gnus-summary-position-point] 2 (#$ . 24276) nil])
#@57 Mark all articles with a score over SCORE (the prefix).
(defalias 'gnus-uu-mark-over #[(&optional score) "\206	�	\206	�\306\n\212\2034�@@\f\236A\206�	\206�\306V\203-�\307\211@@)!\210A\211\204�)\310 *\207" [score gnus-summary-default-score gnus-newsgroup-data data gnus-newsgroup-scored x 0 gnus-summary-set-process-mark gnus-summary-position-point] 3 (#$ . 24634) "P"])
#@49 Mark all series that have some articles marked.
(defalias 'gnus-uu-mark-sparse #[nil "\237\306\211\211\211\211\204�\307\310!\210\306\212
\203V�\311\312
@\2368\211!\2036�	\313H\314\315\f!!\n\244\203O�\316@!\210
\317@
A\"\241\210A\211\204:�
A\211\204�\n\237)\320 -\207" [gnus-newsgroup-processable headers total articles subject marked nil error "No articles marked with the process mark" vectorp 3 1 gnus-uu-find-articles-matching gnus-uu-reginize-string gnus-summary-set-process-mark delq gnus-summary-position-point gnus-newsgroup-data] 6 (#$ . 25023) nil])
#@38 Mark all articles in "series" order.
(defalias 'gnus-uu-mark-all #[nil "\305\212	\306\305\211\2031�\f@@\211>\204*�\307\310\f@8!\203*�\311\n!\210\312\313!\\\fA\211\204
�\314\315\316#\210,\317 \207" [gnus-newsgroup-processable gnus-newsgroup-data number count data nil 0 vectorp 3 gnus-summary-goto-subject gnus-uu-mark-series t gnus-message 6 "Marked %d articles" gnus-summary-position-point] 5 (#$ . 25611) nil])
#@41 Gets postscript of the current article.
(defalias 'gnus-uu-decode-postscript #[(&optional n) "\301\302\"\207" [n gnus-uu-decode-with-method gnus-uu-decode-postscript-article] 3 (#$ . 26040) "P"])
#@37 Gets and views the current article.
(defalias 'gnus-uu-decode-postscript-view #[(&optional n) "\206�\302\303	!)\207" [gnus-view-pseudos n automatic gnus-uu-decode-postscript] 2 (#$ . 26243) "P"])
#@52 Extracts postscript and saves the current article.
(defalias 'gnus-uu-decode-postscript-and-save #[(n dir) "\302\303	\304\211\305&\207" [n dir gnus-uu-decode-with-method gnus-uu-decode-postscript-article nil t] 7 (#$ . 26448) (list current-prefix-arg (file-name-as-directory (read-file-name "Save in dir: " gnus-uu-default-dir gnus-uu-default-dir t)))])
#@46 Decodes, views and saves the resulting file.
(defalias 'gnus-uu-decode-postscript-and-save-view #[(n dir) "\206�\303\304	\n\")\207" [gnus-view-pseudos n dir automatic gnus-uu-decode-postscript-and-save] 3 (#$ . 26810) (list current-prefix-arg (read-file-name "Where do you want to save the file(s)? " gnus-uu-default-dir gnus-uu-default-dir t))])
(defalias 'gnus-uu-decode-with-method #[(method n &optional save not-insert scan cdir) "\306!\210	\203\n�	\203!�\203!�	\203!�\307	!\204!�\310	\311\"\210\312\f!\313\314\311#@\203>�\315!)	\203H�\316
	\"\210\313=\203S�\317
!\320
!\237\206g�?\206g�\321
	\"*\207" [scan save gnus-uu-default-dir cdir n files gnus-uu-initialize file-exists-p make-directory t gnus-uu-get-list-of-articles nil gnus-uu-grab-articles gnus-uu-scan-directory gnus-uu-save-files gnus-uu-unpack-files gnus-uu-get-actions gnus-summary-insert-pseudos articles method gnus-current-article gnus-uu-work-dir gnus-uu-do-not-unpack-archives not-insert gnus-insert-pseudo-articles] 4])
#@39 Return a list of all files under DIR.
(defalias 'gnus-uu-scan-directory #[(dir &optional rec) "\306\307\"\310\211\211A@\211\2035�\311	!\312\235\204	�\313	B\314\fBD\nB\315	!\203	�\316	\307\"\n\244\202	�
\203=�\n\202?�\n\237+\207" [dir file out files gnus-current-article rec directory-files t nil file-name-nondirectory ("." "..") name article file-directory-p gnus-uu-scan-directory] 3 (#$ . 27842)])
#@20 Save FILES in DIR.
(defalias 'gnus-uu-save-files #[(files dir) "G\306\307	!P\310\211\211\311\211A@\236A\211\203h�\312!\203�\313
\"\210\314\225\310O\315!\203>�\316\nP!\210\202�\nP\312\f!\203^�\317=\204^�\203�\320\321\322\f\"!\203�\323\f\317\211$\210\202�\324\325\326\211\327U\203w�\330\202x�\331$-\207" [files gnus-uu-work-dir fromdir file to-file reg "^" regexp-quote nil name file-exists-p string-match 0 file-directory-p gnus-make-directory t gnus-y-or-n-p format "%s exists; overwrite? " copy-file gnus-message 5 "Saved %d file%s" 1 "" "s" len dir gnus-uu-be-dangerous] 6 (#$ . 28258)])
(defalias 'gnus-uu-save-article #[(buffer in-state) "\203<�\212	q\210\n\306\f
P!\210)@\307=\203�\f\310D\202:�@\311=\203,�\f\310\312E\202:�@\313=\2038�\312C\202:�\314C)\207A\204w�\212	q\210\315ed\f\316$\210@\307=\203Y�\f\310D\202u�@\311=\203g�\f\310\312E\202u�@\313=\203s�\312C\202u�\314C)\207\317\320`\321\"\211B\203\207�\322B!\210)\320`\323\"\206\221�\324 C\2368\211D\325HD\326HBEBE)\327\f!\330\211\211\211\211\211\211\211FGHIJKLMN@\307=\204\320�@\311=\203\310CF\212\331\332!q\210\333 \210)\212\331\334!q\210\333 \210\335\336\337 N\211$c\210O\203P\203\340c\210\341y\210\342c\210)\202@\312=\204\314CF\212\332q\210d\211Mb\210\212\214	q\210\330Q\343ed\330#\210\344ed\345\330$\210\344ed\346\330$\210)O\203OR\203OP\203O\347 \210\350 \210eb\210\351\352!\210O\203`P\204w\212\353\354\330\316#\203v\355 \210\356\326!\210\357c\210\202a)`Sd{He`}\210S\211K\204\220\360 I\202\307K\203\307K@JKAKeb\210\353J\330\316#\203\220I\361\224\353\362\330\316#\203\274`S\206\300\326y\210`{PI\202\242~\210*O\203&P\203&R\203\360\363c\210Ic\210db\210Hc\210db\210\364c\210\202=\365\366!TrTq\210Ic\210eb\210\353\367\330\316#\203\326\224\326\225{Ldb\210Hc\210)\370\371\372T!\373\261\210)\202=Ic\210db\210Hc\210db\210\374\375\376\377\"\352Qc\210Mb\210\353\367\330\316#\203P\326\224\326\225{LL\203c\212\334q\210\335\201X�L\"c\210))@\313=\204r@\311=\203nO\203\227P\203\227rPq\210\333 \210\201Y�\334!\210db\210\201Y�\332!\210)\202\212\334q\210\335\201Z�\375\201[�\377\"\"c\210P\203\277rPq\210\333 \210\201Y�\334!\210)\202\306\n\306\f!\210))\212\332q\210db\210\335\201\\�N\"\211G\374Pc\210\375GG\201]�\"\374Pc\210P\203\377rPq\210db\210\201Y�\332!\210)\202
\nUV\315ed\f\316$\210*)\334\211T\334;\203\201^�\202\372	!)\203:\201_�\201^�T!W\"W\201`�T!\210)\332\211T\332;\203K\201^�\202L\372	!)\203g\201_�\201^�T!W\"W\201`�T!\210)\312FBF\310F>\203|\fFB\202~F.	\207" [gnus-uu-save-separate-articles buffer mm-text-coding-system coding-system-for-write gnus-uu-saved-article-name gnus-current-article gnus-write-buffer first begin first-and-last end last middle write-region t 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 2 1 file-name-nondirectory nil gnus-get-buffer-create "*gnus-uu-body*" erase-buffer "*gnus-uu-pre*" format "Date: %s\nFrom: %s\nSubject: %s Digest\n\n" message-make-date "<#mml type=message/rfc822>\nSubject: Topics\n\n<#/mml>\n" -1 "Topics:\n" set-text-properties put-text-property invisible intangible mm-enable-multibyte mime-to-mml search-forward "\n\n" re-search-forward "^-" beginning-of-line delete-char "- " buffer-string 0 "^[^ 	]" "\n<#mml type=message/rfc822>\n" "\n<#/mml>\n" mml-generate-new-buffer " *mml*" "^Subject: \$.*\$$" "\n<#part type=message/rfc822" " buffer=\"" buffer-name "\">\n" "\n" make-string 30 45 in-state gnus-uu-save-in-digest to gnus-newsgroup-data header gnus-uu-digest-from-subject state end-string body sorthead headline headers subj beg name message-forward-as-mime gnus-uu-digest-buffer buffer-read-only message-forward-show-mml gnus-uu-digest-headers buf nnmail-pathname-coding-system file-name-coding-system gnus-buffers "   %s\n" insert-buffer-substring "\n\n%s\n\n" 70 "End of %s Digest" 42 get-buffer delete kill-buffer] 10])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\310\"\210\301\207" [current-load-list gnus-uu-binhex-body-line default-boundp set-default "^[^:]...............................................................$" gnus-uu-binhex-begin-line "^:...............................................................$" gnus-uu-binhex-end-line ":$"] 3)
(defalias 'gnus-uu-binhex-article #[(buffer in-state) "\306\211\212\nq\210~\210eb\210\307\306\310#\204 �\307\f\306\310#\204 �\311C\311	>\204u�\312 \210`\313!\203=�\314C\315ee
#\210\202@�\316Cdb\210\317\f\320Q\306\310#\210\313!\203c�\314	>\203`�\321	B\202b�\321C\312 \210\322y\210\323
!\203u�\324`
#\210)\314	>\203\202�
	B\202\203�	*\207" [start-char state buffer gnus-uu-binhex-begin-line gnus-uu-binhex-body-line gnus-uu-binhex-article-name nil re-search-forward t wrong-type beginning-of-line looking-at begin write-region middle re-search-backward "\\|" end 1 file-exists-p mm-append-to-file gnus-uu-binhex-end-line] 4])
(defalias 'gnus-uu-yenc-article #[(buffer in-state) "\212q\210~\210\306 \307\211\211\204�\310C\310\n>\204h�\311 \203(�\312\f\"\313\nB\314 \2031�\315\nB\n\2049�\316\nB\317\320!rq\210\321\216\322 \210\323!\210\324ed\"\210\313\n\235\203a�\325
!\203a�\326
!\210\327ed
#\210+\313\n>\203t�\nB\202u�\n,\207" [gnus-original-article-buffer start-char state file-name gnus-uu-work-dir gnus-uu-yenc-article-name yenc-extract-filename nil wrong-type yenc-first-part-p expand-file-name begin yenc-last-part-p end middle generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-disable-multibyte insert-buffer-substring yenc-decode-region file-exists-p delete-file mm-append-to-file #1#] 5])
(defalias 'gnus-uu-decode-postscript-article #[(process-buffer in-state) "\306C\307\211\211\212\fq\210eb\210\310
\307\311#\204�\312C\202S�\313 \210`\310\307\311#\2042�\312C\202S�`\314!q\210\315\f\n	#\210A\316Q\317ed#\210\320\321E),\207" [file-name end-char start-char state process-buffer gnus-uu-postscript-begin-string ok nil re-search-forward t wrong-type beginning-of-line gnus-get-buffer-create insert-buffer-substring ".ps" write-region begin end gnus-uu-postscript-end-string gnus-uu-output-buffer-name gnus-uu-work-dir gnus-article-current] 4])
(defalias 'gnus-uu-get-actions #[(files) "\304\211\203;�\301@\236A\305	!\211\2034�\n\306\230\203%�\302\307B\202(�\302\nB\310\311\n	\"BD@\244\240\210A\211\204\n�+\207" [files name action ofiles nil gnus-uu-get-action "gnus-uu-archive" "file" execute gnus-uu-command] 7])
(defalias 'gnus-uu-get-action #[(file-name) "\306\307	\310\n?\205\f�\f
#\"\211\206�\311\312\230\204.�
\203.�\307	\"\211\203.�\313\314\")\207" [action file-name gnus-uu-user-view-rules gnus-uu-ignore-default-view-rules gnus-uu-default-view-rules gnus-uu-user-view-rules-end nil gnus-uu-choose-action append "" "gnus-uu-archive" format "metamail -d -b -c \"%s\"" gnus-uu-view-with-metamail gnus-uu-ext-to-mime-list] 7])
(defalias 'gnus-uu-reginize-string #[(string) "\212\303!q\210\304 \210\305 \210\306	!c\210\307\211\210\310\311\307\312#\203%�\313\314!\210\202J�\307\210\310\315\307\312#\2037�\313\316!\210\202J�\307\210\310\317\307\312#\203J�\313\320\312\307\211\211%\210eb\210\321\322\307\312#\203^�\313\322\312\211#\210\202M�\323 )\207" [gnus-uu-output-buffer-name string case-fold-search gnus-get-buffer-create buffer-disable-undo erase-buffer regexp-quote nil re-search-backward "\$[^0-9]\$[0-9]+/\$[0-9]+\$" t replace-match "\\1[0-9]+/\\2" "\$[^0-9]\$[0-9]+[ 	]*of[ 	]*\$[0-9]+\$" "\\1[0-9]+ of \\2" "\$[^0-9]\$[0-9]+\$[^0-9]+\$[0-9]+" "\\1[0-9]+\\2[0-9]+" re-search-forward "[ 	]+" buffer-string] 7])
(defalias 'gnus-uu-get-list-of-articles #[(n) "\305	\203M�\306	!\211\307W\310	!\212	\307V\203F�\311`\312\"\211\203&�\313!\210)\311`\314\"\2060�\315 B\211\203F�\316\305\211\n#\203F�	S\211\202�)\237*\202Y�\f\203W�\317\f!\202Y�\320 )\207" [articles n backward to gnus-newsgroup-processable nil prefix-numeric-value 0 abs get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject gnus-summary-search-forward reverse gnus-uu-find-articles-matching] 5])
(defalias 'gnus-uu-string< #[(l1 l2) "@	@\231\207" [l1 l2] 2])
(defalias 'gnus-uu-find-articles-matching #[(&optional subject only-unread do-not-translate) "\2060�\306\307\310`\311\"\211\203�\312	!\210)\310`\313\"\206�\314 \n\2368\211\205.�\315!\205.�\316H)!\317\212\205\246�\320\n\317\211\211\203\231�\211A@\307
8:\204F�\203{�
A@\211U\204{�U\204{�U\203F�\307
8\316H\211\203F�\321\"\203F�
@B\fB\202F�-\322\323\324\325\f?\"\326\"\"+\207" [subject to gnus-newsgroup-data headers list-of-subjects d gnus-uu-reginize-string 3 get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject vectorp 1 nil t string-match mapcar cdr sort gnus-uu-expand-numbers gnus-uu-string< mark subj data case-fold-search only-unread gnus-unread-mark gnus-ticked-mark gnus-dormant-mark do-not-translate] 7])
(defalias 'gnus-uu-expand-numbers #[(string-list &optional translate) "\306\212\307!q\210\310 \210\203i�\311 \210\211@@)c\210eb\210\312\313\306\314#\203.�\315\316!\210\202�eb\210
\203F�\312\317\306\314#\203F�\315\320\314\211#\210\2025�eb\210\312\321\306\314#\203Y�\306\322\323\217\210\202I�ed{@	\240\210A\211\204�)\n*\207" [string-list string out-list gnus-uu-output-buffer-name x translate nil gnus-get-buffer-create buffer-disable-undo erase-buffer re-search-forward "[ 	]+" t replace-match " " "[A-Za-z]" "a" "[0-9]+" (byte-code "\300\301\302\303\304\224\304\225{!\"!\207" [replace-match format "%06d" string-to-number 0] 6) ((error))] 5])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-uu-has-been-grabbed default-boundp set-default nil] 3)
(defalias 'gnus-uu-unmark-list-of-grabbed #[(&optional dont-unmark-last-article) "\304	\205-�\n\205-�\203�	@	A	\203%�\305	@\306\"\210	A\211\204�\205-�C\211)\207" [art gnus-uu-has-been-grabbed gnus-uu-unmark-articles-not-decoded dont-unmark-last-article nil gnus-summary-tick-article t] 4])
(defalias 'gnus-uu-grab-articles #[(articles process-function &optional sloppy limit no-errors) "\306\307\310\307\211\211\211\211\211\211\211\211\211/012345\203\345\311
>\204\3456\2047�\312
>\204\3455\211A5@\313\3147\2368!\203!�	B5\204f�4\306=\203c�\3154\202f�\3164\317!8\320\321\3228\323\230\203|�\323\202\200�\3248P$\210)\325!\210\2129q\210\307:\212;q\210<94\"+\326!\210\327
>\204\275�4\306=\204\267�4\315=\203\366�\330
>\203\366�1\203\351�0\203\351�\3310!\203\351�=\204\351�=\310=\204\344�\332\333\3340\"!\203\351�\3350!\210\327
>\203\363�
@0\3101\312
>\203h\307\21110;\2030C\2020@0\203-\336\211A@B\337BD/B/\202>\203T>\211?<\204@?C??\203S?\211A?@0!\210\202@)\3070@\203h/G@U\203h\30754\316=\204v4\315=\203\243\312
>\204\2430\203\243\3310!\203\243=\204\243=\310=\204\236\332\333\3400\"!\203\243\3350!\210\341
>\204\257\311
>\203\272A\203\272\342\310\"\2101\204\3376\204\337\312
>\204\320\343
>\203\337\311C\320\344\345\"\210\346\344!\210\202!�\3434\202!�/\203\361\347\323!\210\20221\204\376\320\344\350\"\210\202\311
>\203\f\320\344\351\"\210\202\330
>\204\312
>\204\320\344\352\"\210A\2032	\2032\342	\211A@\310\"\210\202\"9\211B\211C\205KC;\203G\353\202H\354C!)\203^\355\353B!D\"D\356B!\210)\307E/.
\207" [files article-series gnus-display-mime-function gnus-article-prepare-hook gnus-summary-display-article-function process-state first nil t error end vectorp 3 first-and-last last gnus-uu-part-number gnus-message 6 "Getting article %d%s..." "" ", " gnus-summary-display-article gnus-summary-remove-process-mark begin ok file-exists-p gnus-y-or-n-p format "Delete unsuccessfully decoded file %s? " delete-file name article "Delete incomplete file %s? " wrong-type gnus-summary-tick-article middle 2 "No begin part at the beginning" sleep-for message "Wrong type file" "An error occurred during decoding" "End of articles reached before end of file" get-buffer buffer-name delete kill-buffer result-files result-file has-been-begin gnus-inhibit-treatment gnus-asynchronous state articles sloppy gnus-newsgroup-data part gnus-original-article-buffer buffer-read-only gnus-summary-buffer process-function gnus-uu-be-dangerous gnus-uu-grabbed-file-functions funcs limit gnus-uu-unmark-articles-not-decoded buf buffer gnus-buffers gnus-current-article] 14])
#@38 View FILE using the gnus-uu methods.
(defalias 'gnus-uu-grab-view #[(file) "\303!\304\305\306	\"\203�\307	\"\202�	\310Q\n\311=\")\207" [file action gnus-view-pseudos gnus-uu-get-action gnus-execute-command string-match "%" format " " not-confirm] 4 (#$ . 40953)])
#@25 Move FILE to somewhere.
(defalias 'gnus-uu-grab-move #[(file) "\205�\303!\304	!P\305	\n\"\210\306	!?\205�\307\n	\")\207" [gnus-uu-default-dir file to-file file-name-as-directory file-name-nondirectory rename-file file-exists-p make-symbolic-link] 3 (#$ . 41229)])
(defalias 'gnus-uu-part-number #[(article) "\305	\2368\211\205
�\n\306H\307\203)�\310\311\"\203)�\312\313\"\313\225\307O\202�\f\204B�\310\314\"\203B�\312\313\"\313\225\307O\202-�\f\206G�\315+\207" [article gnus-newsgroup-data header subject part 3 1 nil string-match "[0-9]+/[0-9]+\\|[0-9]+[ 	]+of[ 	]+[0-9]+" match-string 0 "[0-9]+[^0-9]+[0-9]+" ""] 4])
(defalias 'gnus-uu-uudecode-sentinel #[(process event) "\301\302!!\207" [process delete-process get-process] 3])
(defalias 'gnus-uu-uustrip-article #[(process-buffer in-state) "\212q\210\306C\307\211\211\211\2113eb\2104\203+�\212\310\311\307\312#\203*�\313\314!\210\202�)\3155\307\312#\204=�\3156\307\312#\203=\316C3\317 \210`\3205!\204T�\321C3\202\312�\3227\323\324\314!!\"8\325\3268P\312\211#\210\314y\210m\204\201�\3206!\204\201�\327 \314y\210`|\210\202k�9\203\230�\3309!\331>\203\230�\3329!\210\333\312!\210:;\334\216\335<!\210\336\337\340=!>?\341\342<@#%9*\3439\344\"\210\345C3<8P\nB\315A\307\312#\203\334�\3463B3\202\346�db\210\3476\307\312#\210\314y\2109\203+�\3309!\350>\203+�B\203\351	`\"\210\352\353!\210\307\354\355\217\210\3463>\203(\307\356\357\217\210\3309!\360>\203+�\3619\314\"\210\2029\2036\3309!\362>\204+�\306C3\202+�\3453>\203W\nG\314U\203P\n@\202Q\n3B\202Y3.\207" [process-buffer start-char files buffer-read-only case-fold-search process-connection-type wrong-type nil search-forward "
" t delete-backward-char 1 re-search-forward ok beginning-of-line looking-at middle gnus-map-function file-name-nondirectory match-string replace-match "begin 644 " point-at-bol process-status (run stop) delete-process gnus-uu-unmark-list-of-grabbed ((cd cdir)) cd start-process "*uudecode*" gnus-get-buffer-create format "cd %s %s uudecode" set-process-sentinel gnus-uu-uudecode-sentinel begin end re-search-backward (run stop) gnus-uu-check-correct-stripped-uucode gnus-run-hooks gnus-uu-pre-uudecode-hook (byte-code "\302	`#\207" [gnus-uu-uudecode-process start-char process-send-region] 4) ((error (byte-code "\302!\210\303\304\305\"\210\306C\302\207" [gnus-uu-uudecode-process state delete-process gnus-message 2 "gnus-uu: Couldn't uudecode" wrong-type] 3))) (process-send-eof gnus-uu-uudecode-process) ((error)) (open run) accept-process-output (run stop) state gnus-uu-kill-carriage-return gnus-uu-begin-string gnus-uu-body-line mm-file-name-rewrite-functions gnus-uu-file-name gnus-uu-uudecode-process default-directory cdir gnus-uu-work-dir gnus-uu-output-buffer-name shell-file-name shell-command-switch gnus-shell-command-separator gnus-uu-end-string gnus-uu-correct-stripped-uucode] 9])
#@172 Text of warning message displayed by `gnus-uu-unshar-article'.
Make sure that this text consists only of few text lines.  Otherwise,
Gnus might fail to display all of it.
(defvar gnus-uu-unshar-warning "*** WARNING ***\n\nShell archives are an archaic method of bundling files for distribution\nacross computer networks.  During the unpacking process, arbitrary commands\nare executed on your system, and all kinds of nasty things can happen.\nPlease examine the archive very carefully before you instruct Emacs to\nunpack it.  You can browse the archive buffer using \\[scroll-other-window].\n\nIf you are unsure what to do, please answer \"no\"." (#$ . 44151))
(defalias 'gnus-uu-unshar-article #[(process-buffer in-state) "\306C\307\212\nq\210eb\210\310\307\311#\204�\312C\202?�\313\213\210\314	>\204?�\315 \210`\316d\f\307\317
!\307\320\321\322\260&\210)	*\207" [start-char state process-buffer gnus-uu-shar-begin-string shell-file-name gnus-uu-output-buffer-name ok nil re-search-forward t wrong-type ((byte-code "\212\303p!\210\304 \210\305\306\307!!\310\216rq\210\311	!c\210eb\210\312!\210\313\314!*\204*�\315C*\303\207" [buffer gnus-uu-unshar-warning state switch-to-buffer delete-other-windows get-buffer-create generate-new-buffer-name "*Warning*" ((kill-buffer buffer)) substitute-command-keys display-buffer yes-or-no-p "This is a shell archive, unshar it? " error] 3)) error beginning-of-line call-process-region gnus-get-buffer-create "cd " " " " sh" shell-command-switch gnus-uu-work-dir gnus-shell-command-separator] 13])
(defalias 'gnus-uu-find-name-in-shar #[nil "`\303eb\210\304\n\303\305#\203�\306\224\306\225{	b\210*\207" [res oldpoint gnus-uu-shar-name-marker nil re-search-forward t 1] 4])
(defalias 'gnus-uu-choose-action #[(file-name file-action-list &optional no-ignore) "\306!\307\310\211
\204W�\f\203�\311\f
\"\204W�\2033�\311\312
\307#\206/�\313\"\204W�\f\310=\204W�	\204W�\f@\fA\311\n@
\"\2033�\n\211A@)\2023�	,\207" [file-action-list action rule case-fold-search action-list no-ignore copy-sequence t nil string-match gnus-uu-choose-action "" gnus-uu-ignore-files-by-name file-name gnus-uu-ignore-files-by-type gnus-uu-ext-to-mime-list x] 7])
(defalias 'gnus-uu-treat-archive #[(file-path) "\306\307\211\211\310\f\311
?\205� \"\"\211\204 �\312\313\f\"\210\314\315\f\"\210\f\316\211\224O\n!\235\203:�\317\f\211\320P\306#\210\321\322\323\n\f\"#\212\324\"!q\210\325 \210)\326\327\330\323\n\f\"#\210\331#\307\324\"!\307$	&\316=\203q�\332\333!\210\202x�\326\334\335\"\210\307\n!\235\203\207�\336\f\320P\f\306#\210,\207" [dir command action did-unpack file-path gnus-uu-user-archive-rules t nil gnus-uu-choose-action append error "No unpackers for the file %s" string-match "/[^/]*$" 0 copy-file "~" format "cd %s ; %s" gnus-uu-command gnus-get-buffer-create erase-buffer gnus-message 5 "Unpacking: %s..." call-process message "" 2 "Error during unpacking of archive" rename-file gnus-uu-ignore-default-archive-rules gnus-uu-default-archive-rules gnus-uu-destructive-archivers gnus-uu-output-buffer-name shell-file-name shell-command-switch] 8])
(defalias 'gnus-uu-dir-files #[(dir) "\304\305\306#\307\211\211\203,�\310@\211!\203!�\311\n\312	!\"\202%�	\nBA\211\204�\n+\207" [dir file files dirs directory-files t "[^/][^\\.][^\\.]?$" nil file-directory-p append gnus-uu-dir-files] 5])
(defalias 'gnus-uu-unpack-files #[(files &optional ignore) "\306!\n\307\211\n\203i�\310\n@\236A\211\235\204b�\311\312\f!!\313\232\203b�\f
B\314\f!\2045�\315\316\317\f#\210\306!\211\211\203^�@	\235\204U�\310@B\320\fBDBA\211\204A�*\nA\211\204�
\203x�\321\322
\"\"\202y�,\207" [gnus-uu-work-dir totfiles files ofiles file did-unpack gnus-uu-ls-r nil name gnus-uu-get-action file-name-nondirectory "gnus-uu-archive" gnus-uu-treat-archive gnus-message 2 "Error during unpacking of %s" original gnus-uu-unpack-files append ignore newfiles nfiles] 6])
(defalias 'gnus-uu-ls-r #[(dir) "\303\304\"\211	\203'�\305	@!\203 �\306	@\n\"\307\n\310	@!\"	A\211\204�\n*\207" [dir files ofiles gnus-uu-directory-files t file-directory-p delete append gnus-uu-ls-r] 5])
(defalias 'gnus-uu-directory-files #[(dir &optional full) "\305\211\211\306\f\"\n\203$�\n@\nA\307!\310\235\204�	B\202�	\237\211+\207" [file out files dir full nil directory-files file-name-nondirectory ("." "..")] 4])
(defalias 'gnus-uu-check-correct-stripped-uucode #[(start end) "\212\306\211\211?\205k�\fb\210\307\310
\311#\203/�\fb\210m?\205k�\312\313!\203)�\314\315!\210\316y\210\202�m?\205k�\312\317Q!\204e�\n\204I�\320 \321 Z\311\322 \210`\306\210`	ZU\204e�\323`	ZZ\324\"c\210\316y\210\202/�,\207" [length beg found gnus-uu-correct-stripped-uucode start end nil re-search-forward " \\|`" t looking-at "\n" replace-match "" 1 "\\|" point-at-eol point-at-bol beginning-of-line make-string 32 gnus-uu-begin-string gnus-uu-end-string] 4])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list gnus-uu-tmp-alist default-boundp set-default nil] 3)
(defalias 'gnus-uu-initialize #[(&optional scan) "\306	\204*�\307\n\"\211\203*�\310A!\203�A\211\202#�\311\"\306\203*�\312\202`�\313\314
!!\315
!\204>�\316\317
\"\210\202I�\320
!\204I�\316\321
\"\210\322
\323P\324\"\325\f\326\"\210\313\f!\n\fBB\211)\207" [entry scan gnus-newsgroup-name gnus-uu-tmp-alist gnus-uu-work-dir gnus-uu-tmp-dir nil assoc file-exists-p delq t file-name-as-directory expand-file-name file-directory-p error "Temp directory %s doesn't exist" file-writable-p "Temp directory %s can't be written to" mm-make-temp-file "gnus" dir gnus-set-file-modes 448] 3])
(defalias 'gnus-uu-clean-up #[nil "\303	\203�\304	\206\f�\305!\306>\203�\307	!\210\310\n!\211\205!�\311!)\207" [buf gnus-uu-uudecode-process gnus-uu-output-buffer-name nil process-status "nevair" (stop run) delete-process get-buffer kill-buffer] 2])
(defalias 'gnus-uu-command #[(action file) "\303!\304\305\n\"\203�\306\n	\"\202�\n\307	Q)\207" [file quoted-file action shell-quote-argument string-match "%s" format " "] 3])
#@72 Delete recursively all files and directories under `gnus-uu-work-dir'.
(defalias 'gnus-uu-delete-work-dir #[(&optional dir) "\203
�\304\305\306#\210\202�	\205Y�\307!\205Y�\310\311\312\311$\312\211A@\211\203O�\313\n!\314\235\204\"�\315\n!\203A�\316\n!\210\202\"�\304\317\320\n#\210\321\322\323\217\210\202\"�\321\324\325\217\210*\304\305\326\"\207" [dir gnus-uu-work-dir file files gnus-message 7 "Deleting directory %s..." file-exists-p directory-files t nil file-name-nondirectory ("." "..") file-directory-p gnus-uu-delete-work-dir 9 "Deleting file %s..." err (delete-file file) ((error (gnus-message 3 "Deleting file %s failed... %s" file err))) (delete-directory dir) ((error (gnus-message 3 "Deleting directory %s failed... %s" file err))) ""] 5 (#$ . 50267)])
(byte-code "\300\301\302\"\210\300\301\303\"\207" [add-hook gnus-exit-group-hook gnus-uu-clean-up gnus-uu-delete-work-dir] 3)
#@343 Function used for encoding binary files.
There are three functions supplied with gnus-uu for encoding files:
`gnus-uu-post-encode-uuencode', which does straight uuencoding;
`gnus-uu-post-encode-mime', which encodes with base64 and adds MIME
headers; and `gnus-uu-post-encode-mime-uuencode', which encodes with
uuencode and adds MIME headers.
(custom-declare-variable 'gnus-uu-post-encode-method ''gnus-uu-post-encode-uuencode '(#$ . 51178) :group 'gnus-extract-post :type '(radio (function-item gnus-uu-post-encode-uuencode) (function-item gnus-uu-post-encode-mime) (function-item gnus-uu-post-encode-mime-uuencode) (function :tag "Other")))
#@254 Non-nil means that gnus-uu will ask for a file to encode before you compose the article.
If this variable is t, you can either include an encoded file with
\[gnus-uu-post-insert-binary-in-article] or have one included for you when you post the article.
(custom-declare-variable 'gnus-uu-post-include-before-composing 'nil '(#$ . 51827) :group 'gnus-extract-post :type 'boolean)
#@119 Maximum length of an article.
The encoded file will be split into how many articles it takes to
post the entire file.
(custom-declare-variable 'gnus-uu-post-length '990 '(#$ . 52212) :group 'gnus-extract-post :type 'integer)
#@308 Non-nil means that gnus-uu will post the encoded file in a thread.
This may not be smart, as no other decoder I have seen are able to
follow threads when collecting uuencoded articles.  (Well, I have seen
one package that does that - gnus-uu, but somehow, I don't think that
counts...)  The default is nil.
(custom-declare-variable 'gnus-uu-post-threaded 'nil '(#$ . 52444) :group 'gnus-extract-post :type 'boolean)
#@285 Non-nil means that the description will be posted in a separate article.
The first article will typically be numbered (0/x).  If this variable
is nil, the description the user enters will be included at the
beginning of the first article, which will be numbered (1/x).  Default
is t.
(custom-declare-variable 'gnus-uu-post-separate-description 't '(#$ . 52867) :group 'gnus-extract-post :type 'boolean)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\204-�\303\307\306\"\210\310B\302\310!\204<�\303\310\306\"\210\306\207" [current-load-list gnus-uu-post-binary-separator default-boundp set-default "--binary follows this line--" gnus-uu-post-message-id nil gnus-uu-post-inserted-file-name gnus-uu-winconf-post-news] 3)
#@46 Compose an article and post an encoded file.
(defalias 'gnus-uu-post-news #[nil "\304\305 \306 \210\307 \310\n\311 \"\210\312\n!\210)\313\314\315\"\210\313\316\315\"\210\313\317\320\"\210\205/�\212\321 \211)\207" [gnus-uu-post-inserted-file-name gnus-uu-winconf-post-news map gnus-uu-post-include-before-composing nil current-window-configuration gnus-summary-post-news make-sparse-keymap set-keymap-parent current-local-map use-local-map local-set-key "" gnus-uu-post-news-inews "" "	" gnus-uu-post-insert-binary-in-article gnus-uu-post-insert-binary] 3 (#$ . 53655) nil])
#@80 Inserts an encoded file in the buffer.
The user will be asked for a file name.
(defalias 'gnus-uu-post-insert-binary-in-article #[nil "\212\301 \211)\207" [gnus-uu-post-inserted-file-name gnus-uu-post-insert-binary] 2 (#$ . 54245) nil])
(defalias 'gnus-uu-post-encode-uuencode #[(path file-name) "\302\303	#\205�eb\210\304y\210\305\306\307\310#\203�\311\312!\210\202�\310\207" [path file-name gnus-uu-post-encode-file "uuencode" 1 search-forward " " nil t replace-match "`"] 4])
(defalias 'gnus-uu-post-encode-mime-uuencode #[(path file-name) "\302	\"\205
�\303	\304\"\210\305\207" [path file-name gnus-uu-post-encode-uuencode gnus-uu-post-make-mime "x-uue" t] 3])
(defalias 'gnus-uu-post-encode-mime #[(path file-name) "\304\305\306\305	\307\310\311\n$&\312=\205�\313\314\"\210\306\207" [shell-file-name shell-command-switch path file-name call-process nil t format "%s %s -o %s" "mmencode" 0 gnus-uu-post-make-mime "base64"] 11])
(defalias 'gnus-uu-post-make-mime #[(file-name encoding) "eb\210\305\306\307	\"#c\210\305\310\n\"c\210\214q\210eb\210\311\312\313\f!\314Q!\210\315y\210e`}\210\316\317!\2045�~\210\320c\210~)\207" [file-name gnus-uu-ext-to-mime-list encoding gnus-message-buffer mail-header-separator format "Content-Type: %s; name=\"%s\"\n" gnus-uu-choose-action "Content-Transfer-Encoding: %s\n\n" re-search-forward "^" regexp-quote "$" -1 mail-fetch-field "mime-version" "MIME-Version: 1.0\n"] 5])
(defalias 'gnus-uu-post-encode-file #[(command path file-name) "\305\306\307\306	\310\311\n\f$&\312=\207" [shell-file-name shell-command-switch command path file-name call-process nil t format "%s %s %s" 0] 11])
#@116 Posts the composed news article and encoded file.
If no file has been included, the user will be asked for a file.
(defalias 'gnus-uu-post-news-inews #[nil "\304	\203�	\202�\305 \306\n\"\210)\304\205�\307!\207" [file-name gnus-uu-post-inserted-file-name gnus-uu-post-threaded gnus-uu-winconf-post-news nil gnus-uu-post-insert-binary gnus-uu-post-encoded set-window-configuration] 3 (#$ . 55895) nil])
(defalias 'gnus-uu-post-insert-binary #[nil "\306\307\211\211\310\311!\312\n!\204�\313\314\n\"\210db\210\315\316\f\"c\210\317\320\n\"\203.�\321\n\322\307OP\317\323\n\"\203?�\n\324\224T\307O\202A�\n\325\216\212\326!\211q\210\327 \210
\n\")\203]�\330	!\210\202a�\313\331!\210),\207" [file-name uubuf file-path uuencode-buffer-name gnus-uu-post-binary-separator gnus-uu-post-encode-method "*uuencode buffer*" nil read-file-name "What file do you want to encode? " file-exists-p error "%s: No such file" format "\n%s\n" string-match "^~/" "$HOME" 1 "/[^/]*$" 0 ((kill-buffer uubuf)) gnus-get-buffer-create erase-buffer insert-buffer-substring "Encoding unsuccessful"] 4])
(defalias 'gnus-uu-post-encoded #[(file-name &optional threaded) "\306\307\310\311P\312\211\211\211\211\211\211\211\211\211\211\211\211456789:;<=>?peb\210\313@\203E�\314\315A!\316Q\202K�\314\315!\316Q\312\317#\204U�\320\321!\210\322 \210\323y\210`d\212\324>!\211;q\210\325 \210\326\f\n	#\210eb\210\327ed\"\211:B\2459:B\246\330W\204\220�9T9)@\203\231�\331y\210`d|\210eb\210\313\314\315!\316Q\312\317#\210e\332 {8eb\210@\203\325�\313\333\312\317#\203\313�\312\210\334\3359\"c\210\212\336 \210)\337\340!C\212\323\2117579V\204\361\324?!q\210\325 \2108c\210D\203C\203\341C\342\261\210<c\210\343\334=\344E79\344&GZ\323\345\245\211V\203#\323\334=\346
\347\"E79\346\345\246\350U\203>
S\202?
\347\"&4eb\210\313\333\312\317#\203\\\312\210\334\35179#c\210db\210\212;q\2105b\21079U\203vdb\210\202zBy\2107T9U\203\217\327`d\"\330W\203\217\352y\210`6)\326;56#\2104\342\261\210657T7eb\210\313\314\315!\316Q\312\317#\210\322 \210\345y\210\313\314\315A!\316Q\312\317#\203\324\353\344!\210\323y\2104c\210\342c\210\312F\212\336 \210)\337\354!\355\337\340!QC)\202\334�)?\211G\211H\205H;\203\356\202\357H!)\203\360\356G!I\"I\361G!\210)>\211G\211H\2058H;\2034\356\2025\357H!)\203K\360\356G!I\"I\361G!\210)@?\205X\362\312!\210\363 .\207" [mail-header-separator end-binary beg-binary whole-len post-buf minlen "*uuencode send buffer*" "*encoded buffer*" "[ cut here %s (%s %d/%d) %s gnus-uu ]" "\n\n" nil re-search-forward "^" regexp-quote "$" t error "Internal error: No binary/header separator" beginning-of-line 1 gnus-get-buffer-create erase-buffer insert-buffer-substring count-lines 4 -1 point-at-bol "^Subject: " format " (0/%d)" message-send message-fetch-field "message-id" "References: " "\n" 62 "" 2 make-string 45 0 " (%d/%d)" -4 replace-match "references" " " get-buffer buffer-name delete kill-buffer set-buffer-modified-p bury-buffer beg-line beg end i header parts length uubuf separator top-string encoded-buffer-name send-buffer-name gnus-uu-post-separate-description gnus-uu-post-binary-separator gnus-uu-post-length gnus-uu-post-message-id threaded file-name message-sent-message-via buf buffer gnus-buffers] 18])
(provide 'gnus-uu)

${this.title}

Code Editor : gnus-uu.elc