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



(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\330DD\331\315\316\332\333&\210\324\334\326\327\335DD\336\315\316\332\337&\210\324\340\326\327\341DD\342\315\316\332\343&\210\324\344\326\327\345DD\346\315\320\332\347&\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 funcall function #[0 "\300\207" [(("\\.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"))] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [((#1# "file"))] 1 #1#] "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 #[0 "\300\207" [(("\\.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"))] 1 #1#] "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\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\316&\210\300\317\302\303\320DD\321\306\315\310\322&\207" [custom-declare-variable gnus-uu-user-archive-rules funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Regexp matching 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\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\316&\210\300\317\302\303\320DD\321\306\322\310\316&\210\300\323\302\303\324DD\325\306\307\326\327\310\330&	\210\300\331\302\303\332DD\333\306\315\310\316&\210\300\334\302\303\335DD\336\306\307\310\316&\210\300\337\302\303\340DD\341\306\307\310\316&\210\300\342\302\303\343DD\344\306\307\310\316&\210\300\345\302\303\346DD\347\306\307\310\316&\210\300\350\302\303\351DD\352\306\307\310\316&\210\300\353\302\303\354DD\355\306\307\310\330&\210\300\356\302\303\357DD\360\306\307\310\361&\210\300\362\302\303\363DD\364\306\307\310\316&\210\300\365\302\303\366DD\367\306\307\310\370&\207" [custom-declare-variable gnus-uu-tmp-dir funcall function #[0 "\207" [temporary-file-directory] 1 #1=""] "Variable saying where gnus-uu is to do its work.\nDefault is \"/tmp/\"." :group gnus-extract :type directory gnus-uu-do-not-unpack-archives #[0 "\300\207" [nil] 1 #1#] "If non-nil, 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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "Non-nil means that gnus-uu will strip all carriage returns from articles.\nDefault is t." gnus-uu-view-with-metamail #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "If non-nil, gnus-uu will mark unsuccessfully decoded articles as unread.\nDefault is nil." gnus-uu-correct-stripped-uucode #[0 "\300\207" [nil] 1 #1#] "If non-nil, *try* to fix uuencoded files that have had trailing spaces deleted.\nDefault is nil." gnus-uu-save-in-digest #[0 "\300\207" [nil] 1 #1#] "If non-nil, 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 #[0 "\300\207" [nil] 1 #1#] "Hook run before sending a message to uudecode." gnus-uu-digest-headers #[0 "\300\207" [("^Date:" "^From:" "^To:" "^Cc:" "^Subject:" "^Message-ID:" "^Keywords:" "^Summary:" "^References:" "^Content-Type:" "^Content-Transfer-Encoding:" "^MIME-Version:" "^Content-Disposition:" "^Content-Description:" "^Content-ID:")] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Non-nil means that gnus-uu will save articles in separate files." gnus-uu-be-dangerous #[0 "\300\207" [ask] 1 #1#] "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 "\301\211S\211\262\302V\203\303P\202
\304P\207" [gnus-uu-body-line 61 0 "[^a-z]" ".?$"] 3)
(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)
#@49 Uudecode the current article.

(fn &optional N)
(defalias 'gnus-uu-decode-uu #[256 "\300\301\"\207" [gnus-uu-decode-with-method gnus-uu-uustrip-article] 4 (#$ . 11285) ["P" (gnus-article-mode gnus-summary-mode)]])
#@49 Decode and save the resulting file.

(fn N DIR)
(defalias 'gnus-uu-decode-uu-and-save #[514 "\300\301\302\211\303&\207" [gnus-uu-decode-with-method gnus-uu-uustrip-article nil t] 9 (#$ . 11506) [(byte-code "\302\303\304	\211\305$!D\207" [current-prefix-arg gnus-uu-default-dir file-name-as-directory read-directory-name "Uudecode and save in dir: " t] 7) (gnus-article-mode gnus-summary-mode)]])
#@47 Unshar the current article.

(fn &optional N)
(defalias 'gnus-uu-decode-unshar #[256 "\300\301\302\211\303\304&\207" [gnus-uu-decode-with-method gnus-uu-unshar-article nil scan t] 8 (#$ . 11912) ["P" (gnus-article-mode gnus-summary-mode)]])
#@50 Unshar and save the current article.

(fn N DIR)
(defalias 'gnus-uu-decode-unshar-and-save #[514 "\300\301\302\303\304&\207" [gnus-uu-decode-with-method gnus-uu-unshar-article nil scan t] 9 (#$ . 12161) [(byte-code "\302\303\304	\211\305$!D\207" [current-prefix-arg gnus-uu-default-dir file-name-as-directory read-directory-name "Unshar and save in dir: " t] 7) (gnus-article-mode gnus-summary-mode)]])
#@40 Save the current article.

(fn N FILE)
(defalias 'gnus-uu-decode-save #[514 "\211\301\302\303\304$\207" [gnus-uu-saved-article-name gnus-uu-decode-with-method gnus-uu-save-article nil t] 7 (#$ . 12574) [(byte-code "	\203
\303\304\n\211#\202\305\306\n\211#D\207" [current-prefix-arg gnus-uu-save-separate-articles gnus-uu-default-dir read-directory-name "Save articles in dir: " read-file-name "Save article in file: "] 5) (gnus-article-mode gnus-summary-mode)]])
#@43 Unbinhex the current article.

(fn N DIR)
(defalias 'gnus-uu-decode-binhex #[514 "\302 \210\303\304\305\"!\306\307#\207" [gnus-uu-work-dir gnus-uu-binhex-article-name gnus-uu-initialize make-temp-file expand-file-name "binhex" gnus-uu-decode-with-method gnus-uu-binhex-article] 6 (#$ . 13049) [(byte-code "\302\303\304	\211#!D\207" [current-prefix-arg gnus-uu-default-dir file-name-as-directory read-directory-name "Unbinhex and save in dir: "] 6) (gnus-article-mode gnus-summary-mode)]])
#@54 Decode the yEnc-encoded current article.

(fn N DIR)
(defalias 'gnus-uu-decode-yenc #[514 "\301\302\303\301\304%\207" [gnus-uu-yenc-article-name nil gnus-uu-decode-with-method gnus-uu-yenc-article t] 8 (#$ . 13549) [(byte-code "\302\303\304	\211#!D\207" [current-prefix-arg gnus-uu-default-dir file-name-as-directory read-directory-name "yEnc decode and save in dir: "] 6) (gnus-article-mode gnus-summary-mode)]])
#@58 Uudecode and view the current article.

(fn &optional N)
(defalias 'gnus-uu-decode-uu-view #[256 "\206\301\302
!)\207" [gnus-view-pseudos automatic gnus-uu-decode-uu] 3 (#$ . 13973) ["P" (gnus-article-mode gnus-summary-mode)]])
#@55 Decode, view and save the resulting file.

(fn N DIR)
(defalias 'gnus-uu-decode-uu-and-save-view #[514 "\206\301\302\")\207" [gnus-view-pseudos automatic gnus-uu-decode-uu-and-save] 5 (#$ . 14211) [(byte-code "\302\303	\211\304$D\207" [current-prefix-arg gnus-uu-default-dir read-file-name "Uudecode, view and save in dir: " t] 6) (gnus-article-mode gnus-summary-mode)]])
#@56 Unshar and view the current article.

(fn &optional N)
(defalias 'gnus-uu-decode-unshar-view #[256 "\206\301\302
!)\207" [gnus-view-pseudos automatic gnus-uu-decode-unshar] 3 (#$ . 14596) ["P" (gnus-article-mode gnus-summary-mode)]])
#@50 Unshar and save the current article.

(fn N DIR)
(defalias 'gnus-uu-decode-unshar-and-save-view #[514 "\206\301\302\")\207" [gnus-view-pseudos automatic gnus-uu-decode-unshar-and-save] 5 (#$ . 14840) [(byte-code "\302\303	\211\304$D\207" [current-prefix-arg gnus-uu-default-dir read-file-name "Unshar, view and save in dir: " t] 6) (gnus-article-mode gnus-summary-mode)]])
#@49 Save and view the current article.

(fn N FILE)
(defalias 'gnus-uu-decode-save-view #[514 "\206\301\302\")\207" [gnus-view-pseudos automatic gnus-uu-decode-save] 5 (#$ . 15226) [(byte-code "	\203
\303\304\n\211#\202\305\306\n\211#D\207" [current-prefix-arg gnus-uu-save-separate-articles gnus-uu-default-dir read-directory-name "Save articles in dir: " read-file-name "Save articles in file: "] 5) (gnus-article-mode gnus-summary-mode)]])
#@53 Unbinhex and view the current article.

(fn N FILE)
(defalias 'gnus-uu-decode-binhex-view #[514 "\303 \210\304\305\306\"!\n\206\307\310\")\207" [gnus-uu-work-dir gnus-uu-binhex-article-name gnus-view-pseudos gnus-uu-initialize make-temp-file expand-file-name "binhex" automatic gnus-uu-decode-binhex] 6 (#$ . 15681) [(byte-code "\302\303	\211#D\207" [current-prefix-arg gnus-uu-default-dir read-file-name "Unbinhex, view and save in dir: "] 5) (gnus-article-mode gnus-summary-mode)]])
#@72 Digest and forward all articles in this series.

(fn &optional N POST)
(defalias 'gnus-uu-digest-mail-forward #[512 "\306 \210\307\310\311\312\"!	\n\313\211\21178	\203.	\247\204.	?\313\262\n\314\n!9	\204I9G\315U\203I\316 \210\317 \2379\320 :\321p!9\205u9\242\206]9\322V\205n;9\242\206l9S\234\315\234\206u99<9\203\2419\242\206\2069\322V\205\227;9\242\206\2259S\234\322\234\206\243=\202\243=\323!>\323!
\313>\324\325\326\327\"\"\210\324\330\331\"\210\324\330\326\332\"\"\210\333\334?\236?\"?\203\362\335\230\204\362\336@!\337\206\353!B?B?\326\340\n\n\n\n\n\n\n	&	\216\313A\341\342!\3439!B\344\"\210B9)\3439!B\345\f!\210A\211\203y
\211@@\262\346
@A!\262\f\211A\262
\211\203y
\n\204N
\203y
\n\203_
\n
@@\230\204_
\313\262\203r
\346
@A!\f\230\204r
\313\262\f\211A\262
\202@
\204\201
\347\262\f\n\204\225
\350=!\203\222
=\202\223
\351\262\210eb\210\352\353!\203\250
`\354 |\210\nc\210eb\210\352\355!\203\274
`\354 |\210\356\n\261\210\307C\357\307\"\210*\360 \210\361 \210\362\363\307\"\210\364\365!\210\366\313!\210*\266	)\313\211A-\207" [gnus-uu-work-dir message-forward-as-mime gnus-newsgroup-charset gnus-newsgroup-ignored-charsets gnus-uu-digest-buffer mail-parse-ignored-charsets gnus-uu-initialize t 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 0 copy-sequence add-hook message-header-setup-hook make-closure #[0 "\301\300!\207" [V0 gnus-inews-insert-gcc] 2] message-mode-hook #[0 "\302 \211\211\207" [message-mailer message-newsreader gnus-extended-version] 2] #[0 "\302\303\300!)\207" [V0 gnus-article-copy nil gnus-configure-posting-styles] 2] delq X-Draft-From "" intern gnus-inews-make-draft #[0 "\310\300\302\304\311\305\301&\210p\312\313!\210\306\303B\203\314\315!\210\316\317!\210\320=\203D\307\312\321!\210\211\322\323\324\325\326$\210\322\327\324\326\211$\207\324 \210\307\211\207" [V0 V1 V2 V3 V4 V5 V6 V7 gnus-inews-add-send-actions forward make-local-variable gnus-message-group-art gnus-message-citation-mode 1 gnus-run-hooks gnus-message-setup-hook message-mode mml-buffer-list add-hook change-major-mode-hook mml-destroy-buffers nil t kill-buffer-hook gnus-message-buffer gnus-message-highlight-citation major-mode] 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 mail-parse-charset gnus-uu-save-in-digest gnus-article-reply gnus-current-window-configuration gnus-newsgroup-selection gnus-article-yanked-articles gnus-newsgroup-name mml-buffer-list message-required-headers gnus-draft-meta-information-header gnus-uu-digest-from-subject gnus-newsgroup-processable message-forward-decoded-p] 29 (#$ . 16180) ["P" (gnus-article-mode gnus-summary-mode)]])
#@54 Digest and forward to a newsgroup.

(fn &optional N)
(defalias 'gnus-uu-digest-post-forward #[256 "\300
\301\"\207" [gnus-uu-digest-mail-forward t] 4 (#$ . 19340) ["P" (gnus-article-mode gnus-summary-mode)]])
#@27 

(fn UNMARKP NEW-MARKED)
(defalias 'gnus-message-process-mark #[514 "G
GZ\301\302\303GG\304U\203\305\202\306\203\307\202 \310\311U\2030\2040\305\202B\203=\312\313G\"\202B\312\314\"&\207" [gnus-newsgroup-processable gnus-message 6 "%d mark%s %s%s" 1 "" "s" "removed" "added" 0 format ", %d remain marked" ", %d already marked"] 12 (#$ . 19555)])
#@25 

(fn UNMARKP ARTICLES)
(defalias 'gnus-new-processable #[514 "
\203\301\302#\237\207\303
\"\207" [gnus-newsgroup-processable seq-intersection eq gnus-set-difference] 6 (#$ . 19934)])
#@193 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.

(fn REGEXP &optional UNMARK)
(defalias 'gnus-uu-mark-by-regexp #[513 "\212\300!\301\"
\203(\203\302\211A\262\242!\210\202\303\211A\262\242!\210\202\304\"\266)\305 \207" [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] 7 (#$ . 20130) ["sMark (regexp): \nP" (gnus-article-mode gnus-summary-mode)]])
#@127 Remove the process mark from articles whose subjects match REGEXP.
When called interactively, prompt for REGEXP.

(fn REGEXP)
(defalias 'gnus-uu-unmark-by-regexp #[257 "\300
\301\"\207" [gnus-uu-mark-by-regexp t] 4 (#$ . 20737) ["sUnmark (regexp): " (gnus-article-mode gnus-summary-mode)]])
#@71 Mark the current series with the process mark.

(fn &optional SILENT)
(defalias 'gnus-uu-mark-series #[256 "\300 \211G
\203\301@!\210
A\262\202\204\302\303\304#\210\305 \210\207" [gnus-uu-find-articles-matching gnus-summary-set-process-mark gnus-message 6 "Marked %d articles" gnus-summary-position-point] 7 (#$ . 21034) [nil (gnus-article-mode gnus-summary-mode)]])
#@93 Set the process mark on all articles between point and mark.

(fn BEG END &optional UNMARK)
(defalias 'gnus-uu-mark-region #[770 "\212b\210`W\203I\211\203*\300\301`\302\"\211\205\303
!\266\301`\304\"\206%\305 !\210\202C\306\301`\302\"\211\2056\303
!\266\301`\304\"\206A\305 !\210\307y\210\202)\310 \207" [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] 7 (#$ . 21417) ["r" (gnus-article-mode gnus-summary-mode)]])
#@81 Remove the process mark from all articles between point and mark.

(fn BEG END)
(defalias 'gnus-uu-unmark-region #[514 "\300\301#\207" [gnus-uu-mark-region t] 6 (#$ . 21995) ["r" (gnus-article-mode gnus-summary-mode)]])
#@53 Set the process mark on all articles in the buffer.
(defalias 'gnus-uu-mark-buffer #[0 "\300ed\"\207" [gnus-uu-mark-region] 3 (#$ . 22223) [nil (gnus-article-mode gnus-summary-mode)]])
#@56 Remove the process mark on all articles in the buffer.
(defalias 'gnus-uu-unmark-buffer #[0 "\300ed\301#\207" [gnus-uu-mark-region t] 4 (#$ . 22414) [nil (gnus-article-mode gnus-summary-mode)]])
#@45 Mark all articles downwards in this thread.
(defalias 'gnus-uu-mark-thread #[0 "\302 \303\304\"\216\212\305\306=\203\307`\310\"\203\311\262
\202>\312
\2067\307`\310\"\211\205,\313
!\266\307`\314\"\2067\315 	\"\316
8\266\202\317\307`\310\"\211\205J\313
!\266\307`\314\"\206U\315 !\203\237\320y\311U\203\237m\204\237\305\306=\203x\307`\310\"\203x\311\262
\202\232\312
\206\223\307`\310\"\211\205\210\313
!\266\307`\314\"\206\223\315 	\"\316
8\266\202
V\204>\210*\210\321 \207" [gnus-summary-make-false-root gnus-newsgroup-data gnus-hidden-threads-configuration make-closure #[0 "\301\300!\207" [V0 gnus-restore-hidden-threads-configuration] 2] nil dummy get-text-property gnus-intangible 0 gnus-data-find-in gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 gnus-summary-set-process-mark 1 gnus-summary-position-point] 7 (#$ . 22615) [nil (gnus-article-mode gnus-summary-mode)]])
#@47 Unmark all articles downwards in this thread.
(defalias 'gnus-uu-unmark-thread #[0 "\302\303=\203\304`\305\"\203\306\262
\2026\307
\206/\304`\305\"\211\205$\310
!\266\304`\311\"\206/\312 	\"\313
8\266\202\314\304`\305\"\211\205B\310
!\266\304`\311\"\206M\312 !\203\223\315y\306U\203\223\302\303=\203l\304`\305\"\203l\306\262
\202\216\307
\206\207\304`\305\"\211\205|\310
!\266\304`\311\"\206\207\312 	\"\313
8\266\202
V\2046\210\316 \207" [gnus-summary-make-false-root gnus-newsgroup-data nil dummy get-text-property gnus-intangible 0 gnus-data-find-in gnus-summary-goto-subject gnus-number gnus-summary-last-subject 4 gnus-summary-remove-process-mark 1 gnus-summary-position-point] 6 (#$ . 23541) [nil (gnus-article-mode gnus-summary-mode)]])
#@45 Invert the list of process-marked articles.
(defalias 'gnus-uu-invert-processable #[0 "\302\212
\203'
\211A\262\242\211@\262
\211\262	>\203 \303
!\210\202\304
!\210\202)\266\305 \207" [gnus-newsgroup-data gnus-newsgroup-processable nil gnus-summary-remove-process-mark gnus-summary-set-process-mark gnus-summary-position-point] 4 (#$ . 24315) [nil (gnus-article-mode gnus-summary-mode)]])
#@79 Mark all articles with a score over SCORE (the prefix).

(fn &optional SCORE)
(defalias 'gnus-uu-mark-over #[256 "\211\206	\206	\303	\212\211\203/\211@@\n\236A\206\206\303V\203(\304
@@!\210\211A\262
\202)\305 \207" [gnus-summary-default-score gnus-newsgroup-data gnus-newsgroup-scored 0 gnus-summary-set-process-mark gnus-summary-position-point] 5 (#$ . 24720) ["P" (gnus-article-mode gnus-summary-mode)]])
#@49 Mark all series that have some articles marked.
(defalias 'gnus-uu-mark-sparse #[0 "\237\302\211\211\211\204\303\304!\210\302\212\203Z\305\306@	\"\307
8\262
\211\262!\2039\211\310H\262\311\312!!\262
\244\262\203S\313@!\210\314@A\"\241\210A\262\2029A\262\202
\237)\315 \207" [gnus-newsgroup-processable gnus-newsgroup-data nil error "No articles marked with the process mark" vectorp gnus-data-find-in 3 1 gnus-uu-find-articles-matching gnus-uu-reginize-string gnus-summary-set-process-mark delq gnus-summary-position-point] 9 (#$ . 25146) [nil (gnus-article-mode gnus-summary-mode)]])
#@38 Mark all articles in "series" order.
(defalias 'gnus-uu-mark-all #[0 "\302\212	\303\302\2030@@\211\262>\204)\304\305@8!\203)\306
!\210
\307\310!\\\262A\262\202\311\312\313#\266)\314 \207" [gnus-newsgroup-processable gnus-newsgroup-data nil 0 vectorp 3 gnus-summary-goto-subject gnus-uu-mark-series t gnus-message 6 "Marked %d articles" gnus-summary-position-point] 7 (#$ . 25768) [nil (gnus-article-mode gnus-summary-mode)]])
#@59 Gets PostScript of the current article.

(fn &optional N)
(defalias 'gnus-uu-decode-postscript #[256 "\300\301\"\207" [gnus-uu-decode-with-method gnus-uu-decode-postscript-article] 4 (#$ . 26216) ["P" (gnus-article-mode gnus-summary-mode)]])
#@55 Gets and views the current article.

(fn &optional N)
(defalias 'gnus-uu-decode-postscript-view #[256 "\206\301\302
!)\207" [gnus-view-pseudos automatic gnus-uu-decode-postscript] 3 (#$ . 26465) ["P" (gnus-article-mode gnus-summary-mode)]])
#@62 Extract PostScript and save the current article.

(fn N DIR)
(defalias 'gnus-uu-decode-postscript-and-save #[514 "\300\301\302\211\303&\207" [gnus-uu-decode-with-method gnus-uu-decode-postscript-article nil t] 9 (#$ . 26716) [(byte-code "\302\303\304	\211\305$!D\207" [current-prefix-arg gnus-uu-default-dir file-name-as-directory read-directory-name "Save in dir: " t] 7) (gnus-article-mode gnus-summary-mode)]])
#@55 Decode, view and save the resulting file.

(fn N DIR)
(defalias 'gnus-uu-decode-postscript-and-save-view #[514 "\206\301\302\")\207" [gnus-view-pseudos automatic gnus-uu-decode-postscript-and-save] 5 (#$ . 27140) [(byte-code "\302\303	\211\304$D\207" [current-prefix-arg gnus-uu-default-dir read-file-name "Where do you want to save the file(s)? " t] 6) (gnus-article-mode gnus-summary-mode)]])
#@53 

(fn METHOD N &optional SAVE NOT-INSERT SCAN CDIR)
(defalias 'gnus-uu-decode-with-method #[1538 "\305!\210\203\n
\203!\211\203!\203!\306!\204!\307\310\"\210\311!\312\313	\310#\262

@\2039\314\n!\262
)\203D\315
\"\210\204M\316
!\262
\317
!\237\262
\206a\f?\206a\320
\"\207" [gnus-uu-default-dir gnus-current-article gnus-uu-work-dir gnus-uu-do-not-unpack-archives gnus-insert-pseudo-articles 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] 12 (#$ . 27548)])
#@63 Return a list of all files under DIR.

(fn DIR &optional REC)
(defalias 'gnus-uu-scan-directory #[513 "\301\302\"\303\211\211A\262\242\211\262\2036\304
!\305\235\204\306
B\307BDB\262\310
!\203\311
\302\"\244\262\202\203<
\207
\237\207" [gnus-current-article directory-files t nil file-name-nondirectory ("." "..") name article file-directory-p gnus-uu-scan-directory] 8 (#$ . 28210)])
#@36 Save FILES in DIR.

(fn FILES DIR)
(defalias 'gnus-uu-save-files #[514 "
G\302\303!P\304\211\211\305\211A\262	\242\236A\211\262\203d\306!\203\n\307\"\210
\310\225\304O\262
\311!\203<\312P!\210\202\n
P\262\306!\203Z	\313=\204Z	\203\n\314\315\316\"!\203\n\317\313\211$\210\202\n\320\321\322\211\323U\203s\324\202t\325$\207" [gnus-uu-work-dir gnus-uu-be-dangerous "^" 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"] 13 (#$ . 28619)])
#@24 

(fn BUFFER IN-STATE)
(defalias 'gnus-uu-save-article #[514 "\203-r
q\210	\306\fP!\210)\211\307\267\202)\310D\202+\310\311E\202+\311C\202+\312C)\207
\204Xr
q\210\313ed\314$\210\211\315\267\202T\310D\202V\310\311E\202V\311C\202V\312C)\207\316\317`\320\"\211\205d\321
!\266\317`\322\"\206o\323 @\"\324
8\262
\211\325H
\326HBABA\210\327!\330\211\211\211\211\211\211\211	\331=\204\235	\332=\203\325\310C\262
r\333\334!q\210\335 \210)r\333\336!q\210\335 \210\337\340\341 \211$c\210B\203\316C\203\316\342c\210\343y\210\344c\210)\202\340	\311=\204\340\312C\262
r\334q\210d\211\262	b\210r\nq\210\214\314D\345ed\330#\210)B\203
E\203
C\203
\346 \210\347 \210eb\210\350\351!\210B\203 
C\2047
\212\352\353\330\314#\2036
\354 \210\355\326!\210\356c\210\202!
)`Sd{\262e`}\210F\211\262\204P
\357 \262\202\205
\203\205
@\262A\262eb\210\352\330\314#\203P
\360\224\352\361\330\314#\203w
`S\206{
\326y\210`{P\262\202_
\202P
*B\203\332
C\203\332
E\203\252
\362c\210c\210db\210c\210db\210\363c\210\202\357
\364\365!r\211q\210c\210eb\210\352\366\330\314#\203\306
\326\224\326\225{\262db\210c\210)\367\370\371!\372\261\266\202\357
c\210db\210c\210db\210\373\374\375\376\"\351Qc\210b\210\352\366\330\314#\203\326\224\326\225{\262\203r\336q\210\337\377\"c\210))	\201I=\204$	\332=\203B\203IC\203IrCq\210\335 \210\201J\336!\210db\210\201J\334!\210)\202\277r\336q\210\337\201K\374\201L\376\"\"c\210C\203qrCq\210\335 \210\201J\336!\210)\202x	\306!\210))r\334q\210db\210\337\201M\n\"\211\262\373Pc\210\374G\201N\"\373Pc\210C\203\260rCq\210db\210\201J\334!\210)\202\276	GH\313ed\314$\210*)\336\211\205\324\201O\201P!\211\262!\205\324\211\262
\203\344\201Q\336!\210\201R \210\334\211\205\371\201O\201P!\211\262!\205\371\211\262
\203	\201Q\334!\210\201R \210\311
B\262
\310
>\203
B\207\207" [gnus-uu-save-separate-articles mm-text-coding-system coding-system-for-write gnus-uu-saved-article-name gnus-current-article gnus-uu-save-in-digest gnus-write-buffer #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (first 23 first-and-last 29 last 36)) begin end middle write-region t #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (first 66 first-and-last 72 last 79)) gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 2 1 file-name-nondirectory nil first first-and-last 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 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 "   %s\n" gnus-newsgroup-data gnus-uu-digest-from-subject message-forward-as-mime gnus-uu-digest-buffer inhibit-read-only message-forward-show-mml gnus-uu-digest-headers nnmail-pathname-coding-system file-name-coding-system last insert-buffer-substring "\n\n%s\n\n" 70 "End of %s Digest" 42 buffer-live-p get-buffer kill-buffer gnus-prune-buffers] 17 (#$ . 29227)])
(defvar gnus-uu-binhex-body-line "^[^:]...............................................................$")
(defvar gnus-uu-binhex-begin-line "^:...............................................................$")
(defvar gnus-uu-binhex-end-line ":$")
#@24 

(fn BUFFER IN-STATE)
(defalias 'gnus-uu-binhex-article #[514 "\304\211rq\210~\210eb\210\305\304\306#\204\305	\304\306#\204\307C\262\307>\204v\310 \210`\262
\311!\203>\312C\262\313ee\n#\210\202B\314C\262db\210\315	\316Q\304\306#\210\311!\203d\312>\203`\317B\202b\317C\262\310 \210\320y\210\321\n!\203v\322
`\n#\210)\312>\203\201\nB\207
\207" [gnus-uu-binhex-begin-line gnus-uu-binhex-body-line gnus-uu-binhex-article-name gnus-uu-binhex-end-line 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] 8 (#$ . 32922)])
#@24 

(fn BUFFER IN-STATE)
(defalias 'gnus-uu-yenc-article #[514 "rq\210~\210\303 \304
\204\305C\262
\305
>\204j\306 \203&\307	\"\310
B\262
\311 \2030\312
B\262
\211\2049\313
B\262
\314\315\316\"r\211q\210\317\320\"\216\321 \210\322!\210\323ed\"\210\310>\203b\324\n!\203b\325\n!\210\326ed\n#\210*\210\310
>\203x

B\266\202\202{\211\266\202)\207" [gnus-original-article-buffer 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*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] mm-disable-multibyte insert-buffer-substring yenc-decode-region file-exists-p delete-file mm-append-to-file] 9 (#$ . 33572)])
#@32 

(fn PROCESS-BUFFER IN-STATE)
(defalias 'gnus-uu-decode-postscript-article #[514 "\305C\306\211\211rq\210eb\210\307\306\310#\204\311C\262\202R\312 \210`\262\307	\306\310#\2040\311C\262\202R`\262\313\n!q\210\314#\210\fA\315Q\262
\316ed#\210\211\317\320E\262)\207" [gnus-uu-postscript-begin-string gnus-uu-postscript-end-string gnus-uu-output-buffer-name gnus-uu-work-dir gnus-article-current ok nil re-search-forward t wrong-type beginning-of-line gnus-get-buffer-create insert-buffer-substring ".ps" write-region begin end] 10 (#$ . 34353)])
#@14 

(fn FILES)
(defalias 'gnus-uu-get-actions #[257 "\211\300\211\203:\301@\236A\262
\302
!\211\262\2033\303\230\203$\304\305B\202'\304B\306\307\"BD@\244\240\210A\262\202\207" [nil name gnus-uu-get-action "gnus-uu-archive" action "file" execute gnus-uu-command] 10 (#$ . 34921)])
#@18 

(fn FILE-NAME)
(defalias 'gnus-uu-get-action #[257 "\306\307\310	?\205\n#\"\262
\211\206\311\312\230\204.\f\203.\307
\"\211\262\203.\313\314\"\262
\207" [gnus-uu-user-view-rules gnus-uu-ignore-default-view-rules gnus-uu-default-view-rules gnus-uu-user-view-rules-end gnus-uu-view-with-metamail gnus-uu-ext-to-mime-list nil gnus-uu-choose-action append "" "gnus-uu-archive" format "metamail -d -b -c \"%s\""] 8 (#$ . 35223)])
#@15 

(fn STRING)
(defalias 'gnus-uu-reginize-string #[257 "r\302!q\210\303 \210\304 \210\305
!c\210\306\211\210\307\310\306\311#\203%\312\313!\210\202J\306\210\307\314\306\311#\2037\312\315!\210\202J\306\210\307\316\306\311#\203J\312\317\311\306\211\211%\210eb\210\320\321\306\311#\203^\312\321\311\211#\210\202M\322 )\207" [gnus-uu-output-buffer-name 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] 8 (#$ . 35669)])
#@10 

(fn N)
(defalias 'gnus-uu-get-list-of-articles #[257 "\301
\203H\302!\262
\303W\304!\212\211\303V\203D\305`\306\"\211\205\"\307
!\266\305`\310\"\206-\311 B\211\262\203D\312\301\211#\203D\211S\262
\202)\237\207\203P\313!\207\314 \207" [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] 8 (#$ . 36394)])
#@14 

(fn L1 L2)
(defalias 'gnus-uu-string< #[514 "
@
@\231\207" [] 4 (#$ . 36897)])
#@55 

(fn &optional SUBJECT ONLY-UNREAD DO-NOT-TRANSLATE)
(defalias 'gnus-uu-find-articles-matching #[768 "\2068\305\306\307
\206!\310`\311\"\211\205\312
!\266\310`\313\"\206!\314 \"\315
8\262
\211\2055\316
!\2055\211\317H\266\202!\306\212
\205\242\320\306\211\211\203\223\211A\262\242\262
\315
8:\204E\203t\211A@\211\262\nU\204t
U\204t
\fU\203E\315
8\317H\211\262\203E\321\"\203E
@BB\262\202E)\266\322\323\324\325?\"\326\"\")\207" [gnus-newsgroup-data case-fold-search gnus-unread-mark gnus-ticked-mark gnus-dormant-mark gnus-uu-reginize-string nil gnus-data-find-in get-text-property gnus-intangible gnus-summary-goto-subject gnus-number gnus-summary-last-subject 3 mail-header-p 1 t string-match mapcar cdr sort gnus-uu-expand-numbers gnus-uu-string<] 13 (#$ . 36984)])
#@40 

(fn STRING-LIST &optional TRANSLATE)
(defalias 'gnus-uu-expand-numbers #[513 "
\301r\302!q\210\303 \210\203v\304 \210@@c\210eb\210\305\306\301\307#\203)\310\311!\210\202eb\210\203A\305\312\301\307#\203A\310\313\307\211#\210\2020eb\210\305\314\301\307#\203e\3151a\310\316\317\320\321\224\321\225{!\"!0\210\202D\210\202Ded{\262
@
\240\210A\262\202)
\207" [gnus-uu-output-buffer-name nil gnus-get-buffer-create buffer-disable-undo erase-buffer re-search-forward "[ 	]+" t replace-match " " "[A-Za-z]" "a" "[0-9]+" (error) format "%06d" string-to-number 0] 10 (#$ . 37801)])
(defvar gnus-uu-has-been-grabbed nil)
#@43 

(fn &optional DONT-UNMARK-LAST-ARTICLE)
(defalias 'gnus-uu-unmark-list-of-grabbed #[256 "\302\205-	\205-
\203@\262
A\203%\303@\304\"\210A\211\204
\205-\211C\211\207" [gnus-uu-has-been-grabbed gnus-uu-unmark-articles-not-decoded nil gnus-summary-tick-article t] 6 (#$ . 38438)])
#@67 

(fn ARTICLES PROCESS-FUNCTION &optional SLOPPY LIMIT NO-ERRORS)
(defalias 'gnus-uu-grab-articles #[1282 "\306\307!\210\310\311\312\311\211\211\211\211\211\211\211\211\211\n\203\355
\313>\204\355
\2045\314>\204\355
\211A\262\242\262	\315\316\n
\"\317
8\262
!\203B\262\204h\f\310=\203e\320\262
\202h\321\262
\322	!\323\324\325\f\326\230\203{\326\202~\327P$\266\330	!\210r2q\210\3113r4q\2102\"\262+\331	!\210\332>\204\276\f\310=\204\267\f\320=\203\370\333>\203\370	\203\352\203\352\334!\203\3525\204\3525\312=\204\345\335\336\337\n\"!\203\352\340!\210\332>\203\365@\262\312\262\n\314>\203j
\311\262\311\262\n;\203
C\262
\202
\262
\211@\262\211\2034
\341
\211A\262\242B\342\nBDB\262\202
6\203V
6\211<\204D
\211C\262
\211\203U
\211
A\262\242	!\210\202D
\210\311\262\203j
GU\203j
\311\262\f\321=\204x
\f\320=\203\246
\314>\204\246
\203\246
\334!\203\246
5\204\246
5\312=\204\241
\335\336\343\n\"!\203\246
\340!\210\344>\204\264
\313>\203\277
7\203\277
\345	\312\"\210	\204\347
\204\347
\314>\204\327
\346>\203\347
\313C\262\323\347\350\"\210\351\347!\210\202\346\262
\202\203\371
\352\326!\210\202>	\204\323\347\353\"\210\202(\313>\203\323\347\354\"\210\202(\333>\204(\314>\204(\323\347\355\"\2107\203>
\203>\345\211A\262\242\312\"\210\202-2\211\211\205Q\356\357!\211\262!\205Q\211\262
\203]\360
!\210\361 \210\210\3118-\207" [gnus-display-mime-function gnus-article-prepare-hook gnus-summary-display-article-function gnus-inhibit-treatment gnus-asynchronous gnus-newsgroup-data require gnus-async first nil t error end vectorp gnus-data-find-in 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" buffer-live-p get-buffer kill-buffer gnus-prune-buffers gnus-original-article-buffer buffer-read-only gnus-summary-buffer gnus-uu-be-dangerous gnus-uu-grabbed-file-functions gnus-uu-unmark-articles-not-decoded gnus-current-article] 25 (#$ . 38741)])
#@49 View FILE using the gnus-uu methods.

(fn FILE)
(defalias 'gnus-uu-grab-view #[257 "\301
!\302\303\304\"\203\305\"\202
\306Q\307=\"\207" [gnus-view-pseudos gnus-uu-get-action gnus-execute-command string-search "%" format " " not-confirm] 6 (#$ . 41208)])
#@36 Move FILE to somewhere.

(fn FILE)
(defalias 'gnus-uu-grab-move #[257 "\205\301!\302!P\303\"\210\304!?\205\305
\"\262
\207" [gnus-uu-default-dir file-name-as-directory file-name-nondirectory rename-file file-exists-p make-symbolic-link] 5 (#$ . 41478)])
#@16 

(fn ARTICLE)
(defalias 'gnus-uu-part-number #[257 "\301
\"\302
8\262
\211\205\211\303H\304
\203,\305\306\"\203,\307\310\"\262

\310\225\304O\262\202\211\204G\305\311\"\203G\307\310\"\262

\310\225\304O\262\2020\211\206L\312\207" [gnus-newsgroup-data gnus-data-find-in 3 1 nil string-match "[0-9]+/[0-9]+\\|[0-9]+[ 	]+of[ 	]+[0-9]+" match-string 0 "[0-9]+[^0-9]+[0-9]+" ""] 7 (#$ . 41749)])
#@22 

(fn PROCESS EVENT)
(defalias 'gnus-uu-uudecode-sentinel #[514 "\300\301!!\207" [delete-process get-process] 5 (#$ . 42164)])
#@32 

(fn PROCESS-BUFFER IN-STATE)
(defalias 'gnus-uu-uustrip-article #[514 "r
q\210\306C\307\211\211\211\211eb\210\203)\212\310\311\307\312#\203(\313\314!\210\202)\315\f\307\312#\2049\315
\307\312#\203\\
\316C\262\317 \210`\262
\320\f!\204P\321C\262\202\310\3228\323\324\325!!\"9\326\3279P\312\211#\210\325y\210m\204|\320
!\204|\330 \325y\210`|\210\202g:\203\223\331:!\332>\203\223\333:!\210\334\312!\210;\335\336\"\216\337<!\210\340\341\342=!>?\343\344<@#%:)\210\345:\346\"\210\347C\262<9PB\262\315A\307\312#\203\332\350B\262\202\343db\210\351
\307\312#\210\325y\210:\203)\331:!\352>\203)B\203\376\353
`\"\210\354\355!\210\3561
\357:`#0\210\202 
\210\333:!\210\360\361\362\"\210\306C\262\350>\203G
\36314
\364:!0\210\2025
\210\331:!\365>\203)\366:\325\"\210\2025
:\203U
\331:!\367>\204)\306C\262\202)\347>\203v

G\325U\203o

@\202p

B\202w
+\266\206)\207" [buffer-read-only case-fold-search process-connection-type gnus-uu-kill-carriage-return gnus-uu-begin-string gnus-uu-body-line 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 make-closure #[0 "\301\300!\207" [V0 cd] 2] 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 (error) process-send-region gnus-message 2 "gnus-uu: Couldn't uudecode" (error) process-send-eof (open run) accept-process-output (run stop) mm-file-name-rewrite-functions gnus-uu-file-name gnus-uu-uudecode-process default-directory 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] 18 (#$ . 42298)])
#@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\"." (#$ . 44340))
#@32 

(fn PROCESS-BUFFER IN-STATE)
(defalias 'gnus-uu-unshar-article #[514 "\306C\307rq\210eb\210\310\307\311#\204\312C\262\202o\313 \314\315\"\216\212\316p!\210\317 \210\320\321!\314\322\"\216r\211q\210\323	!c\210eb\210\324
!\210\325\326!*\204K\327C\262\210*\210\327>\204o\330 \210`\262
\331
d\n\307\332!\307\f\333
\334\335\260&\210)
\207" [gnus-uu-shar-begin-string gnus-uu-unshar-warning shell-file-name gnus-uu-output-buffer-name shell-command-switch gnus-uu-work-dir ok nil re-search-forward t wrong-type current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer delete-other-windows generate-new-buffer "*Warning*" #[0 "\301\300!\207" [V0 kill-buffer] 2] 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-shell-command-separator] 17 (#$ . 45009)])
#@55 

(fn FILE-NAME FILE-ACTION-LIST &optional NO-IGNORE)
(defalias 'gnus-uu-choose-action #[770 "\304!\305\306\211\204M	\203\307	\"\204M\n\203,\307\n\310	\305#\206(\311\"\204M\203M\211\204M@\262A\262\307@\"\203,
A@\262
\202,)\207" [case-fold-search gnus-uu-ignore-files-by-name gnus-uu-ignore-files-by-type gnus-uu-ext-to-mime-list copy-sequence t nil string-match gnus-uu-choose-action ""] 13 (#$ . 45963)])
#@18 

(fn FILE-PATH)
(defalias 'gnus-uu-treat-archive #[257 "\306\307\211\211\310\311	?\205\n\"\"\262\204\312\313\"\210\314\315\"\210\316\211\224O\262
\235\2037\317\211\320P\306#\210\321\322\323	\"#\262r\324\f!q\210\325 \210)\326\327\330\323	\"#\210\331
\307\324\f!\307&\316=\203q\332\333!\210\202y\326\334\335\"\210\307\262\235\203\210\336\320P\306#\210\207" [gnus-uu-user-archive-rules gnus-uu-ignore-default-archive-rules gnus-uu-default-archive-rules gnus-uu-destructive-archivers gnus-uu-output-buffer-name shell-file-name 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 shell-command-switch] 12 (#$ . 46402)])
#@12 

(fn DIR)
(defalias 'gnus-uu-dir-files #[257 "\301
\302#\303\211\203,\304@\211\262!\203 \305\306!\"\262\202%\211B\262A\262\202
\207" [directory-files-no-dot-files-regexp directory-files t nil file-directory-p append gnus-uu-dir-files] 8 (#$ . 47303)])
#@31 

(fn FILES &optional IGNORE)
(defalias 'gnus-uu-unpack-files #[513 "\301!\302\211\203b\303@\236A\262
\235\204[\304\305!!\306\232\203[

B\262
\307!\2043\310\311\312#\210\301!\211\211\203V\211@\235\204O\303
@B\313BDB\262\211A\262
\2027
\262\266A\262\202\211\203o\314\315\"\"\207\207" [gnus-uu-work-dir 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] 11 (#$ . 47578)])
#@12 

(fn DIR)
(defalias 'gnus-uu-ls-r #[257 "\300
\301\"\211
\203'\302@!\203 \303@\"\262
\304
\305@!\"\262

A\262\202\207" [gnus-uu-directory-files t file-directory-p delete append gnus-uu-ls-r] 7 (#$ . 48126)])
#@27 

(fn DIR &optional FULL)
(defalias 'gnus-uu-directory-files #[513 "\300\211\211\301\"\262\203%@\262
A\262\302
!\303\235\204	\211B\262\202	
\237\262
\207" [nil directory-files file-name-nondirectory ("." "..")] 8 (#$ . 48350)])
#@18 

(fn START END)
(defalias 'gnus-uu-check-correct-stripped-uucode #[514 "\212\303\211\211?\205ib\210\304\305\306#\203,b\210m?\205i\307\310!\203&\311\312!\210\313y\210\202m?\205i\307	\314\nQ!\204c\204E\315 \316 Z\262
\306\262\317 \210`\262\303\210\211`ZU\204c\320
`ZZ\321\"c\210\313y\210\202,\266\203)\207" [gnus-uu-correct-stripped-uucode gnus-uu-begin-string gnus-uu-end-string nil re-search-forward " \\|`" t looking-at "\n" replace-match "" 1 "\\|" point-at-eol point-at-bol beginning-of-line make-string 32] 9 (#$ . 48597)])
(defvar gnus-uu-tmp-alist nil)
#@23 

(fn &optional SCAN)
(defalias 'gnus-uu-initialize #[256 "\304
\204(\305	\"\211\262\203(\306
A!\203\211A\211\202#\307
	\"\304\203(\310\207\311\312!!\313!\204<\314\315\"\210\202G\316!\204G\314\317\"\210\320 \321\322\"\216\323\324!\210\325\326P\327\")\262
\311\n!\nB	B\211\207" [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" default-file-modes make-closure #[0 "\301\300!\207" [V0 set-default-file-modes] 2] set-default-file-modes 448 make-temp-file "gnus" dir] 6 (#$ . 49184)])
(defalias 'gnus-uu-clean-up #[0 "\302\203\303\206\304!\305>\203\306!\210\307	!\211\262\205!\310
!\207" [gnus-uu-uudecode-process gnus-uu-output-buffer-name nil process-status "nevair" (stop run) delete-process get-buffer kill-buffer] 3])
#@20 

(fn ACTION FILE)
(defalias 'gnus-uu-command #[514 "\300
!\301\302\"\203\303\"\207\304Q\207" [shell-quote-argument string-match "%s" format " "] 6 (#$ . 50151)])
#@92 Delete recursively all files and directories under `gnus-uu-work-dir'.

(fn &optional DIR)
(defalias 'gnus-uu-delete-work-dir #[256 "\211\203
\301\302\303#\210\202\262
\211\205x\304
!\205x\305
\306\307\306$\307
\211A\262\242\211\262\203_\310
!\311\235\204!\312
!\203B\313
!\210\202!\301\314\315#\210\3161T\317
!0\210\202!\301\320\321$\266\202!\3221l\323!0\266\202t\301\320\324$\266\301\302\325\"\207" [gnus-uu-work-dir 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..." (error) delete-file 3 "Deleting file %s failed... %s" (error) delete-directory "Deleting directory %s failed... %s" ""] 9 (#$ . 50327)])
(byte-code "\300\301\302\"\210\300\301\303\"\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\313\314\321&\210\304\322\306\307\323DD\324\312\313\314\325&\210\304\326\306\307\327DD\330\312\313\314\321&\210\304\331\306\307\332DD\333\312\313\314\321&\207" [add-hook gnus-summary-prepare-exit-hook gnus-uu-clean-up gnus-uu-delete-work-dir custom-declare-variable gnus-uu-post-encode-method funcall function #[0 "\300\207" [gnus-uu-post-encode-uuencode] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "If non-nil, gnus-uu asks 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 #[0 "\300\207" [990] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\303\304 \305 \210\306 \307
\310 \"\210\311
!\266\312\313\314\"\210\312\315\314\"\210\312\316\317\"\210\n\205.\212\320 \211)\207" [gnus-uu-post-inserted-file-name gnus-uu-winconf-post-news 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] 4 (#$ . 53543) nil])
#@79 Insert an encoded file in the buffer.
The user will be asked for a file name.
(defalias 'gnus-uu-post-insert-binary-in-article #[0 "\212\301 \211)\207" [gnus-uu-post-inserted-file-name gnus-uu-post-insert-binary] 2 (#$ . 54125) nil])
#@23 

(fn PATH FILE-NAME)
(defalias 'gnus-uu-post-encode-uuencode #[514 "\300\301#\205eb\210\302y\210\303\304\305\306#\203\307\310!\210\202\306\207" [gnus-uu-post-encode-file "uuencode" 1 search-forward " " nil t replace-match "`"] 6 (#$ . 54366)])
#@23 

(fn PATH FILE-NAME)
(defalias 'gnus-uu-post-encode-mime-uuencode #[514 "\300\"\205
\301
\302\"\210\303\207" [gnus-uu-post-encode-uuencode gnus-uu-post-make-mime "x-uue" t] 5 (#$ . 54625)])
#@23 

(fn PATH FILE-NAME)
(defalias 'gnus-uu-post-encode-mime #[514 "\302\303\304\303	\305\306\307\n\n$&\310=\205\311
\312\"\210\304\207" [shell-file-name shell-command-switch call-process nil t format "%s %s -o %s" "mmencode" 0 gnus-uu-post-make-mime "base64"] 13 (#$ . 54825)])
#@27 

(fn FILE-NAME ENCODING)
(defalias 'gnus-uu-post-make-mime #[514 "eb\210\303\304\305\"#c\210\303\306\"c\210\214	q\210eb\210\307\310\311\n!\312Q!\210\313y\210e`}\210\314\315!\2045~\210\316c\210~)\207" [gnus-uu-ext-to-mime-list 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"] 7 (#$ . 55113)])
#@31 

(fn COMMAND PATH FILE-NAME)
(defalias 'gnus-uu-post-encode-file #[771 "\302\303\304\303	\305\306\n\n\n$&\307=\207" [shell-file-name shell-command-switch call-process nil t format "%s %s %s" 0] 14 (#$ . 55606)])
#@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 #[0 "\303\203\262
\202\304 \262
\305
	\"\266\303\n\205\306\n!\207" [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] 4 (#$ . 55831) nil])
(defalias 'gnus-uu-post-insert-binary #[0 "\302\211C\302\303\304!\262\305!\204\306\307\"\210db\210\310\311\"c\210\312\313\"\203,\314\315\302OP\262\312\316\"\203>\317\224T\302O\262
\202A\262
\320\321\"\216r
\322\323!\240q\210\324 \210	\")\203a\325\242!\210\202e\306\326!\210)\207" [gnus-uu-post-binary-separator gnus-uu-post-encode-method 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 make-closure #[0 "\301\300\242!\207" [V0 kill-buffer] 2] gnus-get-buffer-create "*uuencode buffer*" erase-buffer insert-buffer-substring "Encoding unsuccessful"] 7])
#@37 

(fn FILE-NAME &optional THREADED)
(defalias 'gnus-uu-post-encoded #[513 "\306P\307\211\211\211\211\211\211\211\211\211\211\211\211p\262eb\210\310	\203$\311\312\n!\313Q\202*\311\312!\313Q\307\314#\2044\315\316!\210\317 \210\320y\210`\262d\262
r\321\322!\211\262q\210\323 \210\324#\210eb\210\325ed\"\262\f\245\262\246\326W\204o\nT\262)	\203w\327y\210`d|\210eb\210\310\311\312!\313Q\307\314#\210e\330 {\262\neb\210	\203\261\310\331\307\314#\203\250\307\210\332\333\f\"c\210\212\334 \210)\335\336!\212\320\262	\320\262V\204\311
\321\337!q\210\323 \210	c\210\203\333\f\203\333\340\f\341\261\210
c\210\342\332\343\344
\344&GZ\262\320\345\245\211\262V\203\376\320\262\332\343\346\347\"\f\346	\345\246\350U\203
S\202
\347\"&\262eb\210\310\331\307\314#\203:
\307\210\332\351\n
#c\210db\210r\fq\210b\210U\203T
db\210\202W
y\210TU\203l
\325`d\"\326W\203l
\352y\210`\262)\324
\n#\210\341\261\210\262T\262	eb\210\310\311\312!\313Q\307\314#\210\317 \210\345y\210\310\311\312\n!\313Q\307\314#\203\257
\353\344!\210\320y\210c\210\341c\210\307\212\334 \210)\335\354!\355\335\336!Q)\202\270)\337\211\205\333
\356\357!\211\262!\205\333
\211\262
\203\347
\360\337!\210\361 \210\322\211\205\370
\356\357!\211\262!\205\370
\211\262
\203\360\322!\210\361 \210	?\205\362\307!\210\363 \207" [mail-header-separator gnus-uu-post-separate-description gnus-uu-post-binary-separator gnus-uu-post-length gnus-uu-post-message-id message-sent-message-via "\n\n" nil re-search-forward "^" regexp-quote "$" t error "Internal error: No binary/header separator" beginning-of-line 1 gnus-get-buffer-create "*encoded buffer*" erase-buffer insert-buffer-substring count-lines 4 -1 point-at-bol "^Subject: " format " (0/%d)" message-send message-fetch-field "message-id" "*uuencode send buffer*" "References: " "\n" 62 "[ cut here %s (%s %d/%d) %s gnus-uu ]" "" 2 make-string 45 0 " (%d/%d)" -4 replace-match "references" " " buffer-live-p get-buffer kill-buffer gnus-prune-buffers set-buffer-modified-p bury-buffer] 25 (#$ . 56920)])
(provide 'gnus-uu)