Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!omrongw!omrongw!fujii
From: fujii@nff.ncl.omron.co.jp (Naoto-Eunos-Fujii)
Subject: Re: uuencode.el?
In-Reply-To: ugai@vsp.cpg.sony.co.jp's message of 26 Apr 1993 12:51:10 JST
Message-ID: <FUJII.93Apr26142748@bud.nff.ncl.omron.co.jp>
Sender: news@omrongw.wg.omron.co.jp (News Manager)
Nntp-Posting-Host: bud.ews.ncl.omron.co.jp
Reply-To: fujii@ews.ncl.omron.co.jp
Organization: OMRON Corporation, Kyoto Japan.
References: <EMATSUI.93Apr23171423@bert.ucsc.edu> <1rfm80INNead@vspgw.vsp.cpg.sony.co.jp>
Distribution: fj
Date: Mon, 26 Apr 1993 05:27:47 GMT
Lines: 105
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3700
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3700&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B$U$8$$!w#O#M#R#O#N$G$9!#(B

:::: $B5-;v(B <1rfm80INNead@vspgw.vsp.cpg.sony.co.jp> $B$NCf$G(B 
:::: ugai@vsp.cpg.sony.co.jp (Takeo Ugai) $B$5$s(B:

 >gnus $B$N4D6-$+$iD>@\%K%e!<%9$r(B uudecode $B$9$k(B elisp $B%3!<%I$O$J$$$b$N$G$7$g(B
 >$B$&$+!)(B

 Takeo> $B0JA0!"(Balt.binaries.pictures.utilities $B$K(B gif-grabber $B$H8@$&%Q%C%1!<%8(B
 Takeo> $B$,N.$l$^$7$?!#(B

$B$3$l$bJXMx$G$9$,!";d$O(B
;;; gnus-mark.el v1.4
$B$H$$$&$N$r;H$C$F$$$^$9!#(B

 Takeo> subject $B$+$i(B split $B$5$l$?(B article $B$r=8$a$F!"I,MW$JItJ,$r@Z$j$@$7(B 
 Takeo> uudecode $B$9$k$b$N$G$9!#(B

$B$3$A$i$O(B subject buffer $B$G(B @ $B$rBG$C$?$b$N$r=8$a$F(B uudecode $B$d(B
unshar $B$7$F$/$l$^$9!#(B

$B%*%j%8%J%k$G$O(B mkdir $B$,$&$^$/$$$+$J$+$C$?$N$G(B
gnus-mark-read-directory $B$NCf$N(B (make-directory dir) $B$r(B
(gnus-make-directory dir) $B$KJQ$($?$h$&$J5$$,$7$^$9!#(B

;;; -*- Mode:Emacs-Lisp -*-

;;; gnus-mark.el v1.4
;;; Operating on more than one news article at a time.
;;; Created: 28-Jun-91 by Jamie Zawinski <jwz@lucid.com>
;;; Modified: 28-Jun-91 by Sebastian Kremer <sk@thp.Uni-Koeln.DE>
;;; Modified: 1-Dec-91 by Jamie Zawinski <jwz@lucid.com>
;;; Modified: 05-Dec-91 by Paul D. Smith <paul_smith@dg.com>
;;; Modified: 28-Nov-92 by A1C Tim Miller <tjm@hrt213.brooks.af.mil>
;;;
;;; typing `@' in the subject buffer will mark the current article with
;;; an `@'.  After marking more than one article this way, you can use one
;;; of the commands in this file on all of them at once.
;;;
;;; `M-@' will prompt you for a regular expression, and will mark all f
;;; articles which match.
;;;
;;; `^U@' will prompt you for a mark-character to use other than `@'.
;;;
;;; To unmark an article, use `u', `d', or `^U M-@ SPC RET'.
;;;
;;; `F' (gnus-forward-marked-articles) will put you in a send-mail buffer 
;;; along with the contents of all of the marked articles in RFC-944 digest
;;; format, suitable for later explosion with any reasonable mail reader.
;;;
;;; `M-x gnus-uudecode-marked-messages' (M-x gnus-uu RET works) will strip the
;;; junk from the beginning and end of the marked articles, concatenate them
;;; together, and pipe the result through uudecode.  If the resultant file is
;;; a tar file and/or is compressed, this command offers to unpack/uncompress
;;; as well.  See also the variables gnus-uudecode-file-mode, 
;;; gnus-uudecode-auto-chmod, and gnus-uudecode-auto-touch.  If the first
;;; marked message is not the first part of the uuencoded file, or if the last
;;; marked message is not the last part of the uuencoded file, it complains.
;;; However, it's not possible to tell if the middle parts are out of order,
;;; so make sure you use ^C^S^S to get the articles in the right order first.
;;; It also complains about obviously-corrupted files.
;;;
;;; `M-x gnus-unshar-marked-articles' (M-x gnus-un RET works) will strip the 
;;; junk from the beginning and end of the marked articles, and run each of
;;; them through sh in turn.  This doesn't work on shar files that don't 
;;; begin with "#!".
;;;
;;; Both of the above commands prompt you for a directory in which to do the
;;; dirty work.  If the directory you specify doesn't exist, you have the
;;; option of creating it.
;;;
;;; M-x gnus-save-marked-articles-in-file will save marked articles in a file;
;;; prompts with gnus' standard filename query for each article unless
;;; gnus-save-marked-in-same-file is non-nil.
;;
;; LCD Archive Entry:
;; gnus-mark|Jamie Zawinski|jwz@lucid.com
;; |Operate on more than one news article at a time
;; |92-11-30||~/misc/gnus-mark.el.Z|

;; 05 Dec 91 pds - Paul D. Smith (paul_smith@dg.com)
;;
;;  * Changed the key binding for gnus-forward-marked-articles to C-f
;;    instead of F: `F' is Followup-yank-original which is a very
;;    common function!
;;
;;  * Added local gnus-mark-shell-command function which performs
;;    more exactly what we want to happen; namely allows the shell
;;    output buffer to be displayed before the command is executed and
;;    to be filled real-time.  It will either erase the buffer or just
;;    add text to the end.
;;
;;  * Fixed a bug where if you had one of the articles you marked
;;    actually read in when you used one of the three mark processing
;;    commands the mark would not be deleted.
;;
;;  * Modified gnus-Subject-mark-article to use GNUS functions to do
;;    the marking instead of modifying the character itself.  This
;;    keeps the cursor in the right position in the buffer, doesn't
;;    allow it to go beyond the end of the buffer even if you select
;;    the last article, etc.
--
$BF#(B $B0f(B $BD>(B $B?M(B  $B!w(B $B>&IJ3+H/<<(B $B!%#E#W#S%7%9%F%`;v6HIt(B $B!%#O#M#R#O#N(B
FUJII Naoto     E-Mail: fujii@ews.ncl.omron.co.jp
Product Development Dep.,EWS Systems Div.,OMRON Corporation ,Kyoto, Japan
