Initial revision

author: Richard M. Stallman 1994-04-07 16:39:44 +0000
committer: Richard M. Stallman 1994-04-07 16:39:44 +0000
commit: f919f65ca97361b637aae6a20f7b4d803d6b29cb (patch)
tree: 6b8779f614724a202e4f4de42524d9f8410d5b75
parent: 206250958ead8f88ab2c59185e64bc175c451b64 (diff)
download: emacs-f919f65ca97361b637aae6a20f7b4d803d6b29cb.tar.gz
emacs-f919f65ca97361b637aae6a20f7b4d803d6b29cb.zip
1 files changed, 2120 insertions, 0 deletions
diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
new file mode 100644
index 00000000000..32664933314
--- /dev/null
+++ b/lisp/gnus-uu.el
@@ -0,0 +1,2120 @@
+;;; gnus-uu.el --- extract, view or save (uu)encoded files from gnus
+;;
+;; Author: Lars Ingebrigtsen <larsi@ifi.uio.no>
+;; Created: 2 Oct 1993
+;; Version: gnus-uu.el v 1.3.6 1994/04/07
+;; Keyword: gnus
+;;
+;; For gnus 4.*.
+;;
+;; All gnus-uu commands start with `C-c C-v'.
+;;
+;; Typing `C-c C-v C-v' (gnus-uu-decode-and-view) in the summary
+;; buffer will try to find all articles in the same series, uudecode
+;; them and view the resulting file(s).
+;;
+;; gnus-uu guesses what articles are in the series according to the
+;; following simple rule: The subjects must be identical, except for
+;; the last two numbers of the line.
+;;
+;; For example: If you choose a subject called "cat.gif (2/3)" gnus-uu
+;; will find all the articles that matches "^cat.gif
+;; ([0-9]+/[0-9]+).*$".  Subjects that are nonstandard, like "cat.gif
+;; (2/3) Part 6 of a series", will not be properly recognized by 'C-c
+;; C-v C-v', and you have to mark the articles manually with '#'.
+;;
+;; Typing `C-c C-v v' (gnus-uu-decode-and-save) will do the same as
+;; `C-c C-v C-v', except that it will not display the resulting file, but
+;; save it instead.
+;;
+;; Typing `C-c C-v s' (gnus-uu-shar-and-save) does the same as `C-c
+;; C-v v', and `C-c C-v C-s' (gnus-uu-shar-and-view) does the same as
+;; `C-c C-v C-v', except that they unshar files instead, i. e. run
+;; them through /bin/sh. Most shar files can be viewed and/or saved
+;; with the normal uudecode commands, which is much safer, as no
+;; foreign code is run.
+;;
+;; `#' (gnus-uu-mark-article) marks an article for later
+;; decoding/unsharing/saving/viewing. The files will be decoded in the
+;; sequence they were marked. To decode the files after you've marked
+;; the articles you are interested in, type the corresponding key
+;; strokes as the normal decoding commands, but put a `M-' in the last
+;; keystroke. For instance, to perform a standard uudecode and view,
+;; you would type `C-c C-v C-v'. To perform a marked uudecode and
+;; view, say `C-v C-v M-C-v'. All the other view and save commands are
+;; handled the same way; marked uudecode and save is then `C-c C-v
+;; M-v'.
+;;
+;; `M-#' (gnus-uu-unmark-article) will remove the mark from a
+;; previosly marked article.
+;;
+;; `C-c C-v C-u' (gnus-uu-unmark-all-articles) will remove the mark from
+;; all marked articles.
+;;
+;; `C-c C-v C-r' (gnus-uu-mark-by-regexp) will prompt for a regular
+;; expression and mark (forward) all articles matching that regular
+;; expression.
+;;
+;; There's an additional way to reach the decoding functions to make
+;; future expansions easier: `C-c C-v C-m'
+;; (gnus-uu-multi-decode-and-view) and the corresponding save, marked
+;; view and marked save keystrokes, `C-c C-v m', `C-c C-v M-C-m' and
+;; `C-c C-v M-m' respectively. You will be prompted for decoding
+;; method, like uudecode, shar, binhex or plain save. Note that
+;; methods like binhex and save doesn't have view modes; even if you
+;; issue a view command (`C-c C-v C-m' and "binhex"), gnus-uu will
+;; just save the resulting binhex file.
+;;
+;; `C-c C-v C-b' (gnus-uu-decode-and-show-in-buffer) will decode the
+;; current article and display the results in an emacs buffer. This
+;; might be useful if there's jsut some text in the current article
+;; that has been uuencoded by some perverse poster.
+;;
+;; `C-c C-v a' (gnus-uu-decode-and-save-all-articles) looks at all the
+;; articles in the current newsgroup and tries to uudecode everything
+;; it can find. The user will be prompted for a directory where the
+;; resulting files (if any) will be stored. `C-c C-v M-a' only looks
+;; at unread article. `C-c C-v w' does the same as `C-c C-v a', but
+;; also marks as read all articles it has peeked through, even if they
+;; weren't uuencoded articles. `C-c C-v M-w' is, as you might have
+;; guessed, similar to `C-c C-v M-a'.
+;;
+;; `C-c C-v C-l' (gnus-uu-edit-begin-line) lets you edit the begin
+;; line of the current buffer. Useful to change an incorrect suffix or
+;; an incorrect begin line.
+;;
+;;
+;; When using the view commands, `C-c C-v C-v' for instance, gnus-uu
+;; will (normally, see below) try to view the file according to the
+;; rules given in gnus-uu-default-view-rules and
+;; gnus-uu-user-view-rules. If it recognises the file, it will display
+;; it immediately. If the file is some sort of archive, gnus-uu will
+;; attempt to unpack the archive and see if any of the files in the
+;; archive can be viewed. For instance, if you have a gzipped tar file
+;; "pics.tar.gz" containing the files "pic1.jpg" and "pic2.gif",
+;; gnus-uu will uncompress and detar the main file, and then view the
+;; two pictures. This unpacking process is recursive, so if the
+;; archive contains archives of archives, it'll all be unpacked.
+;;
+;; If the view command doesn't recognise the file type, or can't view
+;; it because you don't have the viewer, or can't view *any* of the
+;; files in the archive, the user will be asked if she wishes to have
+;; the file saved somewhere. Note that if the decoded file is an
+;; archive, and gnus-uu manages to view some of the files in the
+;; archive, it won't tell the user that there were some files that
+;; were unviewable. See "Interactive view" for a different approach.
+;;
+;;
+;; Note that gnus-uu adds a function to `gnus-exit-group-hook' to
+;; clear the list of marked articles and check for any generated files
+;; that might have escaped deletion if the user typed `C-g'.
+;;
+;;
+;; `C-c C-v C-a' (gnus-uu-toggle-asynchronous) toggles the
+;; gnus-uu-asynchronous variable. See below for explanation.
+;;
+;; `C-c C-v C-q' (gnus-uu-toggle-query) toggles the
+;; gnus-uu-ask-before-view variable. See below for explanation.
+;;
+;; `C-c C-v C-p' (gnus-uu-toggle-always-ask) toggles the
+;; gnus-uu-view-and-save variable. See below for explanation.
+;;
+;; `C-c C-v C-k' (gnus-uu-toggle-kill-carriage-return) toggles the
+;; gnus-uu-kill-carriage-return variable. See below for explanation.
+;;
+;; `C-c C-v C-i' (gnus-uu-toggle-interactive-view) toggles interactive
+;; mode. If it is turned on, gnus-uu won't view files immediately but
+;; give you a buffer with the default commands and files and lets you
+;; edit the commands and execute them at leisure.
+;;
+;; `C-c C-v C-t' (gnus-uu-toggle-any-variable) is an interface to the
+;; five toggle commands listed above.
+;;
+;; gnus-uu-toggle-correct-stripped-articles toggles whether to check
+;; and correct uuencoded articles that may have had trailing spaces
+;; stripped by mailers.
+;;
+;;
+;; Customization
+;;
+;; To load this file when starting gnus, put sumething like the
+;; following in your .emacs file:
+;;
+;;   (setq gnus-group-mode-hook
+;;      '(lambda () (load "gnus-uu")))
+;;
+;; To make gnus-uu use, for instance, "xli" to view JPEGs and GIFs,
+;; put this in your .emacs file:
+;;
+;;   (setq gnus-uu-user-view-rules 
+;;       (list
+;;        '("jpg$\\|gif$" "xli") 
+;;        ))
+;;
+;; This variable is a list where each list item is a list containing
+;; two strings. The first string is a regular expression. If the file
+;; name is matched by this expression, the command given in the
+;; second string is executed on this file. If the command contains
+;; "%s", the file will be inserted there in the command string. Eg.
+;; "giftoppm %s | xv -" will result in the file name being inserted at
+;; the "%s".
+;;
+;; If you don't want to display certain file types, like if you
+;; haven't got sound capabilities, you could put something like
+;;
+;;   (setq gnus-uu-user-view-rules 
+;;       (list
+;;        '("au$\\|voc$\\|wav$" nil) 
+;;        ))
+;;
+;; in your .emacs file.
+;;
+;; There's a similar variable called 'gnus-uu-user-archive-rules'
+;; which gives a list of unarcers to use when looking inside archives
+;; for files to display.
+;;
+;; If you don't want gnus-uu to look inside archives for files to
+;; display, say
+;;
+;;   (setq gnus-uu-do-not-unpack-archives t)
+;;
+;;
+;; If you want gnus-uu to ask you if you want to save a file after
+;; viewing, say
+;;
+;;   (setq gnus-uu-view-and-save t)
+;;
+;;
+;; If you don't want to wait for the viewing command to finish before
+;; returning to emacs, say
+;;
+;;   (setq gnus-uu-asynchronous t)
+;;
+;;
+;; This can be useful if you're viewing long .mod files, for instance,
+;; which often takes several minutes. Note, however, that since
+;; gnus-uu doesn't ask, and if you are viewing an archive with lots of
+;; viewable files, you'll get them all up more or less at once, which
+;; can be confusing, to say the least. To get gnus-uu to ask you
+;; before viewing a file, say
+;;
+;;   (setq gnus-uu-ask-before-view t)
+;;
+;; You can set this variable even if you're not using asynchronous
+;; viewing, of course.
+;;
+;; If the articles has been posted by some numbscull with a PC (isn't
+;; that a bit redundant, though?) and there's lots of carriage returns
+;; everywhere, say
+;;
+;;   (setq gnus-uu-kill-carriage-return t)
+;;
+;; If you want gnus-uu to ignore the default file rules when viewing,
+;; for instance if there's several file types that you can't view, set
+;; `gnus-uu-ignore-default-view-rules' to `t'. There's a similar
+;; variable to disable the default unarchive rule list,
+;; `gnus-uu-ignore-default-archive-rules'.
+;;
+;; If you want a more interactive approach to file viewing, say
+;;
+;;   (setq gnus-uu-use-interactive-view t)
+;;
+;; If this variable is set, whenever you type `C-c C-v C-v' (or any of
+;; the other view commands), gnus-uu will present you with a buffer
+;; with the default actions and file names after decoding. You can
+;; edit the command lines and execute them in a convenient fashion.
+;; The output from the commands will be displayed in a small window at
+;; the bottom of the emacs window. End interactive mode by typing `C-c
+;; C-c' in the view window.
+;;
+;; If you want gnus-uu to unmark articles that you have asked to
+;; decode, but can't be decoded (if, for instance, the articles aren't
+;; uuencoded files or the posting is incomplete), say
+;;
+;;   (setq gnus-uu-unmark-articles-not-decoded t)
+;;
+;;
+;; History
+;;
+;; v1.0: First version released Oct 2 1992.
+;;
+;; v1.1: Changed `C-c C-r' to `C-c C-e' and `C-c C-p' to `C-c C-k'.
+;; Changed (setq gnus-exit-group-hook) to (add-hook).  Removed
+;; checking for "Re:" for finding parts.
+;;
+;; v2.2: Fixed handling of currupted archives. Changed uudecoding to
+;; an asynchronous process to avoid loading tons of data into emacs
+;; buffers. No longer reads articles emacs already have aboard.  Fixed
+;; a firmer support for shar files. Made regexp searches for files
+;; more convenient. Added `C-c C-l' for editing uucode begin
+;; lines. Added multi-system decoder entry point. Added interactive
+;; view mode. Added function for decoding and saving all uuencoded
+;; articles in the current newsgroup.
+;;
+;; v2.3: After suggestions I have changed all the gnus-uu key bindings
+;; to avoid hogging all the user keys (C-c LETTER). Also added
+;; (provide) and fixed some saving stuff. First posted version to
+;; gnu.emacs.sources.
+;;
+;; v2.4: Fixed some more in the save-all category. Automatic fixing of
+;; uucode "begin" lines: names on the form of "dir/file" are
+;; translated into "dir-file". Added a function for fixing stripped
+;; uucode articles. Added binhex save.
+;;
+;;
+;; Keymap overview:
+;; 
+;; All commands start with `C-c C-v'. The difference is in the third
+;; keystroke.  All view commands are `C-LETTER'. All save commands are
+;; just `LETTER'. All marked commands are the same as the unmarked
+;; commands, except that they have `M-' before in the last keystroke.
+;;
+;; `C-c C-v C-v'      gnus-uu-decode-and-view
+;; `C-c C-v v'        gnus-uu-decode-and-save
+;; `C-c C-v C-s'      gnus-uu-shar-and-view
+;; `C-c C-v s'        gnus-uu-shar-and-save
+;; `C-c C-v C-m'      gnus-uu-multi-decode-and-view
+;; `C-c C-v m'        gnus-uu-multi-decode-and-save
+;;
+;; `C-c C-v C-b'      gnus-uu-decode-and-show-in-buffer
+;; `C-c C-v C-l'      gnus-uu-edit-begin-line
+;; `C-c C-v M-a'      gnus-uu-decode-and-save-all-unread-articles
+;; `C-c C-v a'        gnus-uu-decode-and-save-all-articles
+;; `C-c C-v M-w'      gnus-uu-decode-and-save-all-unread-articles-and-mark
+;; `C-c C-v w'        gnus-uu-decode-and-save-all-articles-and-mark
+;;
+;; `#'                gnus-uu-mark-article
+;; `M-#'              gnus-uu-unmark-article
+;; `C-c C-v C-u'      gnus-uu-unmark-all-articles
+;; `C-c C-v C-r'      gnus-uu-mark-by-regexp
+;; `C-c C-v M-C-v'    gnus-uu-marked-decode-and-view
+;; `C-c C-v M-v'      gnus-uu-marked-decode-and-save
+;; `C-c C-v M-C-s'    gnus-uu-marked-shar-and-view
+;; `C-c C-v M-s'      gnus-uu-marked-shar-and-save
+;; `C-c C-v M-C-m'    gnus-uu-marked-multi-decode-and-view
+;; `C-c C-v M-m'      gnus-uu-marked-multi-decode-and-save
+;;
+;; `C-c C-v C-a'      gnus-uu-toggle-asynchronous
+;; `C-c C-v C-q'      gnus-uu-toggle-query
+;; `C-c C-v C-p'      gnus-uu-toggle-always-ask
+;; `C-c C-v C-k'      gnus-uu-toggle-kill-carriage-return
+;; `C-c C-v C-i'      gnus-uu-toggle-interactive-view
+;; `C-c C-v C-t'      gnus-uu-toggle-any-variable
+(require 'gnus)
+;; Binding of keys to the gnus-uu functions.
+(defvar gnus-uu-ctl-map nil)
+(define-prefix-command 'gnus-uu-ctl-map)
+(define-key gnus-summary-mode-map "\C-c\C-v" gnus-uu-ctl-map)
+(define-key gnus-uu-ctl-map "\C-v" 'gnus-uu-decode-and-view)
+(define-key gnus-uu-ctl-map "v" 'gnus-uu-decode-and-save)
+(define-key gnus-uu-ctl-map "\C-s" 'gnus-uu-shar-and-view)
+(define-key gnus-uu-ctl-map "s" 'gnus-uu-shar-and-save)
+(define-key gnus-uu-ctl-map "\C-m" 'gnus-uu-multi-decode-and-view)
+(define-key gnus-uu-ctl-map "m" 'gnus-uu-multi-decode-and-save)
+(define-key gnus-uu-ctl-map "\C-b" 'gnus-uu-decode-and-show-in-buffer)
+(define-key gnus-summary-mode-map "#" 'gnus-uu-mark-article)
+(define-key gnus-summary-mode-map "\M-#" 'gnus-uu-unmark-article)
+(define-key gnus-uu-ctl-map "\C-u" 'gnus-uu-unmark-all-articles)
+(define-key gnus-uu-ctl-map "\C-r" 'gnus-uu-mark-by-regexp)
+(define-key gnus-uu-ctl-map "\M-\C-v" 'gnus-uu-marked-decode-and-view)
+(define-key gnus-uu-ctl-map "\M-v" 'gnus-uu-marked-decode-and-save)
+(define-key gnus-uu-ctl-map "\M-\C-s" 'gnus-uu-marked-shar-and-view)
+(define-key gnus-uu-ctl-map "\M-s" 'gnus-uu-marked-shar-and-save)
+(define-key gnus-uu-ctl-map "\M-\C-m" 'gnus-uu-marked-multi-decode-and-view)
+(define-key gnus-uu-ctl-map "\M-m" 'gnus-uu-marked-multi-decode-and-save)
+(define-key gnus-uu-ctl-map "\C-a" 'gnus-uu-toggle-asynchronous)
+(define-key gnus-uu-ctl-map "\C-q" 'gnus-uu-toggle-query)
+(define-key gnus-uu-ctl-map "\C-p" 'gnus-uu-toggle-always-ask)
+(define-key gnus-uu-ctl-map "\C-k" 'gnus-uu-toggle-kill-carriage-return)
+(define-key gnus-uu-ctl-map "\C-i" 'gnus-uu-toggle-interactive-view)
+(define-key gnus-uu-ctl-map "\C-t" 'gnus-uu-toggle-any-variable)
+(define-key gnus-uu-ctl-map "\C-l" 'gnus-uu-edit-begin-line)
+(define-key gnus-uu-ctl-map "\M-a" 'gnus-uu-decode-and-save-all-unread-articles)
+(define-key gnus-uu-ctl-map "a" 'gnus-uu-decode-and-save-all-articles)
+(define-key gnus-uu-ctl-map "\M-w" 'gnus-uu-decode-and-save-all-unread-articles-and-mark)
+(define-key gnus-uu-ctl-map "w" 'gnus-uu-decode-and-save-all-articles-and-mark)
+;(load "rnewspost")
+;(define-key news-reply-mode-map "\C-c\C-v" 'gnus-uu-uuencode-and-post)
+;; Default viewing action rules
+(defconst gnus-uu-default-view-rules 
+  (list 
+   '("\\.\\(jpe?g\\|gif\\|tiff?\\|p[pgb]m\\|xwd\\|xbm\\|pcx\\)$" "xv")
+   '("\\.tga$" "tgatoppm %s | xv -")
+   '("\\.te?xt$\\|\\.doc$\\|read.*me" "xterm -e less")
+   '("\\.fli$" "xflick")
+   '("\\.\\(wav\\|aiff\\|hcom\\|u[blw]\\|s[bfw]\\|voc\\|smp\\)$" 
+     "sox -v .5 %s -t .au -u - > /dev/audio")
+   '("\\.au$" "cat %s > /dev/audio")
+   '("\\.mod$" "str32")
+   '("\\.ps$" "ghostview")
+   '("\\.dvi$" "xdvi")
+   '("\\.1$" "xterm -e man -l")
+   '("\\.html$" "xmosaic")
+   '("\\.mpe?g$" "mpeg_play")
+   '("\\.\\(tar\\|arj\\|zip\\|zoo\\|arc\\|gz\\|Z\\|lzh\\|ar\\)$" 
+     "gnus-uu-archive"))
+  "This constant is a list that gives the default actions to be taken
+when the user asks to view a file. To change the behaviour, you can
+either edit this constant or set 'gnus-uu-user-view-rules' to
+something useful. To add a default \"end\" rule, edit the
+'gnus-uu-user-view-rules-end' variable.
+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 (list '(\"jpg$\\\\|gif$\" \"xli\")))
+Both these variables are lists of lists of strings, where the first
+string is a regular expression. If the file name matches this regular
+expression, the command in the second string is fed the file.
+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 before
+executing.  ")
+(defvar gnus-uu-user-view-rules nil 
+  "User variable. See explanation of the 'gnus-uu-default-view-rules' for 
+details.")
+(defvar gnus-uu-user-view-rules-end nil
+  "The user may use this variable to provide default viewing rules.")
+(defvar gnus-uu-user-interactive-view-rules nil
+  "If this variable is set and interactive mode is to be used, this
+variable will be used instead of gnus-uu-user-view-rules.")
+(defvar gnus-uu-user-interactive-view-rules-end nil
+  "If this variable is set and interactive mode is to be used, this
+variable will be used instead of gnus-uu-user-view-rules-end.")
+(defconst gnus-uu-default-interactive-view-rules-begin
+  (list
+   '("\\.te?xt$\\|\\.doc$\\|read.*me\\|\\.c?$\\|\\.h$\\|\\.bat$\\|\\.asm$\\|makefile" "cat %s | sed s/
+//g")
+   '("\\.pas$" "cat %s | sed s/
+//g")
+   ))
+;; Default unpacking commands
+(defconst gnus-uu-default-archive-rules 
+  (list '("\\.tar$" "tar xf")
+        '("\\.zip$" "unzip")
+        '("\\.ar$" "ar x")
+        '("\\.arj$" "unarj x")
+        '("\\.zoo$" "zoo -e")
+        '("\\.lzh$" "lha x")
+        '("\\.Z$" "uncompress")
+        '("\\.gz$" "gunzip")
+        '("\\.arc$" "arc -x"))
+  "*")
+(defvar gnus-uu-user-archive-rules nil)
+;; Various variables users may set 
+(defvar gnus-uu-tmp-dir "/tmp/" 
+  "Variable saying where gnus-uu is to do its work. Default is \"/tmp/\".")
+(defvar gnus-uu-do-not-unpack-archives nil 
+  "Set this variable if you don't want gnus-uu to look inside
+archives for files to display. Default is `nil'.")
+(defvar gnus-uu-do-not-unpack-archives nil 
+  "Set this variable if you don't want gnus-uu to look inside
+archives for files to display. Default is `nil'.")
+(defvar gnus-uu-view-and-save nil 
+  "Set this variable if you want to be asked if you want to save the
+file after viewing. If this variable is nil, which is the default, 
+gnus-uu won't offer to save a file if viewing is successful. Default
+is `nil'.")
+(defvar gnus-uu-asynchronous nil
+  "Set this variable to `t' if you don't want gnus-uu to wait until 
+the viewing command has ended before returning control to emacs.
+Default is `nil'.")
+(defvar gnus-uu-ask-before-view nil
+  "Set this variable to `t' if you want gnus-uu to ask you before 
+viewing every file. Useful when `gnus-uu-asynchronous' is set. Default
+is `nil'.")
+(defvar gnus-uu-ignore-default-view-rules nil
+  "Set this variable if you want gnus-uu to ignore the default viewing
+rules and just use the rules given in gnus-uu-user-view-rules. Default
+is `nil'.")
+(defvar gnus-uu-ignore-default-archive-rules nil
+  "Set this variable if you want gnus-uu to ignore the default archive
+unpacking commands and just use the rules given in 
+gnus-uu-user-archive-rules. Default is `nil'.")
+(defvar gnus-uu-kill-carriage-return t
+  "Set this variable if you want to remove all carriage returns from
+the mail articles. Default is `t'.")
+(defvar gnus-uu-unmark-articles-not-decoded nil
+  "If this variable is set, artciles that are unsuccessfully decoded
+are marked as unread. Default is `nil'.")
+(defvar gnus-uu-output-window-height 20 
+  "This variable says how hight the output buffer window is to be when
+using interactive view mode. Change it at your convenience. Default is 20.")
+(defvar gnus-uu-correct-stripped-uucode nil
+  "If this variable is set, gnus-uu will try to correct uuencoded files that
+have had trailing spaces stripped by nosy mail saoftware. Default is `nil'.")
+(defvar gnus-uu-use-interactive-view nil
+  "If this variable is set, gnus-uu will create a special buffer where
+the user may choose interactively which files to view and how. Default
+is `nil'.")
+;; Internal variables
+(defconst gnus-uu-begin-string "^begin[ \t]+[0-7][0-7][0-7][ \t]+\\(.*\\)$" 
+  "*")
+(defconst gnus-uu-end-string "^end[ \t]*$")
+(defconst gnus-uu-body-line
+"^M.............................................................?$" "*")
+(defconst gnus-uu-shar-begin-string "^#! */bin/sh" "*")
+(defvar gnus-uu-shar-file-name nil "*")
+(defconst gnus-uu-shar-name-marker "begin [0-7][0-7][0-7][ \t]+\\(\\(\\w\\|\\.\\)*\\b\\)" "*")
+(defvar gnus-uu-shar-directory nil)
+(defvar gnus-uu-file-name nil)
+(defconst gnus-uu-uudecode-process nil)
+(defvar gnus-uu-interactive-file-list nil)
+(defvar gnus-uu-marked-article-list nil)
+(defvar gnus-uu-generated-file-list nil)
+(defconst gnus-uu-interactive-buffer-name "*gnus-uu interactive*")
+(defconst gnus-uu-output-buffer-name "*Gnus UU Output*")
+(defconst gnus-uu-result-buffer "*Gnus UU Result Buffer*")
+;; Interactive functions
+;; UUdecode and view
+(defun gnus-uu-decode-and-view ()
+  "UUdecodes and 'views' (if possible) the resulting file.
+'Viewing' can be any action at all, as defined in the 
+'gnus-uu-file-action-list' variable. Running 'xv' on gifs and
+'play' on au files are popular actions. If the file can't be viewed,
+the user is asked if she would like to save the file instead."
+  (interactive)
+  (gnus-uu-decode-and-view-or-save t nil))
+(defun gnus-uu-decode-and-save ()
+  "uudecodes and saves the resulting file."
+  (interactive)
+  (gnus-uu-decode-and-view-or-save nil nil))
+(defun gnus-uu-marked-decode-and-view ()
+  "The marked equivalent to gnus-uu-decode-and-view."
+  (interactive)
+  (gnus-uu-decode-and-view-or-save t t))
+(defun gnus-uu-marked-decode-and-save ()
+  "The marked equivalent to gnus-uu-decode-and-save."
+  (interactive)
+  (gnus-uu-decode-and-view-or-save nil t))
+      
+;; Unshar and view
+(defun gnus-uu-shar-and-view ()
+  "Does the same as gnus-uu-decode-and-view for shar files."
+  (interactive)
+  (gnus-uu-unshar-and-view-or-save t nil))
+(defun gnus-uu-shar-and-save ()
+  "Does the same as gnus-uu-decode-and-save for shar files."
+  (interactive)
+  (gnus-uu-unshar-and-view-or-save nil nil))
+(defun gnus-uu-marked-shar-and-view ()
+  "The marked equivalent to gnus-uu-shar-and-view."
+  (interactive)
+  (gnus-uu-unshar-and-view-or-save t t))
+(defun gnus-uu-marked-shar-and-save ()
+  "The marked equivalent to gnus-uu-shar-and-save."
+  (interactive)
+  (gnus-uu-unshar-and-view-or-save nil t))
+;; Decode and show in buffer
+(defun gnus-uu-decode-and-show-in-buffer ()
+  "uudecodes the current article and displays the result in a buffer."
+  (interactive)
+  (let ((uu-buffer (get-buffer-create gnus-uu-output-buffer-name))
+        list-of-articles file-name)
+    (save-excursion
+      (and 
+       (setq list-of-articles (list gnus-current-article))
+       (gnus-uu-grab-articles list-of-articles 'gnus-uu-uustrip-article-as)
+       (setq file-name (gnus-uu-decode gnus-uu-tmp-dir))
+       (progn
+         (save-excursion
+           (set-buffer uu-buffer)
+           (erase-buffer)
+           (insert-file-contents file-name))
+         (set-window-buffer (get-buffer-window gnus-article-buffer) 
+                            uu-buffer)
+         (message (format "Showing file %s in buffer" file-name))
+         (delete-file file-name))))))
+;; Toggle commands      
+(defun gnus-uu-toggle-asynchronous ()
+  "This function toggles asynchronous viewing."
+  (interactive)
+  (if (setq gnus-uu-asynchronous (not gnus-uu-asynchronous))
+      (message "gnus-uu will now view files asynchronously")
+    (message "gnus-uu will now view files synchronously")))
+(defun gnus-uu-toggle-query ()
+  "This function toggles whether to ask before viewing or not."
+  (interactive)
+  (if (setq gnus-uu-ask-before-view (not gnus-uu-ask-before-view))
+      (message "gnus-uu will now ask before viewing")
+    (message "gnus-uu will now view without asking first")))
+(defun gnus-uu-toggle-always-ask ()
+  "This function toggles whether to ask saving a file even after successful
+viewing."
+  (interactive)
+  (if (setq gnus-uu-view-and-save (not gnus-uu-view-and-save))
+      (message "gnus-uu will now ask to save the file after viewing")
+    (message "gnus-uu will now not ask to save after successful viewing")))
+(defun gnus-uu-toggle-interactive-view ()
+  "This function toggles whether to use interactive view."
+  (interactive)
+  (if (setq gnus-uu-use-interactive-view (not gnus-uu-use-interactive-view))
+      (message "gnus-uu will now use interactive view")
+    (message "gnus-uu will now use non-interactive view")))
+(defun gnus-uu-toggle-unmark-undecoded ()
+  "This function toggles whether to unmark articles not decoded."
+  (interactive)
+  (if (setq gnus-uu-unmark-articles-not-decoded 
+            (not gnus-uu-unmark-articles-not-decoded))
+      (message "gnus-uu will now unmark articles not decoded")
+    (message "gnus-uu will now not unmark articles not decoded")))
+(defun gnus-uu-toggle-kill-carriage-return ()
+  "This function toggles the stripping of carriage returns from the articles."
+  (interactive)
+  (if (setq gnus-uu-kill-carriage-return (not gnus-uu-kill-carriage-return))
+      (message "gnus-uu will now strip carriage returns")
+    (message "gnus-uu won't strip carriage returns")))
+(defun gnus-uu-toggle-correct-stripped-uucode ()
+  "This function toggles whether to correct stripped uucode."
+  (interactive)
+  (if (setq gnus-uu-correct-stripped-uucode 
+            (not gnus-uu-correct-stripped-uucode))
+      (message "gnus-uu will now correct stripped uucode")
+    (message "gnus-uu won't check and correct stripped uucode")))
+(defun gnus-uu-toggle-any-variable ()
+  "This function ask what variable the user wants to toggle."
+  (interactive)
+  (let (rep)
+    (message "(a)sync, (q)uery, (p)ask, (k)ill CR, (i)nteractive, (u)nmark, (c)orrect")
+    (setq rep (read-char))
+    (if (= rep ?a)
+        (gnus-uu-toggle-asynchronous))
+    (if (= rep ?q)
+        (gnus-uu-toggle-query))
+    (if (= rep ?p)
+        (gnus-uu-toggle-always-ask))
+    (if (= rep ?k)
+        (gnus-uu-toggle-kill-carriage-return))
+    (if (= rep ?u)
+        (gnus-uu-toggle-unmark-undecoded))
+    (if (= rep ?c)
+        (gnus-uu-toggle-correct-stripped-uucode))
+    (if (= rep ?i)
+        (gnus-uu-toggle-interactive-view))))
+;; Edit line
+(defun gnus-uu-edit-begin-line ()
+  "Edit the begin line of the current article."
+  (interactive)
+  (let ((buffer-read-only nil)
+        begin b)
+    (save-excursion
+      (set-buffer gnus-article-buffer)
+      (goto-line 1)
+      (if (not (re-search-forward "begin " nil t))
+          (progn (message "No begin line in the current article") (sit-for 2))
+        (beginning-of-line)
+        (setq b (point))
+        (end-of-line)
+        (setq begin (buffer-substring b (point)))
+        (setq begin (read-string "" begin))
+        (setq buffer-read-only nil)
+        (delete-region b (point))
+        (insert-string begin)))))
+;; Multi functions
+(defun gnus-uu-multi-decode-and-view ()
+  "This function lets the user decide what method to use for decoding.
+Other than that, it's equivalent to the other decode-and-view functions."
+  (interactive)
+  (gnus-uu-multi-decode-and-view-or-save t nil))
+(defun gnus-uu-multi-decode-and-save ()
+  "This function lets the user decide what method to use for decoding.
+Other than that, it's equivalent to the other decode-and-save functions."
+  (interactive)
+  (gnus-uu-multi-decode-and-view-or-save nil nil))
+(defun gnus-uu-marked-multi-decode-and-view ()
+  "This function lets the user decide what method to use for decoding.
+Other than that, it's equivalent to the other marked decode-and-view 
+functions."
+  (interactive)
+  (gnus-uu-multi-decode-and-view-or-save t t))
+(defun gnus-uu-marked-multi-decode-and-save ()
+  "This function lets the user decide what method to use for decoding.
+Other than that, it's equivalent to the other marked decode-and-save 
+functions."
+  (interactive)
+  (gnus-uu-multi-decode-and-view-or-save t t))
+(defun gnus-uu-multi-decode-and-view-or-save (view marked)
+  (let (decode-type)
+    (message "(u)udecode, (s)har, s(a)ve, (b)inhex: ")
+    (setq decode-type (read-char))
+    (if (= decode-type ?
+) (setq decode-type ?u))
+    (if (= decode-type ?u)
+        (gnus-uu-decode-and-view-or-save view marked)
+      (if (= decode-type ?s)
+          (gnus-uu-unshar-and-view-or-save view marked)
+        (if (= decode-type ?b)
+            (gnus-uu-binhex-and-save view marked)
+          (if (= decode-type ?a)
+              (gnus-uu-save-articles view marked)
+            (message (format "Unknown decode method '%c'." decode-type))
+            (sit-for 2)))))))
+;; uuencode and post
+(defun gnus-uu-news-inews ()
+  "Send a news message using inews."
+  (interactive)
+  (let* (newsgroups subject
+                    (case-fold-search nil))
+    (save-excursion
+      (save-restriction
+        (goto-char (point-min))
+        (search-forward (concat "\n" mail-header-separator "\n"))
+        (narrow-to-region (point-min) (point))
+        (setq newsgroups (mail-fetch-field "newsgroups")
+              subject (mail-fetch-field "subject")))
+      (widen)
+      (goto-char (point-min))
+;      (run-hooks 'news-inews-hook)
+      (goto-char (point-min))
+      (search-forward (concat "\n" mail-header-separator "\n"))
+      (replace-match "\n\n")
+      (goto-char (point-max))
+      ;; require a newline at the end for inews to append .signature to
+      (or (= (preceding-char) ?\n)
+          (insert ?\n))
+      (message "Posting to USENET...")
+      (call-process-region (point-min) (point-max) 
+                           news-inews-program nil 0 nil
+                           "-h")        ; take all header lines!
+                           ;@@ setting of subject and newsgroups still needed?
+                           ;"-t" subject
+                           ;"-n" newsgroups
+      (message "Posting to USENET... done")
+      (goto-char (point-min))           ;restore internal header separator
+      (search-forward "\n\n")
+      (replace-match (concat "\n" mail-header-separator "\n")))))
+(autoload 'news-inews "rnewspost")
+(defun gnus-uu-post-buffer (&optional first)
+  (append-to-file 1 (point-max) "/tmp/gnusuutull")
+;  (if first
+;      (news-inews)
+;    (gnus-uu-news-inews))
+  (message "posted"))
+(defconst gnus-uu-uuencode-post-length 20)
+(defun gnus-uu-uuencode-and-post ()
+  (interactive)
+  (let (file uubuf sendbuf short-file length parts header i end beg
+             beg-line minlen)
+    (setq file (read-file-name 
+                "What file do you want to uuencode and post? " "~/Unrd.jpg"))
+    (if (not (file-exists-p file))
+        (message "%s: No such file" file)
+      (save-excursion
+        (setq uubuf (get-buffer-create "*uuencode buffer*"))
+        (setq sendbuf (get-buffer-create "*uuencode send buffer*"))
+        (set-buffer uubuf)
+        (erase-buffer)
+        (if (string-match "^~/" file)
+            (setq file (concat "$HOME" (substring file 1))))
+        (if (string-match "/[^/]*$" file)
+            (setq short-file (substring file (1+ (match-beginning 0))))
+          (setq short-file file))
+        (call-process "sh" nil uubuf nil "-c" 
+                      (format "uuencode %s %s" file short-file))
+        (goto-char 1)
+        (forward-line 1)
+        (while (re-search-forward " " nil t)
+          (replace-match "`"))
+        (setq length (count-lines 1 (point-max)))
+        (setq parts (/ length gnus-uu-uuencode-post-length))
+        (if (not (< (% length gnus-uu-uuencode-post-length) 4))
+            (setq parts (1+ parts)))
+        (message "Det er %d parts" parts))
+      (goto-char 1)
+      (search-forward mail-header-separator nil t)
+      (beginning-of-line)
+      (forward-line 1)
+      (setq header (buffer-substring 1 (point)))
+      (goto-char 1)
+      (if (re-search-forward "^Subject: " nil t)
+          (progn
+            (end-of-line)
+            (insert (format " (0/%d)" parts))))
+      (gnus-uu-post-buffer t)
+      (save-excursion
+        (set-buffer sendbuf)
+        (setq i 1)
+        (setq beg 1)
+        (while (not (> i parts))
+          (set-buffer sendbuf)
+          (erase-buffer)
+          (insert header)
+          (insert "\n")
+          (setq minlen (/ (- 62 (length (format " (%d/%d) " i parts))) 2))
+          (setq beg-line (format "[ cut here %s (%d/%d) %s gnus-uu ]\n" 
+                          (make-string (- minlen 11) ?-) i parts
+                          (make-string (- minlen 10) ?-)))
+          (insert beg-line)
+          (goto-char 1)
+          (if (re-search-forward "^Subject: " nil t)
+              (progn
+                (end-of-line)
+                (insert (format " (%d/%d)" i parts))))
+          (goto-char (point-max))
+          (save-excursion
+            (set-buffer uubuf)
+            (goto-char beg)
+            (if (= i parts)
+                (goto-char (point-max))
+              (forward-line gnus-uu-uuencode-post-length))
+            (setq end (point)))
+          (insert-buffer-substring uubuf beg end)
+          (insert beg-line)
+          (setq beg end)
+          (setq i (1+ i))
+          (gnus-uu-post-buffer)))
+      )))
+;; Decode and all files
+(defconst gnus-uu-rest-of-articles nil)
+(defconst gnus-uu-do-sloppy-uudecode nil)
+(defvar gnus-uu-current-save-dir nil "*")
+(defun gnus-uu-decode-and-save-all-unread-articles ()
+  "This function reads all unread articles in the current group and
+sees whether it can uudecode the articles. The user will be prompted
+for an directory to put the resulting (if any) files."
+  (interactive)
+  (gnus-uu-decode-and-save-articles t t))
+(defun gnus-uu-decode-and-save-all-articles ()
+  "Does the same as gnus-uu-decode-and-save-all-unread-articles, except
+that it grabs all articles visible, unread or not."
+  (interactive)
+  (gnus-uu-decode-and-save-articles nil t))
+(defun gnus-uu-decode-and-save-all-unread-articles-and-mark ()
+  "Does the same as gnus-uu-decode-and-save-all-unread-articles, except that 
+it marks everything as read, even if it couldn't decode the articles."
+  (interactive)
+  (gnus-uu-decode-and-save-articles t nil))
+(defun gnus-uu-decode-and-save-all-articles-and-mark ()
+  "Does the same as gnus-uu-decode-and-save-all-articles, except that 
+it marks everything as read, even if it couldn't decode the articles."
+  (interactive)
+  (gnus-uu-decode-and-save-articles nil nil))
+(defun gnus-uu-decode-and-save-articles (&optional unread unmark)
+  (let ((gnus-uu-unmark-articles-not-decoded unmark)
+        (filest "")
+        where dir did unmark saved-list)
+    (setq gnus-uu-do-sloppy-uudecode t)
+    (setq dir (gnus-uu-read-directory "Where do you want the files? "))
+    (message "Grabbing...")
+    (setq gnus-uu-rest-of-articles 
+          (gnus-uu-get-list-of-articles "^." nil unread))
+    (setq gnus-uu-file-name nil)
+    (while (and gnus-uu-rest-of-articles 
+                (gnus-uu-grab-articles gnus-uu-rest-of-articles 
+                                       'gnus-uu-uustrip-article-as))
+      (if gnus-uu-file-name
+          (progn
+            (setq saved-list (cons gnus-uu-file-name saved-list))
+            (rename-file (concat gnus-uu-tmp-dir gnus-uu-file-name) 
+                         (concat dir gnus-uu-file-name) t)
+            (setq did t)
+            (setq gnus-uu-file-name nil))))
+    (if (not did)
+        ()
+      (while saved-list
+        (setq filest (concat filest " " (car saved-list)))
+        (setq saved-list (cdr saved-list)))
+      (message "Saved%s" filest)))
+  (setq gnus-uu-do-sloppy-uudecode nil))
+;; Work functions
+(defun gnus-uu-decode-and-view-or-save (view marked)
+  (gnus-uu-initialize)
+  (let (file decoded)
+    (save-excursion
+      (if (gnus-uu-decode-and-strip nil marked)
+          (progn
+            (setq decoded t)
+            (setq file (concat gnus-uu-tmp-dir gnus-uu-file-name))
+            (if view 
+                (gnus-uu-view-file file)
+              (gnus-uu-save-file file)))))
+    (gnus-uu-summary-next-subject)
+    (if (and gnus-uu-use-interactive-view view decoded)
+        (gnus-uu-do-interactive))
+    (if (or (not gnus-uu-use-interactive-view) (not decoded))
+        (gnus-uu-clean-up))))
+    
+(defun gnus-uu-unshar-and-view-or-save (view marked)
+  "Unshars and views/saves marked/unmarked articles."
+  (gnus-uu-initialize)
+  (let (tar-file files decoded)
+    (save-excursion
+      (setq gnus-uu-shar-directory 
+            (make-temp-name (concat gnus-uu-tmp-dir "gnusuush")))
+      (make-directory gnus-uu-shar-directory)
+      (gnus-uu-add-file gnus-uu-shar-directory)
+      (if (gnus-uu-decode-and-strip t marked)
+          (progn
+            (setq decoded t)
+            (setq files (directory-files gnus-uu-shar-directory t))
+            (setq gnus-uu-generated-file-list
+                  (append files gnus-uu-generated-file-list))
+            (if (> (length files) 3)
+                (progn 
+                  (setq tar-file 
+                        (concat
+                         (make-temp-name (concat gnus-uu-tmp-dir "gnusuuar"))
+                         ".tar"))
+                  (gnus-uu-add-file tar-file)
+                  (call-process "sh" nil 
+                                (get-buffer-create gnus-uu-output-buffer-name)
+                                nil "-c" 
+                                (format "cd %s ; tar cf %s * ; cd .. ; rm -r %s" 
+                                        gnus-uu-shar-directory 
+                                        tar-file
+                                        gnus-uu-shar-directory))
+                  (if view
+                      (gnus-uu-view-file tar-file)
+                    (gnus-uu-save-file tar-file)))
+              (if view
+                  (gnus-uu-view-file (elt files 2))
+                (gnus-uu-save-file (elt files 2)))))))
+    (gnus-uu-summary-next-subject)
+    (if (and gnus-uu-use-interactive-view view decoded)
+        (gnus-uu-do-interactive))
+    (if (or (not gnus-uu-use-interactive-view) (not decoded))
+        (gnus-uu-clean-up))))
+(defconst gnus-uu-saved-article-name nil)
+(defun gnus-uu-save-articles (view marked)
+  (let (list-of-articles)
+    (save-excursion
+      (if (not marked)
+          (setq list-of-articles (gnus-uu-get-list-of-articles))
+        (setq list-of-articles (reverse gnus-uu-marked-article-list))
+        (setq gnus-uu-marked-article-list nil))
+      (if (not list-of-articles)
+          (progn
+            (message "No list of articles")
+            (sit-for 2))
+        (setq gnus-uu-saved-article-name 
+              (concat gnus-uu-tmp-dir 
+                      (read-file-name "Enter file name: " gnus-newsgroup-name
+                                      gnus-newsgroup-name)))
+        (gnus-uu-add-file gnus-uu-saved-article-name)
+        (if (gnus-uu-grab-articles list-of-articles 'gnus-uu-save-article)
+            (gnus-uu-save-file gnus-uu-saved-article-name))
+        ))))
+(defun gnus-uu-save-article (buffer in-state)
+  (save-excursion
+    (set-buffer buffer)
+    (call-process-region 
+     1 (point-max) "sh" nil (get-buffer-create gnus-uu-output-buffer-name)
+     nil "-c" (concat "cat >> " gnus-uu-saved-article-name)))
+  'ok)
+;; Binhex
+(defconst gnus-uu-binhex-body-line 
+  "^................................................................$")
+(defconst gnus-uu-binhex-begin-line 
+  "^:...............................................................$")
+(defconst gnus-uu-binhex-end-line
+  ":$")
+(defvar gnus-uu-binhex-article-name nil)
+(defun gnus-uu-binhex-and-save (view marked)
+  (let (list-of-articles)
+    (save-excursion
+      (if (not marked)
+          (setq list-of-articles (gnus-uu-get-list-of-articles))
+        (setq list-of-articles (reverse gnus-uu-marked-article-list))
+        (setq gnus-uu-marked-article-list nil))
+'      (setq gn-dummy-l list-of-articles)
+      (if (not list-of-articles)
+          (progn
+            (message "No list of articles")
+            (sit-for 2))
+        (setq gnus-uu-binhex-article-name 
+              (concat gnus-uu-tmp-dir 
+                      (read-file-name "Enter binhex file name: " 
+                                      gnus-newsgroup-name
+                                      gnus-newsgroup-name)))
+        (gnus-uu-add-file gnus-uu-binhex-article-name)
+        (if (gnus-uu-grab-articles list-of-articles 'gnus-uu-binhex-article)
+            (gnus-uu-save-file gnus-uu-binhex-article-name))
+        ))))
+(defun gnus-uu-binhex-article (buffer in-state)
+  (let ((state 'ok)
+        start-char)
+    (save-excursion
+      (set-buffer buffer)
+      (goto-char 1)
+      (if (not (re-search-forward (concat gnus-uu-binhex-begin-line "\\|" 
+                                          gnus-uu-binhex-body-line) nil t))
+          (setq state 'wrong-type)
+        (beginning-of-line)
+        (setq start-char (point))
+        (if (looking-at gnus-uu-binhex-begin-line)
+            (setq state 'begin)
+          (setq state 'middle))
+        (goto-char (point-max))
+        (re-search-backward (concat gnus-uu-binhex-body-line "\\|" 
+                                    gnus-uu-binhex-end-line) nil t)
+        (if (looking-at gnus-uu-binhex-end-line)
+            (if (eq state 'begin)
+                (setq state 'begin-and-end)
+              (setq state 'end)))
+        (beginning-of-line)
+        (forward-line 1)
+        (append-to-file start-char (point) gnus-uu-binhex-article-name)))
+    state))
+      
+;; Internal view commands
+(defun gnus-uu-view-file (file-name &optional dont-ask)
+  "This function takes two parameters. The first is name of the file to be 
+viewed. gnus-uu-view-file will look for an action associated with the file
+type of the file. If it finds an appropriate action, the file will be
+attempted displayed.
+The second parameter specifies if the user is to be asked whether to
+save the file if viewing is unsuccessful. `t' means 'do not ask.'
+Note that the file given will be deleted by this function, one way or
+another. If `gnus-uu-asynchronous' is set, it won't be deleted right
+away, but sometime later. If the user is offered to save the file, it'll
+be moved to wherever the user wants it. 
+gnus-uu-view-file returns `t' if viewing is successful."
+  (let (action did-view
+        (didnt-want t)
+        (do-view t))
+    (setq action 
+          (gnus-uu-choose-action
+           file-name
+           (append 
+            (if (and gnus-uu-use-interactive-view 
+                     gnus-uu-user-interactive-view-rules)
+                gnus-uu-user-interactive-view-rules
+              gnus-uu-user-view-rules)
+            (if (or gnus-uu-ignore-default-view-rules
+                    (not gnus-uu-use-interactive-view))
+                ()
+              gnus-uu-default-interactive-view-rules-begin)
+            (if gnus-uu-ignore-default-view-rules 
+                nil 
+              gnus-uu-default-view-rules)
+            (if (and gnus-uu-use-interactive-view
+                     gnus-uu-user-interactive-view-rules-end)
+                gnus-uu-user-interactive-view-rules-end
+               gnus-uu-user-view-rules-end))))
+           (if (and gnus-uu-use-interactive-view 
+                    (not (string= (or action "") "gnus-uu-archive")))
+               (gnus-uu-enter-interactive-file (or action "") file-name)
+             (if action
+                 (if (string= action "gnus-uu-archive") 
+                     (setq did-view (gnus-uu-treat-archive file-name))
+          
+                   (if gnus-uu-ask-before-view
+                       (setq didnt-want 
+                             (or (not 
+                                  (setq do-view
+                                        (y-or-n-p 
+                                         (format "Do you want to view %s? " 
+                                                 file-name))))
+                                 didnt-want)))
+                   (if do-view
+                       (setq did-view 
+                             (if gnus-uu-asynchronous
+                                 (gnus-uu-call-asynchronous file-name action)
+                               (gnus-uu-call-synchronous file-name action))))))
+             (if (and (not dont-ask) (not gnus-uu-use-interactive-view))
+                 (progn
+                   (if (and
+                        didnt-want
+                        (or (not action)
+                            (and (string= action "gnus-uu-archive") (not did-view))))
+                       (progn
+                         (message (format "Could find no rule for %s" file-name))
+                         (sit-for 2)))
+                   (and (or (not did-view) gnus-uu-view-and-save)
+                        (y-or-n-p 
+                         (format "Do you want to save the file %s? " file-name))
+                        (gnus-uu-save-file file-name))))
+             (if (and (file-exists-p file-name) 
+                      (not gnus-uu-use-interactive-view)
+                      (or 
+                       (not (and gnus-uu-asynchronous did-view))
+                       (string= action "gnus-uu-archive")))
+                 (delete-file file-name)))
+           did-view))
+(defun gnus-uu-call-synchronous (file-name action)
+  "Takes two parameters: The name of the file to be displayed and
+the command to display it with. Returns `t' on success and `nil' if
+the file couldn't be displayed."
+  (let (did-view command)
+    (save-excursion
+      (set-buffer (get-buffer-create gnus-uu-output-buffer-name))
+      (erase-buffer)
+      (if (string-match "%s" action)
+          (setq command (format action (concat "'" file-name "'")))
+        (setq command (concat action " " (concat "'" file-name "'"))))
+      (message (format "Viewing with '%s'" command))
+      (if (not (= 0 (call-process "sh" nil t nil "-c" command)))
+          (progn
+            (goto-char 1)
+            (while (re-search-forward "\n" nil t)
+              (replace-match " "))
+            (message (concat "Error: " (buffer-substring 1 (point-max))))
+            (sit-for 2))
+        (message "")
+        (setq did-view t)))
+    did-view))
+(defun gnus-uu-call-asynchronous (file-name action)
+  "Takes two parameters: The name of the file to be displayed and
+the command to display it with. Since the view command is executed
+asynchronously, it's kinda hard to decide whether the command succeded
+or not, so this function always returns `t'. It also adds \"; rm -f 
+file-name\" to the end of the execution string, so the file will be 
+removed after viewing has ended."
+  (let (command file tmp-file start)
+    (while (string-match "/" file-name start)
+      (setq start (1+ (match-beginning 0))))
+    (setq file (substring file-name start))
+    (setq tmp-file (concat gnus-uu-tmp-dir file))
+    (if (string= tmp-file file-name)
+        ()
+      (rename-file file-name tmp-file t)
+      (setq file-name tmp-file))
+    (if (string-match "%s" action)
+        (setq command (format action file-name))
+      (setq command (concat action " " file-name)))
+    (setq command (format "%s ; rm -f %s" command file-name))
+    (message (format "Viewing with %s" command))
+    (start-process "gnus-uu-view" 
+                   nil "sh" "-c" command)
+    t))
+(defun gnus-uu-decode-and-strip (&optional shar use-marked)
+  "This function does all the main work. It finds out what articles
+to grab, grabs them, strips the result and decodes. If any of 
+these operations fail, it returns `nil', `t' otherwise.
+If shar is `t', it will pass this on to gnus-uu-grab-articles
+who will (probably) unshar the articles. If use-marked
+is non-nil, it won't try to find articles, but use the marked list."
+  (let (list-of-articles)
+    (save-excursion
+      (if use-marked
+          (progn (if (eq gnus-uu-marked-article-list ())
+                (message "No articles marked")
+              (setq list-of-articles (reverse gnus-uu-marked-article-list))
+              (gnus-uu-unmark-all-articles)))
+        (setq list-of-articles (gnus-uu-get-list-of-articles)))
+      
+      (and list-of-articles
+           (gnus-uu-grab-articles list-of-articles 
+                                  (if shar 
+                                      'gnus-uu-unshar-article
+                                    'gnus-uu-uustrip-article-as))))))
+(defun gnus-uu-reginize-string (string)
+  "Takes a string and puts a \\ in front of every special character;
+ignores any leading \"version numbers\"
+thingies that they use in the comp.binaries groups, and either replaces
+anything that looks like \"2/3\" with \"[0-9]+/[0-9]+\" or, if it can't find
+something like that, replaces the last two numbers with \"[0-9]+\". This,
+in my experience, should get most postings of a series." 
+  (let ((count 2)
+        (vernum "v[0-9][0-9][a-z][0-9]+:")
+        reg beg)
+    (save-excursion
+      (set-buffer (get-buffer-create gnus-uu-output-buffer-name))
+      (erase-buffer)
+      (insert (regexp-quote string))
+      (setq beg 1)
+      (setq case-fold-search nil)
+      (goto-char 1)
+      (if (looking-at vernum)
+          (progn
+            (replace-match vernum t t)
+            (setq beg (length vernum))))
+      (goto-char beg)
+      (if (re-search-forward "[ \t]*[0-9]+/[0-9]+" nil t)
+          (replace-match " [0-9]+/[0-9]+")
+        (goto-char beg)
+        (if (re-search-forward "[0-9]+[ \t]*of[ \t]*[0-9]+" nil t)
+            (replace-match "[0-9]+ of [0-9]+")
+          (end-of-line)
+          (while (and (re-search-backward "[0-9]" nil t) (> count 0))
+            (while (and 
+                    (looking-at "[0-9]") 
+                    (< 1 (goto-char (1- (point))))))
+            (re-search-forward "[0-9]+" nil t)
+            (replace-match "[0-9]+")
+            (backward-char 5)
+            (setq count (1- count)))))
+      (goto-char beg)
+      (while (re-search-forward "[ \t]+" nil t)
+        (replace-match "[ \t]*" t t))
+      (buffer-substring 1 (point-max)))))
+(defun gnus-uu-get-list-of-articles (&optional subject mark-articles only-unread)
+  "Finds all articles that matches the regular expression given.
+Returns the resulting list."
+  (let (beg end reg-subject list-of-subjects list-of-numbers art-num)
+    (save-excursion
+      
+; If the subject is not given, this function looks at the current subject
+; and takes that.
+      (if subject
+          (setq reg-subject subject)
+        (end-of-line)
+        (setq end (point))
+        (beginning-of-line)
+        (if (not (re-search-forward "\\] " end t))
+            (progn (message "No valid subject chosen") (sit-for 2))
+          (setq subject (buffer-substring (point) end))
+          (setq reg-subject 
+                (concat "\\[.*\\] " (gnus-uu-reginize-string subject)))))
+;      (message reg-subject)(sleep-for 2)
+      
+      (if reg-subject
+          (progn
+; Collect all subjects matching reg-subject.
+            (let ((case-fold-search t))
+              (setq case-fold-search t)
+              (goto-char 1)
+              (while (re-search-forward reg-subject nil t)
+                (beginning-of-line)
+                (setq beg (point))
+                (if (or (not only-unread) (looking-at " \\|-"))
+                    (progn
+                      (end-of-line)
+                      (setq list-of-subjects (cons 
+                                              (buffer-substring beg (point))
+                                              list-of-subjects)))
+                  (end-of-line))))
+; Expand all numbers in all the subjects: (hi9 -> hi0009, etc).
+            (setq list-of-subjects (gnus-uu-expand-numbers list-of-subjects))
+; Sort the subjects.
+            (setq list-of-subjects (sort list-of-subjects 'gnus-uu-string<))
+; Get the article numbers from the sorted list of subjects.
+            (while list-of-subjects 
+              (setq art-num (gnus-uu-article-number (car list-of-subjects)))
+              (if mark-articles (gnus-summary-mark-as-read art-num ?#))
+              (setq list-of-numbers (cons art-num list-of-numbers))
+              (setq list-of-subjects (cdr list-of-subjects)))
+            (setq list-of-numbers (nreverse list-of-numbers))
+            (if (not list-of-numbers)
+                (progn 
+                  (message (concat "No subjects matched " subject))
+                  (sit-for 2)))))
+      list-of-numbers)))
+(defun gnus-uu-expand-numbers (string-list)
+  "Takes a list of strings and \"expands\" all numbers in all the strings.
+That is, this function makes all numbers equal length by prepending lots
+of zeroes before each number. This is to ease later sorting to find out
+what sequence the articles are supposed to be decoded in. Returns the list
+of expanded strings."
+  (let (string out-list pos num)
+    (save-excursion
+      (set-buffer (get-buffer-create gnus-uu-output-buffer-name))
+      (while string-list
+        (erase-buffer)
+        (setq string (car string-list))
+        (setq string-list (cdr string-list))
+        (insert string)
+        (goto-char 1)
+        (while (re-search-forward "[ \t]+" nil t)
+          (replace-match " "))
+        (goto-char 1)
+        (while (re-search-forward "[A-Za-z]" nil t)
+          (replace-match "a" t t))
+        (goto-char 1)
+        (if (not (search-forward "] " nil t))
+            ()
+          (while (re-search-forward "[0-9]+" nil t)
+            (replace-match  
+             (format "%06d" 
+                     (string-to-int (buffer-substring 
+                                     (match-beginning 0) (match-end 0))))))
+          (setq string (buffer-substring 1 (point-max)))
+          (setq out-list (cons string out-list)))))
+    out-list))
+(defun gnus-uu-string< (string1 string2) 
+  "Used in a sort for finding out what string is bigger, but ignoring
+everything before the subject part."
+  (string< (substring string1 (string-match "\\] " string1))
+           (substring string2 (string-match "\\] " string2))))
+;; gnus-uu-grab-article
+;;
+;; This is the general multi-article treatment function. 
+;; It takes a list of articles to be grabbed and a function
+;; to apply to each article. It puts the result in 
+;; gnus-uu-result-buffer.
+;;
+;; The function to be called should take two parameters.
+;; The first is the buffer that has the article that should
+;; be treated. The function should leave the result in this
+;; buffer as well. This result is then appended on to the
+;; gnus-uu-result-buffer.
+;; The second parameter is the state of the list of articles,
+;; and can have three values: 'start, 'middle and 'end.
+;; The function can have several return values. 
+;; 'error if there was an error while treating.
+;; 'end if the last article has been sighted.
+;; 'begin-and-end if the article is both the beginning and
+;;   the end. All these three return values results in 
+;;   gnus-uu-grab-articles stopping traversing of the list
+;;   of articles.
+;; 'middle if the article is a "middle" article.
+;; 'ok if everything is ok.
+(defvar gnus-uu-has-been-grabbed nil)
+(defun gnus-uu-unmark-list-of-grabbed (&optional dont-unmark-last-article)
+  (let (art)
+    (if (or (not gnus-uu-has-been-grabbed) 
+            (not gnus-uu-unmark-articles-not-decoded))
+        ()
+      (if dont-unmark-last-article
+          (progn
+            (setq art (car gnus-uu-has-been-grabbed))
+            (setq gnus-uu-has-been-grabbed (cdr gnus-uu-has-been-grabbed))))
+      (while gnus-uu-has-been-grabbed
+        (gnus-summary-mark-as-unread (car gnus-uu-has-been-grabbed) t)
+        (setq gnus-uu-has-been-grabbed (cdr gnus-uu-has-been-grabbed)))
+      (if dont-unmark-last-article
+          (setq gnus-uu-has-been-grabbed (list art)))
+      )))
+(defun gnus-uu-grab-articles (list-of-articles process-function)
+  "This function takes a list of articles and a function to apply 
+to each article grabbed. The result of the function is appended
+on to gnus-uu-result-buffer. 
+This function returns `t' if the grabbing and the process-function
+has been successful and `nil' otherwise."
+  (let ((result-buffer (get-buffer-create gnus-uu-result-buffer))
+        (state 'first)
+        (process-state 'ok)
+        (result t)
+        (wrong-type t)
+        (has-been-begin nil)
+        (article nil))
+    (save-excursion
+      (set-buffer result-buffer)
+      (erase-buffer))
+    (setq gnus-uu-has-been-grabbed nil)
+    (while (and list-of-articles 
+                (not (eq process-state 'end))
+                (not (eq process-state 'begin-and-end))
+                (not (eq process-state 'error)))
+      (setq article (car list-of-articles))
+      (setq list-of-articles (cdr list-of-articles))
+      (setq gnus-uu-has-been-grabbed (cons article gnus-uu-has-been-grabbed))
+      (if (eq list-of-articles ()) (setq state 'last))
+      (message (format "Getting article %d" article))
+      (if (not (= (or gnus-current-article 0) article))
+          (gnus-summary-display-article article))
+      (gnus-summary-mark-as-read article)
+      (save-excursion 
+        (set-buffer gnus-article-buffer)
+        (widen))
+      (setq process-state (funcall process-function gnus-article-buffer state))
+      (if (or (eq process-state 'begin) (eq process-state 'begin-and-end)
+              (eq process-state 'ok))
+          (setq has-been-begin t))
+      (if (not (eq process-state 'wrong-type))
+          (setq wrong-type nil)
+        (if gnus-uu-unmark-articles-not-decoded
+            (gnus-summary-mark-as-unread article t)))
+      (if gnus-uu-do-sloppy-uudecode
+          (setq wrong-type nil))
+      (if (and (not has-been-begin)
+               (not gnus-uu-do-sloppy-uudecode)
+               (or (eq process-state 'end)
+                   (eq process-state 'middle)))
+          (progn
+            (setq process-state 'error)
+            (message "No begin part at the beginning")
+            (sit-for 2))
+        (setq state 'middle)))
+    (if (and (not has-been-begin) (not gnus-uu-do-sloppy-uudecode))
+        (progn
+          (setq result nil)
+          (message "Wrong type file")
+          (sit-for 2))
+      (if (eq process-state 'error)
+          (setq result nil)
+        (if (not (or (eq process-state 'ok) 
+                     (eq process-state 'end)
+                     (eq process-state 'begin-and-end)))
+            (progn
+              (if (not gnus-uu-do-sloppy-uudecode)
+                  (progn
+                    (message "End of articles reached before end of file")
+                    (sit-for 2)))
+              (gnus-uu-unmark-list-of-grabbed)
+              (setq result nil)))))
+    (setq gnus-uu-rest-of-articles list-of-articles)
+    result))
+(defun gnus-uu-uudecode-sentinel (process event)
+;  (message "Process '%s' has received event '%s'" process event)
+;  (sit-for 2)
+  (delete-process (get-process process)))
+(defun gnus-uu-uustrip-article-as (process-buffer in-state)
+  (let ((state 'ok)
+        (process-connection-type nil)
+        start-char pst name-beg name-end buf-state)
+    (save-excursion
+      (set-buffer process-buffer)
+      (setq buf-state buffer-read-only)
+      (setq buffer-read-only nil)
+      (goto-char 1)
+      (if gnus-uu-kill-carriage-return
+          (progn
+            (while (search-forward "
+" nil t)
+              (delete-backward-char 1))
+            (goto-char 1)))
+      (if (not (re-search-forward 
+                (concat gnus-uu-begin-string "\\|" gnus-uu-body-line) nil t))
+            (setq state 'wrong-type)
+     
+        (beginning-of-line)
+        (setq start-char (point))
+        (if (looking-at gnus-uu-begin-string)
+            (progn 
+              (setq name-end (match-end 1))
+              (goto-char (setq name-beg (match-beginning 1)))
+              (while (re-search-forward "/" name-end t)
+                (replace-match "-"))
+              (setq gnus-uu-file-name (buffer-substring name-beg name-end))
+              (setq pst (process-status 
+                         (or gnus-uu-uudecode-process "nevair")))
+              (if (or (eq pst 'stop) (eq pst 'run))
+                  (progn
+                    (delete-process gnus-uu-uudecode-process)
+                    (gnus-uu-unmark-list-of-grabbed t)))
+              (setq gnus-uu-uudecode-process
+                    (start-process 
+                     "*uudecode*" 
+                     (get-buffer-create gnus-uu-output-buffer-name)
+                     "sh" "-c" 
+                     (format "cd %s ; uudecode" gnus-uu-tmp-dir)))
+              (set-process-sentinel 
+               gnus-uu-uudecode-process 'gnus-uu-uudecode-sentinel)
+              (setq state 'begin)
+              (gnus-uu-add-file (concat gnus-uu-tmp-dir gnus-uu-file-name)))
+          (setq state 'middle))
+        
+        (goto-char (point-max))
+        (re-search-backward 
+         (concat gnus-uu-body-line "\\|" gnus-uu-end-string) nil t)
+        (if (looking-at gnus-uu-end-string)
+            (if (eq state 'begin)
+                (setq state 'begin-and-end)
+              (setq state 'end)))
+        (forward-line 1)
+        (setq pst (process-status (or gnus-uu-uudecode-process "nevair")))
+        (if (or (eq pst 'run) (eq pst 'stop))
+            (progn
+              (gnus-uu-check-correct-stripped-uucode start-char (point))
+              (condition-case err
+                  (process-send-region gnus-uu-uudecode-process start-char 
+                                       (point))
+                (error 
+                 (progn 
+                   (setq state 'wrong-type)
+                   (delete-process gnus-uu-uudecode-process)))))
+          (setq state 'wrong-type)))
+      (setq buffer-read-only buf-state))
+    state))
+(defun gnus-uu-unshar-article (process-buffer in-state)
+  "This function is used by gnus-uu-grab-articles to treat
+a shared article."
+  (let ((state 'ok)
+        start-char)
+    (save-excursion
+     (set-buffer process-buffer)
+     (goto-char 1)
+     (if (not (re-search-forward gnus-uu-shar-begin-string nil t))
+         (setq state 'wrong-type)
+       (beginning-of-line)
+       (setq start-char (point))
+       (call-process-region 
+        start-char (point-max) "sh" nil 
+        (get-buffer-create gnus-uu-output-buffer-name) nil 
+        "-c" (concat "cd " gnus-uu-shar-directory " ; sh"))))
+    state))
+(defun gnus-uu-find-name-in-shar ()
+  "Returns the name of what the shar file is going to unpack."
+  (let ((oldpoint (point))
+        res)
+    (goto-char 1)
+    (if (re-search-forward gnus-uu-shar-name-marker nil t)
+        (setq res (buffer-substring (match-beginning 1) (match-end 1))))
+    (goto-char oldpoint)
+    res))
+      
+(defun gnus-uu-article-number (subject)
+  "Returns the article number of the given subject."
+  (let (end)
+    (string-match "[0-9]+[^0-9]" subject 1)
+    (setq end (match-end 0))
+    (string-to-int 
+     (substring subject (string-match "[0-9]" subject 1) end)))) 
+              
+(defun gnus-uu-decode (directory)
+  "UUdecodes everything in the buffer and returns the name of the resulting
+file."
+  (let ((command (concat "cd " directory " ; uudecode"))
+        file-name)
+    (save-excursion
+      (message "Uudecoding...")
+      (set-buffer (get-buffer-create gnus-uu-result-buffer))
+      (setq file-name (concat gnus-uu-tmp-dir gnus-uu-file-name))
+      (gnus-uu-add-file file-name)
+      (call-process-region 1 (point-max) "sh" nil t nil "-c" command)
+      file-name)))
+(defun gnus-uu-choose-action (file-name file-action-list)
+  "Chooses what action to perform given the name and gnus-uu-file-action-list.
+Returns either nil if no action is found, or the name of the command
+to run if such a rule is found."
+  (let ((action-list (copy-sequence file-action-list))
+        rule action)
+    (while (not (or (eq action-list ()) action))
+      (setq rule (car action-list))
+      (setq action-list (cdr action-list))
+      (if (string-match (car rule) file-name)
+          (setq action (car (cdr rule)))))
+    action))
+(defun gnus-uu-save-file (from-file-name &optional default-dir ignore-existing)
+  "Moves the file from the tmp directory to where the user wants it."
+  (let (dir file-name command)
+    (string-match "/[^/]*$" from-file-name)
+    (setq file-name (substring from-file-name (1+ (match-beginning 0))))
+    (if default-dir
+        (setq dir default-dir)
+      (setq dir (gnus-uu-read-directory "Where do you want the file? ")))
+    (if (and (not ignore-existing) (file-exists-p (concat dir file-name)))
+        (progn
+          (message (concat "There already is a file called " file-name))
+          (sit-for 2)
+          (setq file-name
+                (read-file-name "Give a new name: " dir (concat dir file-name)
+                            nil file-name)))
+      (setq file-name (concat dir file-name)))
+    (rename-file from-file-name file-name t)))
+    
+(defun gnus-uu-read-directory (prompt &optional default)
+  (let (dir ok create)
+    (while (not ok)
+      (setq ok t)
+      (setq dir (if default default
+                  (read-file-name prompt gnus-uu-current-save-dir 
+                                  gnus-uu-current-save-dir)))
+      (while (string-match "/$" dir)
+        (setq dir (substring dir 0 (match-beginning 0))))
+      (if (file-exists-p dir)
+          (if (not (file-directory-p dir))
+              (progn
+                (setq ok nil)
+                (message "%s is a file" dir)
+                (sit-for 2)))
+        (setq create ?o)
+        (while (not (or (= create ?y) (= create ?n)))
+          (message "%s: No such directory. Do you want to create it? (y/n)" 
+                   dir)
+          (setq create (read-char)))
+        (if (= create ?y) (make-directory dir))))
+    (setq gnus-uu-current-save-dir (concat dir "/"))))
+(defun gnus-uu-treat-archive (file-name)
+  "Unpacks an archive and views all the files in it. Returns `t' if
+viewing one or more files is successful."
+  (let ((arc-dir (make-temp-name 
+                  (concat gnus-uu-tmp-dir "gnusuu")))
+        action command files file did-view short-file-name
+        error-during-unarching)
+    (setq action (gnus-uu-choose-action 
+                  file-name (append gnus-uu-user-archive-rules
+                                    (if gnus-uu-ignore-default-archive-rules
+                                        nil
+                                      gnus-uu-default-archive-rules))))
+    (if (not action)
+        (progn (message (format "No unpackers for the file %s" file-name))
+               (sit-for 2))
+      (string-match "/[^/]*$" file-name)
+      (setq short-file-name (substring file-name (1+ (match-beginning 0))))
+      (setq command (format "%s %s %s ; cd %s ; %s %s " 
+                            (if (or (string= action "uncompress")
+                                    (string= action "gunzip"))
+                                "cp"
+                              "mv")
+                            file-name arc-dir 
+                            arc-dir 
+                            action short-file-name))
+      (make-directory arc-dir)
+      (gnus-uu-add-file arc-dir)
+      (save-excursion
+        (set-buffer (get-buffer-create gnus-uu-output-buffer-name))
+        (erase-buffer))
+      (message (format "Unpacking with %s..." action))
+      (if (= 0 (call-process "sh" nil 
+                             (get-buffer-create gnus-uu-output-buffer-name)
+                             nil "-c" command))
+          (message "")
+        (message "Error during unpacking of archive")
+        (sit-for 2)
+        (sit-for 2)
+        (setq error-during-unarching t))
+      (if (not (or (string= action "uncompress")
+                   (string= action "gunzip")))
+          (call-process "sh" nil (get-buffer gnus-uu-output-buffer-name)
+                        nil "-c" (format "mv %s/%s %s" 
+                                         arc-dir short-file-name
+                                         gnus-uu-tmp-dir)))
+      (gnus-uu-add-file (concat gnus-uu-tmp-dir short-file-name))
+    
+      (setq did-view 
+            (or (gnus-uu-show-directory arc-dir gnus-uu-use-interactive-view) 
+                did-view))
+      (if (and (not gnus-uu-use-interactive-view) 
+               (file-directory-p arc-dir))
+          (delete-directory arc-dir)))
+    did-view))
+(defun gnus-uu-show-directory (dir &optional dont-delete-files)
+  "Tries to view all the files in the given directory. Returns `t' if
+viewing one or more files is successful."
+  (let (files file did-view)
+    (setq files (directory-files dir t))
+    (setq gnus-uu-generated-file-list
+          (append files gnus-uu-generated-file-list))
+    (while files
+      (setq file (car files))
+      (setq files (cdr files))
+      (if (and (not (string-match "/\\.$" file)) 
+               (not (string-match "/\\.\\.$" file)))
+          (progn
+            (set-file-modes file 448)
+            (if (file-directory-p file)
+                (setq did-view (or (gnus-uu-show-directory file 
+                                                           dont-delete-files) 
+                                   did-view))
+              (setq did-view (or (gnus-uu-view-file file t) did-view))
+              (if (and (not dont-delete-files) (file-exists-p file)) 
+                       (delete-file file))))))
+    (if (not dont-delete-files) (delete-directory dir))
+    did-view))
+;; Manual marking
+(defun gnus-uu-enter-mark-in-list ()
+  (let (article beg)
+    (beginning-of-line)
+    (setq beg (point))
+    (end-of-line)
+    (setq article (gnus-uu-article-number 
+                   (buffer-substring beg (point))))
+    (message (format "Adding article %d to list" article))
+    (setq gnus-uu-marked-article-list 
+          (cons article gnus-uu-marked-article-list)))) 
+(defun gnus-uu-mark-article ()
+  "Marks the current article to be decoded later."
+  (interactive)
+  (gnus-uu-enter-mark-in-list)
+  (gnus-summary-mark-as-read nil ?#)
+  (gnus-summary-next-subject 1 nil))
+(defun gnus-uu-unmark-article ()
+  "Unmarks the current article."
+  (interactive)
+  (let ((in (copy-sequence gnus-uu-marked-article-list))
+        out article beg found
+        (old-point (point)))
+    (beginning-of-line)
+      (setq beg (point))
+      (end-of-line)
+      (setq article (gnus-uu-article-number (buffer-substring beg (point))))
+      (message (format "Removing article %d" article))
+      (while in 
+        (if (not (= (car in) article))
+            (setq out (cons (car in) out))
+          (setq found t)
+          (message (format "Removing article %d" article)))
+        (setq in (cdr in)))
+      (if (not found) (message "Not a marked article."))
+      (setq gnus-uu-marked-article-list (reverse out))
+      (gnus-summary-mark-as-unread nil t)
+      (gnus-summary-next-subject 1 nil)))
+        
+(defun gnus-uu-unmark-all-articles ()
+  "Removes the mark from all articles marked for decoding."
+  (interactive)
+  (let ((articles (copy-sequence gnus-uu-marked-article-list)))
+    (while articles
+      (gnus-summary-goto-subject (car articles))
+      (gnus-summary-mark-as-unread nil t)
+      (setq articles (cdr articles)))
+    (setq gnus-uu-marked-article-list ())))
+(defun gnus-uu-mark-by-regexp ()
+  "Asks for a regular expression and marks all articles that match for later decoding."
+  (interactive)
+  (let (exp)
+    (setq exp (read-from-minibuffer "Enter regular expression: "))
+    (setq gnus-uu-marked-article-list 
+          (reverse (gnus-uu-get-list-of-articles exp t)))
+    (message "")))
+      
+;; Various
+(defun gnus-uu-check-correct-stripped-uucode (start end)
+  (let (found beg length short)
+    (if (not gnus-uu-correct-stripped-uucode)
+        ()
+      (goto-char start)
+      (while (< (point) end)
+        (if (looking-at (concat gnus-uu-begin-string "\\|" gnus-uu-end-string))
+            ()
+          (if (not found)
+              (progn
+                (beginning-of-line)
+                (setq beg (point))
+                (end-of-line)
+                (setq length (- (point) beg))))
+          (beginning-of-line)
+          (setq beg (point))
+          (end-of-line)
+          (if (not (= length (- (point) beg)))
+              (insert (make-string (- length (- (point) beg))) ? )))
+        (forward-line 1)))))
+(defun gnus-uu-initialize ()
+  (if (not gnus-uu-use-interactive-view)
+      ()
+    (save-excursion
+      (setq gnus-uu-interactive-file-list nil)
+      (set-buffer (get-buffer-create gnus-uu-interactive-buffer-name))
+      (erase-buffer)
+      (gnus-uu-mode)
+      (insert 
+       "# Press return to execute a command.
+# Press `C-c C-c' to exit interactive view.
+"))))
+(defun gnus-uu-clean-up ()
+  "Kills the temporary uu buffers."
+  (let (buf pst)
+    (setq gnus-uu-do-sloppy-uudecode nil)
+    (setq pst (process-status (or gnus-uu-uudecode-process "nevair")))
+    (if (or (eq pst 'stop) (eq pst 'run))
+        (delete-process gnus-uu-uudecode-process))
+    (and (not gnus-uu-asynchronous) 
+         (setq buf (get-buffer gnus-uu-output-buffer-name))
+         (kill-buffer buf))
+    (and (setq buf (get-buffer gnus-uu-result-buffer))
+         (kill-buffer buf))))
+(defun gnus-uu-check-for-generated-files ()
+  "Deletes any generated files that hasn't been deleted, if, for
+instance, the user terminated decoding with `C-g'."
+  (let (file)
+    (while gnus-uu-generated-file-list
+      (setq file (car gnus-uu-generated-file-list))
+      (setq gnus-uu-generated-file-list (cdr gnus-uu-generated-file-list))
+      (if (not (string-match "/\\.[\\.]?$" file))
+          (progn
+            (if (file-directory-p file)
+                (delete-directory file)
+              (if (file-exists-p file)
+                  (delete-file file))))))))
+(defun gnus-uu-add-file (file)
+  (setq gnus-uu-generated-file-list 
+        (cons file gnus-uu-generated-file-list)))
+(defun gnus-uu-summary-next-subject ()
+  (if (not (gnus-summary-search-forward t))
+      (progn
+        (goto-char 1)
+        (sit-for 0)
+        (goto-char (point-max))
+        (forward-line -1)
+        (beginning-of-line)
+        (search-forward ":" nil t)))
+  (sit-for 0)
+  (gnus-summary-recenter))
+;; Initializing
+(add-hook 'gnus-exit-group-hook
+      '(lambda ()
+         (gnus-uu-clean-up)
+         (setq gnus-uu-marked-article-list nil)
+         (gnus-uu-check-for-generated-files)))
+;; Interactive exec mode
+(defvar gnus-uu-output-window nil)
+(defvar gnus-uu-mode-hook nil)
+(defvar gnus-uu-mode-map nil)
+(defun gnus-uu-do-interactive ()
+  (let (int-buffer out-buf)
+    (set-buffer 
+     (setq int-buffer (get-buffer gnus-uu-interactive-buffer-name)))
+    (switch-to-buffer-other-window int-buffer)
+    (pop-to-buffer int-buffer)
+    (setq gnus-uu-output-window 
+          (split-window nil (- (window-height) gnus-uu-output-window-height)))
+    (set-window-buffer gnus-uu-output-window
+                       (setq out-buf 
+                             (get-buffer-create gnus-uu-output-buffer-name)))
+    (save-excursion (set-buffer out-buf) (erase-buffer))
+    (goto-char 1)
+    (forward-line 3)
+    (run-hooks 'gnus-uu-mode-hook)))
+(defun gnus-uu-enter-interactive-file (action file)
+  (let (command)
+    (save-excursion
+      (setq gnus-uu-interactive-file-list
+            (cons file gnus-uu-interactive-file-list))
+      (set-buffer (get-buffer gnus-uu-interactive-buffer-name))
+      (if (string-match "%s" action)
+          (setq command (format action (concat "'" file "'")))
+        (setq command (concat action " " (concat "'" file "'"))))
+      (insert (format "%s\n" command)))))
+(defun gnus-uu-interactive-execute ()
+  (interactive)
+  (let (beg out-buf command)
+    (beginning-of-line)
+    (setq beg (point))
+    (end-of-line)
+    (setq command (buffer-substring beg (point)))
+    (setq out-buf (get-buffer-create gnus-uu-output-buffer-name))
+    (save-excursion
+      (set-buffer out-buf)
+      (erase-buffer)
+      (insert (format "$ %s \n\n" command)))
+    (message "Executing...")
+    (if gnus-uu-asynchronous
+        (start-process "gnus-uu-view" out-buf "sh" "-c" command)
+      (call-process "sh" nil out-buf nil "-c" command)
+      (message ""))
+    (forward-line 1)
+    (beginning-of-line)))
+(defun gnus-uu-interactive-end ()
+  "This function ends interactive view mode and returns to summary mode."
+  (interactive)
+  (let (buf)
+    (delete-window gnus-uu-output-window)
+    (gnus-uu-clean-up)
+    (if (not gnus-uu-asynchronous) (gnus-uu-check-for-generated-files))
+    (setq buf (get-buffer gnus-uu-interactive-buffer-name))
+    (if gnus-article-buffer (switch-to-buffer gnus-article-buffer))
+    (if buf (kill-buffer buf))
+    (pop-to-buffer gnus-summary-buffer)))
+(if gnus-uu-mode-map
+    ()
+  (setq gnus-uu-mode-map (make-sparse-keymap))
+  (define-key gnus-uu-mode-map "\C-c\C-x" 'gnus-uu-interactive-execute)
+  (define-key gnus-uu-mode-map "\C-c\C-v" 'gnus-uu-interactive-execute)
+  (define-key gnus-uu-mode-map "\C-m" 'gnus-uu-interactive-execute)
+  (define-key gnus-uu-mode-map "\C-c\C-c" 'gnus-uu-interactive-end)
+  (define-key gnus-uu-mode-map "\C-cs" 
+    'gnus-uu-interactive-save-current-file)
+  (define-key gnus-uu-mode-map "\C-c\C-s"
+    'gnus-uu-interactive-save-current-file-silent)
+  (define-key gnus-uu-mode-map "\C-c\C-w" 'gnus-uu-interactive-save-all-files)
+  (define-key gnus-uu-mode-map "\C-c\C-o" 'gnus-uu-interactive-save-original-file))
+(defun gnus-uu-interactive-save-original-file ()
+  (interactive)
+  (let (file)
+    (if (file-exists-p 
+         (setq file (concat gnus-uu-tmp-dir
+                            (or gnus-uu-file-name gnus-uu-shar-file-name))))
+        (gnus-uu-save-file file)
+      (message "Already saved."))))
+(defun gnus-uu-interactive-save-current-file-silent ()
+  "hei"
+  (interactive)
+  (gnus-uu-interactive-save-current-file t))
+(defun gnus-uu-interactive-save-current-file (&optional dont-ask silent)
+  "Saves the file referred to on the current line."
+  (interactive)
+  (let (files beg line file)
+    (setq files (copy-sequence gnus-uu-interactive-file-list))
+    (beginning-of-line)
+    (setq beg (point))
+    (end-of-line)
+    (setq line (buffer-substring beg (point)))
+    (while (and files
+                (not (string-match 
+                      (concat "" (regexp-quote (setq file (car files))) "")
+                      line)))
+      (setq files (cdr files)))
+    (beginning-of-line)
+    (forward-line 1)
+    (if (not files)
+        (if (not silent)
+            (progn (message "Could not find file") (sit-for 2)))
+      (gnus-uu-save-file file (if dont-ask gnus-uu-current-save-dir nil) silent)
+      (delete-region beg (point)))))
+(defun gnus-uu-interactive-save-all-files ()
+  "Saves all files referred to on the current line."
+  (interactive)
+  (let (dir)
+    (goto-char 1)
+    (setq dir (gnus-uu-read-directory "Where do you want the files? "))
+    (while (not (eobp))
+      (gnus-uu-interactive-save-current-file t t))))
+(defun gnus-uu-mode ()
+  "Major mode for editing view commands in gnus-uu.
+Commands:
+Return, C-c C-v, C-c C-x        Execute the current command
+C-c C-c                         End interactive mode
+C-c s                           Save the current file
+C-c C-s                         Save the current file without asking 
+                                where to put it
+C-c C-a                         Save all files
+C-c C-o                         Save the original file: If the files
+                                originated in an archive, the archive 
+                                file is saved.
+"
+  (interactive)
+  (kill-all-local-variables)
+  (use-local-map gnus-uu-mode-map)   
+  (setq mode-name "gnus-uu")         
+  (setq major-mode 'gnus-uu-mode)    
+)
+  (define-key gnus-uu-mode-map "\C-c\C-x" 'gnus-uu-interactive-execute)
+  (define-key gnus-uu-mode-map "\C-c\C-v" 'gnus-uu-interactive-execute)
+  (define-key gnus-uu-mode-map "\C-m" 'gnus-uu-interactive-execute)
+  (define-key gnus-uu-mode-map "\C-c\C-c" 'gnus-uu-interactive-end)
+  (define-key gnus-uu-mode-map "\C-cs" 
+    'gnus-uu-interactive-save-current-file)
+  (define-key gnus-uu-mode-map "\C-c\C-s"
+    'gnus-uu-interactive-save-current-file-silent)
+  (define-key gnus-uu-mode-map "\C-c\C-a" 'gnus-uu-interactive-save-all-files)
+  (define-key gnus-uu-mode-map "\C-c\C-o" 'gnus-uu-interactive-save-original-file)
+(provide 'gnus-uu)
author	Richard M. Stallman	1994-04-07 16:39:44 +0000
committer	Richard M. Stallman	1994-04-07 16:39:44 +0000
commit	f919f65ca97361b637aae6a20f7b4d803d6b29cb (patch)
tree	6b8779f614724a202e4f4de42524d9f8410d5b75
parent	206250958ead8f88ab2c59185e64bc175c451b64 (diff)
download	emacs-f919f65ca97361b637aae6a20f7b4d803d6b29cb.tar.gz emacs-f919f65ca97361b637aae6a20f7b4d803d6b29cb.zip