;ELC ;;; Compiled by amu@daemon on Thu Jan 11 15:03:33 2001 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.8/lisp/gnus-uu.el ;;; in Emacs version 20.7.2 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`gnus-uu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\310\311\312\313\314 \303&\210\310\315\312\316 \311%\210\310\317\312\320 \311%\210\310\321\312\320\322 \311&\207" [:prefix :group require gnus gnus-art message gnus-msg mm-decode custom-declare-group gnus-extract nil "Extracting encoded files." "gnus-uu-" gnus-extract-view "Viewwing extracted files." gnus-extract-archive "Extracting encoded archives." gnus-extract-post "gnus-uu-post"] 8) #@1220 *Default actions to be taken when the user asks to view a file. To change the behaviour, you can either edit this variable or set `gnus-uu-user-view-rules' to something useful. For example: To make gnus-uu use 'xli' to display JPEG and GIF files, put the following in your .emacs file: (setq gnus-uu-user-view-rules '(("jpg$\\|gif$" "xli"))) Both these variables are lists of lists with two string elements. The first string is a regular expression. If the file name matches this regular expression, the command in the second string is executed with the file as an argument. If the command string contains "%s", the file name will be inserted at that point in the command string. If there's no "%s" in the command string, the file name will be appended to the command string before executing. There are several user variables to tailor the behaviour of gnus-uu to your needs. First we have `gnus-uu-user-view-rules', which is the variable gnus-uu first consults when trying to decide how to view a file. If this variable contains no matches, gnus-uu examines the default rule variable provided in this package. If gnus-uu finds no match here, it uses `gnus-uu-user-view-rules-end' to try to make a match. (custom-declare-variable 'gnus-uu-default-view-rules ''(("\\.te?xt$\\|\\.doc$\\|read.*me\\|\\.c?$\\|\\.h$\\|\\.bat$\\|\\.asm$\\|makefile" "cat %s | sed 's/ $//'") ("\\.pas$" "cat %s | sed 's/ $//'") ("\\.[1-9]$" "groff -mandoc -Tascii %s | sed s/.//g") ("\\.\\(jpe?g\\|gif\\|tiff?\\|p[pgb]m\\|xwd\\|xbm\\|pcx\\)$" "display") ("\\.tga$" "tgatoppm %s | ee -") ("\\.\\(wav\\|aiff\\|hcom\\|u[blw]\\|s[bfw]\\|voc\\|smp\\)$" "sox -v .5 %s -t .au -u - > /dev/audio") ("\\.au$" "cat %s > /dev/audio") ("\\.midi?$" "playmidi -f") ("\\.mod$" "str32") ("\\.ps$" "ghostview") ("\\.dvi$" "xdvi") ("\\.html$" "xmosaic") ("\\.mpe?g$" "mpeg_play") ("\\.\\(flc\\|fli\\|rle\\|iff\\|pfx\\|avi\\|sme\\|rpza\\|dl\\|qt\\|rsrc\\|mov\\)$" "xanim") ("\\.\\(tar\\|arj\\|zip\\|zoo\\|arc\\|gz\\|Z\\|lzh\\|ar\\|lha\\)$" "gnus-uu-archive")) '(#$ . -1098) :group 'gnus-extract-view :type '(repeat (group regexp (string :tag "Command")))) #@126 What actions are to be taken to view a file. See the documentation on the `gnus-uu-default-view-rules' variable for details. (custom-declare-variable 'gnus-uu-user-view-rules 'nil '(#$ . 3232) :group 'gnus-extract-view :type '(repeat (group regexp (string :tag "Command")))) #@145 *What actions are to be taken if no rule matched the file name. See the documentation on the `gnus-uu-default-view-rules' variable for details. (custom-declare-variable 'gnus-uu-user-view-rules-end ''(("" "file")) '(#$ . -3514) :group 'gnus-extract-view :type '(repeat (group regexp (string :tag "Command")))) #@36 *See `gnus-uu-user-archive-rules'. (custom-declare-variable 'gnus-uu-default-archive-rules ''(("\\.tar$" "tar xf") ("\\.zip$" "unzip -o") ("\\.ar$" "ar x") ("\\.arj$" "unarj x") ("\\.zoo$" "zoo -e") ("\\.\\(lzh\\|lha\\)$" "lha x") ("\\.Z$" "uncompress") ("\\.gz$" "gunzip") ("\\.arc$" "arc -x")) '(#$ . -3830) :group 'gnus-extract-archive :type '(repeat (group regexp (string :tag "Command")))) (byte-code "\302\300!\204\n\303\304D\300 B\302\207" [gnus-uu-destructive-archivers current-load-list boundp "uncompress" "gunzip"] 2) #@269 A list that can be set to override the default archive unpacking commands. To use, for instance, 'untar' to unpack tar files and 'zip -x' to unpack zip files, say the following: (setq gnus-uu-user-archive-rules '(("\\.tar$" "untar") ("\\.zip$" "zip -x"))) (custom-declare-variable 'gnus-uu-user-archive-rules 'nil '(#$ . 4369) :group 'gnus-extract-archive :type '(repeat (group regexp (string :tag "Command")))) #@335 *A regular expression saying what files should not be viewed based on name. If, for instance, you want gnus-uu to ignore all .au and .wav files, you could say something like (setq gnus-uu-ignore-files-by-name "\\.au$\\|\\.wav$") Note that this variable can be used in conjunction with the `gnus-uu-ignore-files-by-type' variable. (custom-declare-variable 'gnus-uu-ignore-files-by-name 'nil '(#$ . -4800) :group 'gnus-extract :type '(choice (const :tag "off" nil) (regexp :format "%v"))) #@360 *A regular expression saying what files that shouldn't be viewed, based on MIME file type. If, for instance, you want gnus-uu to ignore all audio files and all mpegs, you could say something like (setq gnus-uu-ignore-files-by-type "audio/\\|video/mpeg") Note that this variable can be used in conjunction with the `gnus-uu-ignore-files-by-name' variable. (custom-declare-variable 'gnus-uu-ignore-files-by-type 'nil '(#$ . -5298) :group 'gnus-extract :type '(choice (const :tag "off" nil) (regexp :format "%v"))) (byte-code "\302\300 B\300\207" [gnus-uu-ext-to-mime-list current-load-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"))] 2) #@71 *Variable saying where gnus-uu is to do its work. Default is "/tmp/". (custom-declare-variable 'gnus-uu-tmp-dir '(cond ((fboundp 'temp-directory) (temp-directory)) ((boundp 'temporary-file-directory) temporary-file-directory) ("/tmp/")) '(#$ . -6853) :group 'gnus-extract :type 'directory) #@102 *Non-nil means that gnus-uu won't peek inside archives looking for files to display. Default is nil. (custom-declare-variable 'gnus-uu-do-not-unpack-archives 'nil '(#$ . -7150) :group 'gnus-extract-archive :type 'boolean) #@132 *Non-nil means that gnus-uu will ignore the default viewing rules. Only the user viewing rules will be consulted. Default is nil. (custom-declare-variable 'gnus-uu-ignore-default-view-rules 'nil '(#$ . -7379) :group 'gnus-extract-view :type 'boolean) #@209 Functions run on each file after successful decoding. They will be called with the name of the file as the argument. Likely functions you can use in this list are `gnus-uu-grab-view' and `gnus-uu-grab-move'. (custom-declare-variable 'gnus-uu-grabbed-file-functions 'nil '(#$ . 7638) :group 'gnus-extract :options '(gnus-uu-grab-view gnus-uu-grab-move) :type 'hook) #@150 *Non-nil means that gnus-uu will ignore the default archive unpacking commands. Only the user unpacking commands will be consulted. Default is nil. (custom-declare-variable 'gnus-uu-ignore-default-archive-rules 'nil '(#$ . -8010) :group 'gnus-extract-archive :type 'boolean) #@90 *Non-nil means that gnus-uu will strip all carriage returns from articles. Default is t. (custom-declare-variable 'gnus-uu-kill-carriage-return 't '(#$ . -8292) :group 'gnus-extract :type 'boolean) #@197 *Non-nil means that files will be viewed with metamail. The gnus-uu viewing functions will be ignored and gnus-uu will try to guess at a content-type based on file name suffixes. Default it nil. (custom-declare-variable 'gnus-uu-view-with-metamail 'nil '(#$ . -8497) :group 'gnus-extract :type 'boolean) #@108 *Non-nil means that gnus-uu will mark articles that were unsuccessfully decoded as unread. Default is nil. (custom-declare-variable 'gnus-uu-unmark-articles-not-decoded 'nil '(#$ . -8809) :group 'gnus-extract :type 'boolean) #@118 *Non-nil means that gnus-uu will *try* to fix uuencoded files that have had trailing spaces deleted. Default is nil. (custom-declare-variable 'gnus-uu-correct-stripped-uucode 'nil '(#$ . -9041) :group 'gnus-extract :type 'boolean) #@331 *Non-nil means that gnus-uu, when asked to save without decoding, will save in digests. If this variable is nil, gnus-uu will just save everything in a file without any embellishments. The digesting almost conforms to RFC1153 - no easy way to specify any meaningful volume and issue numbers were found, so I simply dropped them. (custom-declare-variable 'gnus-uu-save-in-digest 'nil '(#$ . -9279) :group 'gnus-extract :type 'boolean) #@48 Hook run before sending a message to uudecode. (custom-declare-variable 'gnus-uu-pre-uudecode-hook 'nil '(#$ . 9720) :group 'gnus-extract :type 'hook) #@129 *List of regexps to match headers included in digested messages. The headers will be included in the sequence they are matched. (custom-declare-variable 'gnus-uu-digest-headers ''("^Date:" "^From:" "^To:" "^Cc:" "^Subject:" "^Message-ID:" "^Keywords:" "^Summary:" "^References:" "^Content-Type:" "^Content-Transfer-Encoding:" "^MIME-Version:" "^Content-Disposition:" "^Content-Description:" "^Content-ID:") '(#$ . -9878) :group 'gnus-extract :type '(repeat regexp)) #@67 *Non-nil means that gnus-uu will save articles in separate files. (custom-declare-variable 'gnus-uu-save-separate-articles 'nil '(#$ . -10350) :group 'gnus-extract :type 'boolean) #@204 *Specifies what to do if unusual situations arise during decoding. If nil, be as conservative as possible. If t, ignore things that didn't work, and overwrite existing files. Otherwise, ask each time. (custom-declare-variable 'gnus-uu-be-dangerous ''ask '(#$ . -10537) :group 'gnus-extract :type '(choice (const :tag "conservative" nil) (const :tag "ask" ask) (const :tag "liberal" t))) (byte-code "\306\300!\204\307\300 B\306\302!\204\310\302 B\306\303!\204 \311\303 B\306\304!\204,\312\304 B\313 S\211\314V\203B\f\315P\2022\f\316P)\306\317!\204P\320\317 B\306\321!\204]\307\321 B\306\322!\204j\323\322 B\306\324!\204w\325\324 B\306\326!\204\204\327\326 B\306\330!\204\221\307\330 B\306\331!\204\236\307\331 B\306\332!\204\253\307\332 B\306\333!\204\270\307\333 B\306\334!\204\305\335\334 B\306\336!\204\323(\336 B\306\337!\204\340\307\337 B\306\340!\204\355\307 \340 B\341\342\343\"\210\341\344\345\"\210\341\346\347\"\207" [gnus-uu-saved-article-name current-load-list gnus-uu-begin-string gnus-uu-end-string gnus-uu-body-line i boundp nil "^begin[ ]+[0-7][0-7][0-7][ ]+\\(.*\\)$" "^end[ ]*$" "^M" 61 0 "[^a-z]" ".?$" gnus-uu-shar-begin-string "^#! */bin/sh" gnus-uu-shar-file-name gnus-uu-shar-name-marker "begin [0-7][0-7][0-7][ ]+\\(\\(\\w\\|\\.\\)*\\b\\)" gnus-uu-postscript-begin-string "^%!PS-" gnus-uu-postscript-end-string "^%%EOF$" gnus-uu-file-name gnus-uu-uudecode-process gnus-uu-binhex-article-name gnus-uu-work-dir gnus-uu-output-buffer-name " *Gnus UU Output*" gnus-uu-default-dir gnus-uu-digest-from-subject gnus-uu-digest-buffer gnus-define-keys-1 (gnus-uu-mark-map "P" gnus-summary-mark-map) ("p" gnus-summary-mark-as-processable "u" gnus-summary-unmark-as-processable "U" gnus-summary-unmark-all-processable "v" gnus-uu-mark-over "s" gnus-uu-mark-series "r" gnus-uu-mark-region "g" gnus-uu-unmark-region "R" gnus-uu-mark-by-regexp "G" gnus-uu-unmark-by-regexp "t" gnus-uu-mark-thread "T" gnus-uu-unmark-thread "a" gnus-uu-mark-all "b" gnus-uu-mark-buffer "S" gnus-uu-mark-sparse "k" gnus-summary-kill-process-mark "y" gnus-summary-yank-process-mark "w" gnus-summary-save-process-mark "i" gnus-uu-invert-processable) (gnus-uu-extract-map "X" gnus-summary-mode-map) ("m" gnus-summary-save-parts "u" gnus-uu-decode-uu "U" gnus-uu-decode-uu-and-save "s" gnus-uu-decode-unshar "S" gnus-uu-decode-unshar-and-save "o" gnus-uu-decode-save "O" gnus-uu-decode-save "b" gnus-uu-decode-binhex "B" gnus-uu-decode-binhex "p" gnus-uu-decode-postscript "P" gnus-uu-decode-postscript-and-save) (gnus-uu-extract-view-map "v" gnus-uu-extract-map) ("u" gnus-uu-decode-uu-view "U" gnus-uu-decode-uu-and-save-view "s" gnus-uu-decode-unshar-view "S" gnus-uu-decode-unshar-and-save-view "o" gnus-uu-decode-save-view "O" gnus-uu-decode-save-view "b" gnus-uu-decode-binhex-view "B" gnus-uu-decode-binhex-view "p" gnus-uu-decode-postscript-view "P" gnus-uu-decode-postscript-and-save-view) gnus-article-save-directory] 3) #@32 Uudecodes the current article. (defalias 'gnus-uu-decode-uu #[(&optional n) "\301\302\"\207" [n gnus-uu-decode-with-method gnus-uu-uustrip-article] 3 (#$ . 13538) "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 (#$ . 13714) (list current-prefix-arg (file-name-as-directory (read-file-name "Uudecode and save in dir: " gnus-uu-default-dir gnus-uu-default-dir t)))]) #@30 Unshars the current article. (defalias 'gnus-uu-decode-unshar #[(&optional n) "\301\302\303\211\304\305&\207" [n gnus-uu-decode-with-method gnus-uu-unshar-article nil scan t] 7 (#$ . 14058) "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 (#$ . 14262) (list current-prefix-arg (file-name-as-directory (read-file-name "Unshar and save in dir: " gnus-uu-default-dir gnus-uu-default-dir t)))]) #@28 Saves the current article. (defalias 'gnus-uu-decode-save #[(n file) "\303\304\n\305\306$\207" [file gnus-uu-saved-article-name n gnus-uu-decode-with-method gnus-uu-save-article nil t] 5 (#$ . 14613) (list current-prefix-arg (read-file-name (if gnus-uu-save-separate-articles "Save articles is dir: " "Save articles in file: ") gnus-uu-default-dir gnus-uu-default-dir))]) #@33 Unbinhexes the current article. (defalias 'gnus-uu-decode-binhex #[(n dir) "\304\305P!\306\307\n #\207" [gnus-uu-work-dir gnus-uu-binhex-article-name n dir make-temp-name "binhex" gnus-uu-decode-with-method gnus-uu-binhex-article] 4 (#$ . 14993) (list current-prefix-arg (file-name-as-directory (read-file-name "Unbinhex and save in dir: " gnus-uu-default-dir gnus-uu-default-dir)))]) #@42 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 (#$ . 15386) "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 (#$ . 15580) (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 (#$ . 15913) "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 (#$ . 16113) (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 (#$ . 16446) (list current-prefix-arg (read-file-name (if gnus-uu-save-separate-articles "Save articles is dir: " "Save articles in file: ") gnus-uu-default-dir gnus-uu-default-dir))]) #@43 Unbinhexes and views the current article. (defalias 'gnus-uu-decode-binhex-view #[(n file) "\305\306P!\n\206 \307\310 \f\")\207" [gnus-uu-work-dir gnus-uu-binhex-article-name gnus-view-pseudos n file make-temp-name "binhex" automatic gnus-uu-decode-binhex] 3 (#$ . 16809) (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\211,-./01\203+1\247\204+ ?\3121\313 \314p!2\205N\315`\316\"\2113\203D\3173!\210)\315`\320\"\206N\321 4\322!5\322!6789:\3125\323\324\325\"\210\323\324\326\"\210\323\327\330\"\210\331\216\312;\332\333!,\3341/\"\210\335,!\210;\211<\203\336<@@\336<@A!\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 (#$ . 23341) nil]) #@57 Mark all articles with a score over SCORE (the prefix). (defalias 'gnus-uu-mark-over #[(&optional score) "\206 \206 \305\n\212 \2031 @@\f\236A\206 \206\305V\203*\306 @@!\210 A\211\204)\307 *\207" [score gnus-summary-default-score gnus-newsgroup-data data gnus-newsgroup-scored 0 gnus-summary-set-process-mark gnus-summary-position-point] 3 (#$ . 23699) "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\210 A\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 (#$ . 24080) nil]) #@38 Mark all articles in "series" order. (defalias 'gnus-uu-mark-all #[nil "\304\212 \304\211\203, @@\211>\204%\305\306 @8!\203%\307\n!\210\310 \210 A\211\204 +\311 \207" [gnus-newsgroup-processable gnus-newsgroup-data number data nil vectorp 3 gnus-summary-goto-subject gnus-uu-mark-series gnus-summary-position-point] 4 (#$ . 24668) 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 (#$ . 25021) "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 (#$ . 25224) "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 (#$ . 25429) (list current-prefix-arg (file-name-as-directory (read-file-name "Save in dir: " gnus-uu-default-dir gnus-uu-default-dir t)))]) #@46 Decodes, views and saves the resulting file. (defalias 'gnus-uu-decode-postscript-and-save-view #[(n dir) "\206\303\304 \n\")\207" [gnus-view-pseudos n dir automatic gnus-uu-decode-postscript-and-save] 3 (#$ . 25791) (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 (#$ . 26823)]) #@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 (#$ . 27239)]) (defalias 'gnus-uu-save-article #[(buffer in-state) "\203<\212 q\210\n\306\f P!\210)@\307=\203\f\310D\202:@\311=\203,\f\310\312E\202:@\313=\2038\312C\202:\314C)\207A\204w\212 q\210\315ed\f\316$\210@\307=\203Y\f\310D\202u@\311=\203g\f\310\312E\202u@\313=\203s\312C\202u\314C)\207\317\320`\321\"\211B\203\207\322B!\210)\320`\323\"\206\221\324 C\2368\211D\325HD\326HBEBE)\327\f!\330\211\211\211\211\211\211\211FGHIJKLMN@\307=\204\320@\311=\203\310CF\212\331\332!q\210\333 \210)\212\331\334!q\210\333 \210\335\336\337 N\211$c\210O\203\376P\203\376\340c\210\341c\210)\202@\312=\204\314CF\212\332q\210d\211Mb\210\212\214 q\210\330Q\342ed\330#\210\343ed\344\330$\210\343ed\345\330$\210)O\203dR\203dP\203d\346\347!\204a\350\351!\203a)\203a\352\353!\203a\353\316!\210\354 \210eb\210\355\356!\210O\203uP\204\214\212\355\357\330\316#\203\213\360y\210\361\326!\210\362c\210\202v)`Sd{He`}\210S\211K\204\246ed{I\202\335K\203\335K@JKAKeb\210\355J\330\316#\203\246I\360\224\355\363\330\316#\203\322`S\206\326\326y\210`{PI\202\270~\210*O\203<P\203<R\203\364c\210Ic\210db\210Hc\210db\210\365c\210\202U\366\367!TrTq\210Ic\210eb\210\355\370\330\316#\203&\326\224\326\225{Ldb\210Hc\210)\371\372\373T!\374\261\210)\202UIc\210db\210Hc\210db\210\375\376\377\201W\"\356Qc\210Mb\210\355\370\330\316#\203h\326\224\326\225{LL\203{\212\334q\210\335\201XL\"c\210))@\313=\204\212@\311=\203lO\203\257P\203\257rPq\210\333 \210\201Y\334!\210db\210\201Y\332!\210)\202(\212\334q\210\335\201Z\376\201[\201W\"\"c\210P\203\331rPq\210\333 \210\201Y\334!\210)\202\340\n\306\f!\210))\212\332q\210db\210\335\201\\N\"\211G\375Pc\210\376GG\201]\"\375Pc\210P\203rPq\210db\210\201Y\332!\210)\202'\nUV\315ed\f\316$\210*)\334T\334\334;\2038\201^\2029\373 !)\203F\201_T!\210)\332T\332\332;\203W\201^\202X\373 !)\203e\201_T!\210)\312FBF\310F>\203z\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" current-time-string "<#part type=text/plain>\nSubject: Topics\n\n" "Topics:\n" gnus-set-text-properties put-text-property invisible intangible featurep xemacs boundp default-enable-multibyte-characters fboundp set-buffer-multibyte mime-to-mml re-search-forward "\n\n" "^-" 0 delete-char "- " "^[^ ]" "\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 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 45 " %s\n" insert-buffer "\n\n%s\n\n" 70 "End of %s Digest" 42 get-buffer kill-buffer] 10]) (byte-code "\304\300!\204\305\300 B\304\302!\204\306\302 B\304\303!\204 \307\303 B\304\207" [gnus-uu-binhex-body-line current-load-list gnus-uu-binhex-begin-line gnus-uu-binhex-end-line boundp "^[^:]...............................................................$" "^:...............................................................$" ":$"] 2) (defalias 'gnus-uu-binhex-article #[(buffer in-state) "\306\211\212\nq\210~\210eb\210\307 \306\310#\204 \307\f\306\310#\204 \311C\311 >\204u\312y\210`\313 !\203=\314C\315\316\211 #\210\202@\317Cdb\210\320\f\321Q\306\310#\210\313!\203c\314 >\203`\322 B\202b\322C\312y\210\316y\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 0 looking-at begin write-region 1 middle re-search-backward "\\|" end file-exists-p mm-append-to-file gnus-uu-binhex-end-line] 4]) (defalias 'gnus-uu-decode-postscript-article #[(process-buffer in-state) "\306C\307\211\211\212\fq\210eb\210\310 \307\311#\204\312C\202S\313y\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 0 gnus-get-buffer-create insert-buffer-substring ".ps" write-region begin end gnus-uu-postscript-end-string gnus-uu-output-buffer-name gnus-uu-work-dir gnus-article-current] 4]) (defalias 'gnus-uu-get-actions #[(files) "\304\211\203;\301@\236A\305 !\211\2034\n\306\230\203%\302\307B\202(\302\nB\310\311\n \"BD@\244\240\210A\211\204\n +\207" [files name action ofiles nil gnus-uu-get-action "gnus-uu-archive" "file" execute gnus-uu-command] 7]) (defalias 'gnus-uu-get-action #[(file-name) "\306\307 \310\n ?\205\f\f #\"\211\206\311\312\230\204. \203.\307 \"\211\203.\313\314\")\207" [action file-name gnus-uu-user-view-rules gnus-uu-ignore-default-view-rules gnus-uu-default-view-rules gnus-uu-user-view-rules-end nil gnus-uu-choose-action append "" "gnus-uu-archive" format "metamail -d -b -c \"%s\"" gnus-uu-view-with-metamail gnus-uu-ext-to-mime-list] 7]) (defalias 'gnus-uu-reginize-string #[(string) "\212\303!q\210\304 \210\305 \210\306 !c\210\307\307\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%\210\321b\210\322\323\307\312#\203^\313\323\312\211#\210\202M\321d{)\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]+" 1 re-search-forward "[ ]+"] 6]) (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 #[(sub) "A\207" [sub] 1] 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) "\305\212\306 !q\210\307 \210\203n\310 \210@@c\210eb\210\311\312\305\313#\203+\314\315!\210\202eb\210\f\203C\311\316\305\313#\203C\314\317\313\211#\210\2022eb\210\311\320\305\313#\203^\314\321\322\323\324\224\324\225{!\"!\210\202F\325d{@ \240\210A\211\204)\n*\207" [string-list string out-list gnus-uu-output-buffer-name translate nil gnus-get-buffer-create buffer-disable-undo erase-buffer re-search-forward "[ ]+" t replace-match " " "[A-Za-z]" "a" "[0-9]+" format "%06d" string-to-int 0 1] 7]) (byte-code "\302\300!\204\303\300 B\303\207" [gnus-uu-has-been-grabbed current-load-list boundp nil] 2) (defalias 'gnus-uu-unmark-list-of-grabbed #[(&optional dont-unmark-last-article) "\304 \205-\n\205- \203 @ A \203%\305 @\306\"\210 A\211\204 \205-C\211)\207" [art gnus-uu-has-been-grabbed gnus-uu-unmark-articles-not-decoded dont-unmark-last-article nil gnus-summary-tick-article t] 4]) (defalias 'gnus-uu-grab-articles #[(articles process-function &optional sloppy limit no-errors) "\306\307\310\307\211\211\211\211\211\211\211\211\211+,-./01\203/\311 >\204/2\2047\312 >\204/1\211A1@\313\3143\2368!\203\342 B1\204f0\306=\203c\3150\202f\3160\317!4\320\321\3224\323\230\203|\323\202\200\3244P$\210)\325!\210\2125q\210\3076\2127q\210850\"+\326!\210\327 >\204\2750\306=\204\2670\315=\203\366\330 >\203\366-\203\351,\203\351\331,!\203\3519\204\3519\310=\204\344\332\333\334,\"!\203\351\335,!\210\327 >\203\363 @,\310-\312 >\203h\307\307-,;\203,C\202,@,\203-\336\211A@B\337BD+B+\202:\203T:\211;<\204@;C;;\203S;\211A;@,!\210\202@)\307,<\203h+G\204\243,\203\243\331,!\203\2439\204\2439\310=\204\236\332\333\340,\"!\203\243\335,!\210\341 >\204\257\311 >\203\272=\203\272\342\310\"\210-\204\3372\204\337\312 >\204\320\343 >\203\337\311C\320\344\345\"\210\346\344!\210\202\342\3430+\203\356\347\323!\210\202!-\204\373\320\344\350\"\210\202\311 >\203 \320\344\351\"\210\202\330 >\204\312 >\204\320\344\352\"\210=\203! \203!\342 \211A@\310\"\210\202+. \207" [files article-series gnus-display-mime-function gnus-article-prepare-hook gnus-summary-display-article-function process-state first nil t error end vectorp 3 first-and-last last gnus-uu-part-number gnus-message 6 "Getting article %d%s..." "" ", " gnus-summary-display-article gnus-summary-remove-process-mark begin ok file-exists-p gnus-y-or-n-p format "Delete unsuccessfully decoded file %s" delete-file name article "Delete incomplete file %s? " wrong-type gnus-summary-tick-article middle 2 "No begin part at the beginning" sleep-for message "Wrong type file" "An error occurred during decoding" "End of articles reached before end of file" 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] 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 (#$ . 38810)]) #@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 (#$ . 39086)]) (defalias 'gnus-uu-part-number #[(article) "\305 \2368\211\205 \n\306H\307 \203)\310\311 \"\203)\312\313 \" \313\225\307O\202\f\204B\310\314 \"\203B\312\313 \" \313\225\307O\202-\f\206G\315+\207" [article gnus-newsgroup-data header subject part 3 1 nil string-match "[0-9]+/[0-9]+\\|[0-9]+[ ]+of[ ]+[0-9]+" match-string 0 "\\([0-9]+\\)[^0-9]+\\([0-9]+\\)" ""] 4]) (defalias 'gnus-uu-uudecode-sentinel #[(process event) "\301\302!!\207" [process delete-process get-process] 3]) (defalias 'gnus-uu-uustrip-article #[(process-buffer in-state) "\212q\210\306C\307\211\211\211\2113eb\2104\203+\212\310\311\307\312#\203*\313\314!\210\202)\3155\307\312#\204=\3156\307\312#\203?\316C3\317y\210`\3205!\204T\321C3\202\314\3227\323\324\314!!)8\325\3268P\312\211#\210\314y\210m\204\203\3206!\204\203\317y\210`\314y\210`|\210\202k9\203\232\3279!\330>\203\232\3319!\210\332\312!\210:;\333\216\334?\340\341<@#%9*\3429\343\"\210\344C3<8P\nB\315A\307\312#\203\336\3453B3\202\350db\210\3466\307\312#\210\314y\2109\203+\3279!\347>\203+B\203\350 `\"\210\351\352!\210\307\353\354\217\210\3453>\203*\355\356\357\217\210\3279!\360>\203+\3619\314\"\210\2029\2038\3279!\362>\204+\306C3\202+\3443>\203Y\nG\314U\203R\n@\202S\n3B\202[3.\207" [process-buffer start-char files buffer-read-only case-fold-search process-connection-type wrong-type nil search-forward " " t delete-backward-char 1 re-search-forward ok 0 looking-at middle ((47 . 44) (32 . 95) (42 . 95) (36 . 95)) nnheader-translate-file-chars match-string replace-match "begin 644 " 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))) #1=#:G88868 (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 nnheader-file-name-translation-alist 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\"." (#$ . 42044)) (defalias 'gnus-uu-unshar-article #[(process-buffer in-state) "\306C\307\212\nq\210eb\210\310 \307\311#\204\312C\202?\313\213\210\314 >\204?\315y\210`\316d\f\307\317 !\307\320\321\322\260&\210) *\207" [start-char state process-buffer gnus-uu-shar-begin-string shell-file-name gnus-uu-output-buffer-name ok nil re-search-forward t wrong-type ((byte-code "\212\303p!\210\304 \210\305\306\307!!\310\216rq\210\311 !c\210eb\210\312!\210\313\314!*\204*\315C*\303\207" [buffer gnus-uu-unshar-warning state switch-to-buffer delete-other-windows get-buffer-create generate-new-buffer-name "*Warning*" ((kill-buffer buffer)) substitute-command-keys display-buffer yes-or-no-p "This is a shell archive, unshar it? " error] 3)) error 0 call-process-region gnus-get-buffer-create "cd " " " " sh" shell-command-switch gnus-uu-work-dir gnus-shell-command-separator] 13]) (defalias 'gnus-uu-find-name-in-shar #[nil "`\303eb\210\304\n\303\305#\203\306\224\306\225{ b\210*\207" [res oldpoint gnus-uu-shar-name-marker nil re-search-forward t 1] 4]) (defalias 'gnus-uu-choose-action #[(file-name file-action-list &optional no-ignore) "\306!\307\310\211 \204S\f\203\311\f \"\204S\2033\311\312 \307#\206/\313\"\204S\f\310=\204S \204S\f@\fA\311\n@ \"\2033\nA@\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] 6]) (defalias 'gnus-uu-treat-archive #[(file-path) "\306\307\211\211\310\f\311 ?\205 \"\"\211\204 \312\313\f\"\210\314\315\f\"\210\f\316\211\224O\n!\235\203:\317\f\211\320P\306#\210\321\322\323\n\f\"#\212\324\"!q\210\325 \210)\326\327\330\323\n\f\"#\210\331#\307\324\"!\307$ &\316U\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% \nB A\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\307\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\fBD BA\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 \205p\fb\210\307\310 \311#\203.\fb\210m?\205p\312\313!\203(\314\315!\210\316y\210\202m?\205p\312\317Q!\204j\n\204N\320y\210`\306\210` Z\311\320y\210`\306\210` ZU\204j\321` ZZ\322\"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 "\\|" 0 make-string 32 gnus-uu-begin-string gnus-uu-end-string] 4]) (byte-code "\302\300!\204\303\300 B\303\207" [gnus-uu-tmp-alist current-load-list boundp nil] 2) (defalias 'gnus-uu-initialize #[(&optional scan) "\306 \204*\307\n \"\211\203*\310A!\203A\211\202#\311 \"\306\203*\312\202c\313\314 !!\315 !\204>\316\317 \"\210\202I\320 !\204I\316\321 \"\210\322 \323P!\324\f!\210\325\f\326\"\210\313\f!\n\fB B\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" make-temp-name "gnus" gnus-make-directory 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 mm-quote-arg 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 \203S\307!\203S\310\311\312\311$\312 \211A@\211\203N\313\n!\314\235\204\"\315\n!\203A\316\n!\210\202\"\304\317\320\n#\210\321\n!\210\202\"\322!\210*\304\305\323\"\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..." delete-file delete-directory ""] 5 (#$ . 48077)]) (byte-code "\300\301\302\"\210\300\301\303\"\207" [add-hook gnus-exit-group-hook gnus-uu-clean-up gnus-uu-delete-work-dir] 3) #@343 Function used for encoding binary files. There are three functions supplied with gnus-uu for encoding files: `gnus-uu-post-encode-uuencode', which does straight uuencoding; `gnus-uu-post-encode-mime', which encodes with base64 and adds MIME headers; and `gnus-uu-post-encode-mime-uuencode', which encodes with uuencode and adds MIME headers. (custom-declare-variable 'gnus-uu-post-encode-method ''gnus-uu-post-encode-uuencode '(#$ . 48811) :group 'gnus-extract-post :type '(radio (function-item gnus-uu-post-encode-uuencode) (function-item gnus-uu-post-encode-mime) (function-item gnus-uu-post-encode-mime-uuencode) (function :tag "Other"))) #@254 Non-nil means that gnus-uu will ask for a file to encode before you compose the article. If this variable is t, you can either include an encoded file with \[gnus-uu-post-insert-binary-in-article] or have one included for you when you post the article. (custom-declare-variable 'gnus-uu-post-include-before-composing 'nil '(#$ . 49460) :group 'gnus-extract-post :type 'boolean) #@119 Maximum length of an article. The encoded file will be split into how many articles it takes to post the entire file. (custom-declare-variable 'gnus-uu-post-length '990 '(#$ . 49845) :group 'gnus-extract-post :type 'integer) #@308 Non-nil means that gnus-uu will post the encoded file in a thread. This may not be smart, as no other decoder I have seen are able to follow threads when collecting uuencoded articles. (Well, I have seen one package that does that - gnus-uu, but somehow, I don't think that counts...) The default is nil. (custom-declare-variable 'gnus-uu-post-threaded 'nil '(#$ . 50077) :group 'gnus-extract-post :type 'boolean) #@285 Non-nil means that the description will be posted in a separate article. The first article will typically be numbered (0/x). If this variable is nil, the description the user enters will be included at the beginning of the first article, which will be numbered (1/x). Default is t. (custom-declare-variable 'gnus-uu-post-separate-description 't '(#$ . 50500) :group 'gnus-extract-post :type 'boolean) (byte-code "\305\300!\204\306\300 B\305\302!\204\307\302 B\305\303!\204 \307\303 B\305\304!\204,\307\304 B\307\207" [gnus-uu-post-binary-separator current-load-list gnus-uu-post-message-id gnus-uu-post-inserted-file-name gnus-uu-winconf-post-news boundp "--binary follows this line--" nil] 2) #@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 (#$ . 51216) 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 (#$ . 51806) 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 re-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 $&\312U\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\214 q\210eb\210\311\312\313\f!\314Q!\210\315y\210\316`}\210\317\320!\2045~\210\321c\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 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$&\312U\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 (#$ . 53464) nil]) (defalias 'gnus-uu-post-insert-binary #[nil "\306\307\211\211\310\311!\312\n!\204\313\314\n\"\210db\210\315\316\f\"c\210\317\320\n\"\203.\321\n\322\307OP\317\323\n\"\203?\n\324\224T\307O\202A\n\325\216\212\326 !\211q\210\327 \210 \n\")\203]\330 !\210\202a\313\331!\210),\207" [file-name uubuf file-path uuencode-buffer-name gnus-uu-post-binary-separator gnus-uu-post-encode-method "*uuencode buffer*" nil read-file-name "What file do you want to encode? " file-exists-p error "%s: No such file" format "\n%s\n" string-match "^~/" "$HOME" 1 "/[^/]*$" 0 ((kill-buffer uubuf)) gnus-get-buffer-create erase-buffer insert-buffer-substring "Encoding unsuccessful"] 4]) (defalias 'gnus-uu-post-encoded #[(file-name &optional threaded) "\306\307\310\311P\312\211\211\211\211\211\211\211\211\211\211\211\21123456789:;<=peb\210\313>\203E\314\315?!\316Q\202K\314\315!\316Q\312\317#\204U\320\321!\210\322y\210\323y\210`d\212\324\203\231\331y\210`d|\210eb\210\313\314\315!\316Q\312\317#\210\322y\210\323`{6eb\210>\203\327\313\332\312\317#\203\315\312\210\333\3347\"c\210\212\335 \210)\336\337!A\212\3235\323357V\204\363\324=!q\210\325 \2106c\210B\203A\203\340A\341\261\210:c\210\342\333;\343C57\343&GZ\323 \344\245\211V\203%\323\333;\345 \346\"C57\345 \344\246\322U\203@ S\202A \346\"&2eb\210\313\332\312\317#\203^\312\210\333\34757#c\210db\210\2129q\2103b\21057U\203xdb\210\202|@y\2105T7U\203\221\327`d\"\330W\203\221\350y\210`4)\326934#\2102\341\261\210435T5eb\210\313\314\315!\316Q\312\317#\210\322y\210\344y\210\313\314\315?!\316Q\312\317#\203\326\351\343!\210\323y\2102c\210\341c\210\312D\212\335 \210)\336\352!\353\336\337!QA)\202\336)=\211E\211F\205 F;\203 \354\202\n\355F!)\203\356E!\210)<\211E\211F\2050F;\203,\354\202-\355F!)\2039\356E!\210)>?\205L\357\312!\210\360\361!\205L\361 .\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" 0 1 gnus-get-buffer-create erase-buffer insert-buffer-substring count-lines 4 -1 "^Subject: " format " (0/%d)" message-send message-fetch-field "message-id" "References: " "\n" 62 "" 2 make-string 45 " (%d/%d)" -4 replace-match "references" " " get-buffer buffer-name kill-buffer set-buffer-modified-p fboundp 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] 18]) (provide 'gnus-uu)