;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:10 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-uu.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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&\210\324\325\326\327\315\316\330\331&\210\324\332\311\333\315\316\330\334&\210\324\335\336\337\315\316\330\340&\210\324\341\342\343\315\320\330\344&\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 "Viewing extracted files." gnus-extract-archive "Extracting encoded archives." gnus-extract-post "gnus-uu-post" 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")) "*Default actions to be taken when the user asks to view a file.\nTo change the behavior, you can either edit this variable or set\n`gnus-uu-user-view-rules' to something useful.\n\nFor example:\n\nTo make gnus-uu use 'xli' to display JPEG and GIF files, put the\nfollowing in your .emacs file:\n\n  (setq gnus-uu-user-view-rules '((\"jpg$\\\\|gif$\" \"xli\")))\n\nBoth these variables are lists of lists with two string elements.  The\nfirst string is a regular expression.  If the file name matches this\nregular expression, the command in the second string is executed with\nthe file as an argument.\n\nIf the command string contains \"%s\", the file name will be inserted\nat that point in the command string.  If there's no \"%s\" in the\ncommand string, the file name will be appended to the command string\nbefore executing.\n\nThere are several user variables to tailor the behavior of gnus-uu to\nyour needs.  First we have `gnus-uu-user-view-rules', which is the\nvariable gnus-uu first consults when trying to decide how to view a\nfile.  If this variable contains no matches, gnus-uu examines the\ndefault rule variable provided in this package.  If gnus-uu finds no\nmatch here, it uses `gnus-uu-user-view-rules-end' to try to make a\nmatch." :type (repeat (group regexp (string :tag "Command"))) gnus-uu-user-view-rules "What actions are to be taken to view a file.\nSee the documentation on the `gnus-uu-default-view-rules' variable for\ndetails." (repeat (group regexp (string :tag "Command"))) gnus-uu-user-view-rules-end '(("" "file")) "*What actions are to be taken if no rule matched the file name.\nSee the documentation on the `gnus-uu-default-view-rules' variable for\ndetails." (repeat (group regexp (string :tag "Command"))) 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")) "*See `gnus-uu-user-archive-rules'." (repeat (group regexp (string :tag "Command")))] 8)
(defvar gnus-uu-destructive-archivers (list "uncompress" "gunzip"))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\313&\210\300\314\302\315\304\312\306\316&\207" [custom-declare-variable gnus-uu-user-archive-rules nil "A list that can be set to override the default archive unpacking commands.\nTo use, for instance, 'untar' to unpack tar files and 'zip -x' to\nunpack zip files, say the following:\n  (setq gnus-uu-user-archive-rules\n    '((\"\\\\.tar$\" \"untar\")\n      (\"\\\\.zip$\" \"zip -x\")))" :group gnus-extract-archive :type (repeat (group regexp (string :tag "Command"))) gnus-uu-ignore-files-by-name "*A regular expression saying what files should not be viewed based on name.\nIf, for instance, you want gnus-uu to ignore all .au and .wav files,\nyou could say something like\n\n  (setq gnus-uu-ignore-files-by-name \"\\\\.au$\\\\|\\\\.wav$\")\n\nNote that this variable can be used in conjunction with the\n`gnus-uu-ignore-files-by-type' variable." gnus-extract (choice (const :tag "off" nil) (regexp :format "%v")) gnus-uu-ignore-files-by-type "*A regular expression saying what files that shouldn't be viewed, based on MIME file type.\nIf, for instance, you want gnus-uu to ignore all audio files and all mpegs,\nyou could say something like\n\n  (setq gnus-uu-ignore-files-by-type \"audio/\\\\|video/mpeg\")\n\nNote that this variable can be used in conjunction with the\n`gnus-uu-ignore-files-by-name' variable." (choice (const :tag "off" nil) (regexp :format "%v"))] 8)
(defconst gnus-uu-ext-to-mime-list '(("\\.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")))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\314&\210\300\315\311\316\304\317\306\314&\210\300\320\311\321\304\305\322\323\306\324&	\210\300\325\311\326\304\313\306\314&\210\300\327\330\331\304\305\306\314&\210\300\332\311\333\304\305\306\314&\210\300\334\311\335\304\305\306\314&\210\300\336\311\337\304\305\306\314&\210\300\340\311\341\304\305\306\314&\210\300\342\311\343\304\305\306\324&\210\300\344\345\346\304\305\306\347&\210\300\350\311\351\304\305\306\314&\210\300\352\353\354\304\305\306\355&\207" [custom-declare-variable gnus-uu-tmp-dir (cond ((fboundp 'temp-directory) (temp-directory)) ((boundp 'temporary-file-directory) temporary-file-directory) ("/tmp/")) "*Variable saying where gnus-uu is to do its work.\nDefault is \"/tmp/\"." :group gnus-extract :type directory gnus-uu-do-not-unpack-archives nil "*Non-nil means that gnus-uu won't peek inside archives looking for files to display.\nDefault is nil." gnus-extract-archive boolean gnus-uu-ignore-default-view-rules "*Non-nil means that gnus-uu will ignore the default viewing rules.\nOnly the user viewing rules will be consulted.  Default is nil." gnus-extract-view gnus-uu-grabbed-file-functions "Functions run on each file after successful decoding.\nThey will be called with the name of the file as the argument.\nLikely functions you can use in this list are `gnus-uu-grab-view'\nand `gnus-uu-grab-move'." :options (gnus-uu-grab-view gnus-uu-grab-move) hook gnus-uu-ignore-default-archive-rules "*Non-nil means that gnus-uu will ignore the default archive unpacking commands.\nOnly the user unpacking commands will be consulted.  Default is nil." gnus-uu-kill-carriage-return t "*Non-nil means that gnus-uu will strip all carriage returns from articles.\nDefault is t." gnus-uu-view-with-metamail "*Non-nil means that files will be viewed with metamail.\nThe gnus-uu viewing functions will be ignored and gnus-uu will try\nto guess at a content-type based on file name suffixes.  Default\nit nil." gnus-uu-unmark-articles-not-decoded "*Non-nil means that gnus-uu will mark articles that were unsuccessfully decoded as unread.\nDefault is nil." gnus-uu-correct-stripped-uucode "*Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted.\nDefault is nil." gnus-uu-save-in-digest "*Non-nil means that gnus-uu, when asked to save without decoding, will save in digests.\nIf this variable is nil, gnus-uu will just save everything in a\nfile without any embellishments.  The digesting almost conforms to RFC1153 -\nno easy way to specify any meaningful volume and issue numbers were found,\nso I simply dropped them." gnus-uu-pre-uudecode-hook "Hook run before sending a message to uudecode." 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:") "*List of regexps to match headers included in digested messages.\nThe headers will be included in the sequence they are matched.  If nil\ninclude all headers." (repeat regexp) gnus-uu-save-separate-articles "*Non-nil means that gnus-uu will save articles in separate files." gnus-uu-be-dangerous 'ask "*Specifies what to do if unusual situations arise during decoding.\nIf nil, be as conservative as possible.  If t, ignore things that\ndidn't work, and overwrite existing files.  Otherwise, ask each time." (choice (const :tag "conservative" nil) (const :tag "ask" ask) (const :tag "liberal" t))] 10)
(defvar gnus-uu-saved-article-name nil)
(defvar gnus-uu-begin-string "^begin[ 	]+0?[0-7][0-7][0-7][ 	]+\\(.*\\)$")
(defvar gnus-uu-end-string "^end[ 	]*$")
(defvar gnus-uu-body-line "^M")
(byte-code "\302S\211\303V\203	\304P\202	\305P)\302\207" [i gnus-uu-body-line 61 0 "[^a-z]" ".?$"] 2)
(defvar gnus-uu-shar-begin-string "^#! */bin/sh")
(defvar gnus-uu-shar-name-marker "begin 0?[0-7][0-7][0-7][ 	]+\\(\\(\\w\\|[.\\:]\\)*\\b\\)")
(defvar gnus-uu-postscript-begin-string "^%!PS-")
(defvar gnus-uu-postscript-end-string "^%%EOF$")
(defvar gnus-uu-file-name nil)
(defvar gnus-uu-uudecode-process nil)
(defvar gnus-uu-binhex-article-name nil)
(defvar gnus-uu-yenc-article-name nil)
(defvar gnus-uu-work-dir nil)
(defvar gnus-uu-output-buffer-name " *Gnus UU Output*")
(defvar gnus-uu-default-dir gnus-article-save-directory)
(defvar gnus-uu-digest-from-subject nil)
(defvar gnus-uu-digest-buffer nil)
#@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 (#$ . 11123) "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 (#$ . 11299) (list current-prefix-arg (file-name-as-directory (read-directory-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 (#$ . 11648) "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 (#$ . 11852) (list current-prefix-arg (file-name-as-directory (read-directory-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 (#$ . 12208) (list current-prefix-arg (if gnus-uu-save-separate-articles (read-directory-name "Save articles in dir: " gnus-uu-default-dir gnus-uu-default-dir) (read-file-name "Save article 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 (#$ . 12649) (list current-prefix-arg (file-name-as-directory (read-directory-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 (#$ . 13072) (list current-prefix-arg (file-name-as-directory (read-directory-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 (#$ . 13442) "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 (#$ . 13636) (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 (#$ . 13969) "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 (#$ . 14169) (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 (#$ . 14502) (list current-prefix-arg (if gnus-uu-save-separate-articles (read-directory-name "Save articles in dir: " gnus-uu-default-dir gnus-uu-default-dir) (read-file-name "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 (#$ . 14927) (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\211456789\203+9\247\204+	?\3129\3139!:9\204F:G\314U\203F\315 \210\316 \237:\317 ;\320p!:<=\321!>\321!?@ABCDE\312>\322\323\324\"\210\322\325\326\"\210\322\325\327\"\210\330\331F\236F\"F@\203\252@\332\230\204\252\333G!\334A\206\243B!BFBF\335\216\312H\336\337!4\340:!I\34197\"\210I:)\340:!I\3424!\210H\211J\203/
J\211K@@)\343J\211K@A)!JA\211J\203/
\f\204\376
\203/
\f\203
\fJ\211K@@)\230\204
\312
\203&
\343J\211K@A)!
\230\204&
\312JA\211J\204\366
\2045
\344\f\204G
\345=!\203E
=\202F
\346)eb\210\347\350!\203Y
`\351 |\210
c\210eb\210\347\352!\203l
`\351 |\210\353\f\261\210\306L\354M\306\"\210*\355 \210\356 \210\357\360\306\"\210\361\362!\210\363\312!\210.\n\312\211H.\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 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\f&\210p\310\311!\210\nB	\310\312!\210\n\203'\313\314!\210\315\316!\210\317=\203\\\310\320!\210\321\322!\210\321\323!\210\324\323\325\326\327$\210\324\322\325\327\211$\210)\202c\325 \210\326\207" [#2=#:gnus-setup-message-winconf #3=#:gnus-setup-message-buffer #4=#:gnus-setup-message-article #5=#:gnus-setup-yanked-articles #6=#:gnus-setup-message-winconf-name gnus-message-buffer 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 #1# gnus-message-highlight-citation major-mode mbl1 mbl] 7)) 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-current-window-configuration gnus-article-yanked-articles gnus-newsgroup-name mml-buffer-list mbl #1# #5# #4# #3# #6# #2# message-required-headers gnus-draft-meta-information-header gnus-uu-digest-from-subject gnus-newsgroup-processable fs x message-forward-decoded-p post] 11 (#$ . 15355) "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 (#$ . 18465) "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 (#$ . 19188) "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 (#$ . 19773) "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 (#$ . 20029) 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 (#$ . 20388) "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 (#$ . 20936) "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 (#$ . 21124) 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 (#$ . 21277) 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 (#$ . 21440) 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 (#$ . 22269) 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 (#$ . 22969) 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 (#$ . 23327) "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 (#$ . 23716) 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 (#$ . 24304) 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 (#$ . 24733) "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 (#$ . 24936) "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 (#$ . 25141) (list current-prefix-arg (file-name-as-directory (read-directory-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 (#$ . 25508) (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 (#$ . 26540)])
#@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 (#$ . 26956)])
(defalias 'gnus-uu-save-article #[(buffer in-state) "\203<r	q\210\n\306\f
P!\210)@\307=\203\f\310D\202:@\311=\203,\f\310\312E\202:@\313=\2038\312C\202:\314C)\207A\204wr	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
\310CFr\331\332!q\210\333 \210)r\331\334!q\210\333 \210\335\336\337 N\211$c\210O\203

