Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84 exptools; site ihlpl.UUCP
Path: utzoo!watmath!clyde!cbosgd!ihnp4!ihlpl!tlt
From: tlt@ihlpl.UUCP (Todd)
Newsgroups: net.sources
Subject: A quick way to read voluminous amounts of netnews.
Message-ID: <703@ihlpl.UUCP>
Date: Mon, 17-Mar-86 17:31:53 EST
Article-I.D.: ihlpl.703
Posted: Mon Mar 17 17:31:53 1986
Date-Received: Wed, 19-Mar-86 04:55:26 EST
Distribution: net
Organization: AT&T Bell Laboratories
Lines: 39

Here is a short shell script that allows the user to read/scan
a lot of netnews very quickly. 
It maps the ' character to a one keystroke command that marks
the articles you want to read.  When you are finished marking
exit vi by your favorite method of writing the file and quitting.
The ' key now becomes the method to go to the next article.
It's a quicky that allows me to wade through all the netnews
garbage in a few minutes.
Installation directions:
1. Cut on the dotted lines and put contents into a file called "qn" (quick news).
2. Find where netnews articles are kept on your system and change the
   appropriate line (line 9).
3. Make the file "qn" executable.
4. Enjoy.
-----------------------------cut here-----------------------
readnews -l >/tmp/hd.$$
EXINIT="map ' I*
"
export EXINIT
vi /tmp/hd.$$
EXINIT="map ' ZZ"
grep "^\*" /tmp/hd.$$ | sed -e "
s/ .*//
s/\./\//g
s/^./view \/put\/the\/full\/path\/of\/the\/netnews\/articles\/here\//
" >/tmp/rd.$$
sh /tmp/rd.$$
rm /tmp/hd.$$ /tmp/rd.$$
echo "Update .newsrc? (y/n)\c"
read x
if [ "y" = "$x" ]
then
  readnews -p >/dev/null
fi
-----------------------------cut here-----------------------
DISCLAIMER
It uses vi so if you don't like vi don't use it.
It probably won't work with csh.  I don't know because I use ksh.
Try it - you might like it.
If you don't like it - write your own. (I would be interested in mutants)