P\203

\340c\210\341y\210\342c\210)\202
@\312=\204
\314CFr\332q\210d\211Mb\210\212\214	q\210\330Q\343ed\330#\210\344ed\345\330$\210\344ed\346\330$\210)O\203O
R\203O
P\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\307
K\203\307
K@JKAKeb\210\353J\330\316#\203\220
I\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\203cr\334q\210\335\201XL\"c\210))@\313=\204r@\311=\203nO\203\227P\203\227rPq\210\333 \210\201Y\334!\210db\210\201Y\332!\210)\202r\334q\210\335\201Z\375\201[\377\"\"c\210P\203\277rPq\210\333 \210\201Y\334!\210)\202\306\n\306\f!\210))r\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])
(defvar gnus-uu-binhex-body-line "^[^:]...............................................................$")
(defvar gnus-uu-binhex-begin-line "^:...............................................................$")
(defvar gnus-uu-binhex-end-line ":$")
(defalias 'gnus-uu-binhex-article #[(buffer in-state) "\306\211r\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) "rq\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\211r\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) "r\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) "\306r\307!q\210\310 \210\203i\311 \210\211@@)c\210eb\210\312\313\306\314#\203.\315\316!\210\202eb\210
\203F\312\317\306\314#\203F\315\320\314\211#\210\2025eb\210\312\321\306\314#\203Y\306\322\323\217\210\202Ied{@	\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])
(defvar gnus-uu-has-been-grabbed nil)
(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!\210\310\311\312\311\211\211\211\211\211\211\211\211\21112!34567\203\351
\313
>\204\351
8\204;\314
>\204\351
7\211A7@!\315\316!9\2368!\203%!	B7\204j6\310=\203g\3176\202j\3206\321!!:\322\323\324!:\325\230\203\200\325\202\204\326:P$\210)\327!!\210r;q\210\311<r=q\210>;6\"+\330!!\210\331
>\204\3016\310=\204\2736\317=\203\372\332
>\203\3723\203\3552\203\355\3332!\203\355?\204\355?\312=\204\350\334\335\3362\"!\203\355\3372!\210\331
>\203\367
@2\3123\314
>\203l
\311\21132;\203
2C\202
2@2\2031
\340\211A@B\341!BD1B1\202
@\203X
@\211A<\204D
ACAA\203W
A\211AA@2!\210\202D
)\3112B\203l
1GBU\203l
\31176\320=\204z
6\317=\203\247
\314
>\204\247
2\203\247
\3332!\203\247
?\204\247
?\312=\204\242
\334\335\3422\"!\203\247
\3372!\210\343
>\204\263
\313
>\203\276
C\203\276
\344!\312\"\2103\204\343
8\204\343
\314
>\204\324
\345
>\203\343
\313C\322\346\347\"\210\350\346!\210\202%\3456\202%1\203\365
\351\325!\210\20263\204\322\346\352\"\210\202!\313
>\203\322\346\353\"\210\202!\332
>\204!\314
>\204!\322\346\354\"\210C\2036	\2036\344	\211A@\312\"\210\202&;\211D\211E\205OE;\203K\355\202L\356E!)\203b\357\355D!F\"F\360D!\210)\311G1.
\207" [files article-series gnus-display-mime-function gnus-article-prepare-hook gnus-summary-display-article-function process-state require gnus-async 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 (#$ . 39368)])
#@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 (#$ . 39644)])
(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) "rq\210\306C\307\211\211\211\2114eb\2105\203+\212\310\311\307\312#\203*\313\314!\210\202)\3156\307\312#\204=\3157\307\312#\203=
\316C4\317 \210`\3206!\204T\321C4\202\312\3228\323\324\325!!\"9\326\3279P\312\211#\210\325y\210m\204\201\3207!\204\201\330 \325y\210`|\210\202k:\203\230\331:!\332>\203\230\333:!\210\334\312!\210;<\335\216\336=!\210\337\340\341>!?@\342\343=A#%:*\344:\345\"\210\346C4=9P\nB\315B\307\312#\203\334\3474B4\202\346db\210\3507\307\312#\210\325y\210:\203+\331:!\351>\203+C\203

\352	`\"\210\353\354!\210\307\355\356\217\210\3474>\203(
\307\357\360\217\210\331:!\361>\203+\362:\325\"\210\202
:\2036
\331:!\363>\204+\306C4\202+\3464>\203W
\nG\325U\203P
\n@\202Q
\n4B\202Y
4.\207" [process-buffer start-char files buffer-read-only case-fold-search process-connection-type wrong-type nil search-forward "
" t delete-char -1 re-search-forward ok beginning-of-line looking-at middle gnus-map-function file-name-nondirectory match-string 1 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\"." (#$ . 42557))
(defalias 'gnus-uu-unshar-article #[(process-buffer in-state) "\306C\307r\nq\210eb\210\310\307\311#\204\312C\202o\313 \314\216\212\315p!\210\316 \210\317\320\321!!\322\216r
q\210\323!c\210eb\210\324
!\210\325\326!*\204J\327C,\327	>\204o\330 \210`\331d\307\332 !\307!\333\"\334#\335\260&\210)	*\207" [start-char state process-buffer gnus-uu-shar-begin-string #1=#:wconfig buffer ok nil re-search-forward t wrong-type current-window-configuration ((set-window-configuration #1#)) 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 beginning-of-line call-process-region gnus-get-buffer-create "cd " " " " sh" gnus-uu-unshar-warning shell-file-name gnus-uu-output-buffer-name shell-command-switch gnus-uu-work-dir gnus-shell-command-separator] 13])
(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\"#r\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\202m?\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])
(defvar gnus-uu-tmp-alist nil)
(defalias 'gnus-uu-initialize #[(&optional scan) "\306	\204*\307\n\"\211\203*\310A!\203A\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 (#$ . 48423)])
(byte-code "\300\301\302\"\210\300\301\303\"\210\304\305\306\307\310\311\312\313&\210\304\314\315\316\310\311\312\317&\210\304\320\321\322\310\311\312\323&\210\304\324\315\325\310\311\312\317&\210\304\326\327\330\310\311\312\317&\207" [add-hook gnus-exit-group-hook gnus-uu-clean-up gnus-uu-delete-work-dir custom-declare-variable gnus-uu-post-encode-method 'gnus-uu-post-encode-uuencode "Function used for encoding binary files.\nThere are three functions supplied with gnus-uu for encoding files:\n`gnus-uu-post-encode-uuencode', which does straight uuencoding;\n`gnus-uu-post-encode-mime', which encodes with base64 and adds MIME\nheaders; and `gnus-uu-post-encode-mime-uuencode', which encodes with\nuuencode and adds MIME headers." :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")) gnus-uu-post-include-before-composing nil "Non-nil means that gnus-uu will ask for a file to encode before you compose the article.\nIf this variable is t, you can either include an encoded file with\n\\[gnus-uu-post-insert-binary-in-article] or have one included for you when you post the article." boolean gnus-uu-post-length 990 "Maximum length of an article.\nThe encoded file will be split into how many articles it takes to\npost the entire file." integer gnus-uu-post-threaded "Non-nil means that gnus-uu will post the encoded file in a thread.\nThis may not be smart, as no other decoder I have seen are able to\nfollow threads when collecting uuencoded articles.  (Well, I have seen\none package that does that - gnus-uu, but somehow, I don't think that\ncounts...)  The default is nil." gnus-uu-post-separate-description t "Non-nil means that the description will be posted in a separate article.\nThe first article will typically be numbered (0/x).  If this variable\nis nil, the description the user enters will be included at the\nbeginning of the first article, which will be numbered (1/x).  Default\nis t."] 8)
(defvar gnus-uu-post-binary-separator "--binary follows this line--")
(defvar gnus-uu-post-message-id nil)
(defvar gnus-uu-post-inserted-file-name nil)
(defvar gnus-uu-winconf-post-news nil)
#@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 (#$ . 51466) 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 (#$ . 52056) nil])
(defalias 'gnus-uu-post-encode-uuencode #[(path file-name) "\302\303	#\205eb\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 (#$ . 53706) 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\216r\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`dr\324>!\211;q\210\325 \210\326\f\n	#\210eb\210\327ed\"\211:B\2459:B\246\330W\204\2209T9)@\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\203
C\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\210r;q\2105b\21079U\203v
db\210\202z
By\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)