Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!wuarchive!wubios!david
From: david@wubios.wustl.edu (David J. Camp)
Newsgroups: comp.mail.elm
Subject: elmdigest -- a program to read a digest with elm
Message-ID: <1990Dec1.142858.15162@wubios.wustl.edu>
Date: 1 Dec 90 14:28:58 GMT
Sender: david@wubios.wustl.edu (David J. Camp)
Organization: Division of Biostatistics, WUMS, St. Louis, MO
Lines: 106

This little program will allow you to read messages from a digest as 
individual messages.  From the elm menu, just type "|elmdigest" when
you are pointing to the digest.  It will start a new session of elm
in a shell, with each messages from the digest as a separate message
in a temporary folder.  The temporary folder will be deleted when
you exit elm, to return to the original session.

Please send me suggestions for improvements.  -David-

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  elmdigest dedigest
# Wrapped by david@wubios on Sat Dec  1 08:27:16 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'elmdigest' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'elmdigest'\"
else
echo shar: Extracting \"'elmdigest'\" \(1097 characters\)
sed "s/^X//" >'elmdigest' <<'END_OF_FILE'
X#! /bin/sh
X#    This is 'elmdigest', a program to view a folder made from a digest.
X#    Copyright (C) 1990  David J. Camp
X#
X#    This program is free software; you can redistribute it and/or modify
X#    it under the terms of the GNU General Public License as published by
X#    the Free Software Foundation; either version 1, or (at your option)
X#    any later version.
X#
X#    This program is distributed in the hope that it will be useful,
X#    but WITHOUT ANY WARRANTY; without even the implied warranty of
X#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X#    GNU General Public License for more details.
X#
X#    You should have received a copy of the GNU General Public License
X#    along with this program; if not, write to the Free Software
X#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# david@wubios.wustl.edu             ^     Mr. David J. Camp
X# david%wubios@wugate.wustl.edu    < * >   +1 314 382 0584
X# ...!uunet!wugate!wubios!david      v     "God loves material things."
X#
Xset -v
Xdedigest > /tmp/di$$
Xelm -f /tmp/di$$ < /dev/tty
X/bin/rm /tmp/di$$
END_OF_FILE
if test 1097 -ne `wc -c <'elmdigest'`; then
    echo shar: \"'elmdigest'\" unpacked with wrong size!
fi
chmod +x 'elmdigest'
# end of 'elmdigest'
fi
if test -f 'dedigest' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'dedigest'\"
else
echo shar: Extracting \"'dedigest'\" \(1301 characters\)
sed "s/^X//" >'dedigest' <<'END_OF_FILE'
X#! /usr/bin/perl
X#    This is 'dedigest' a program to convert a digest to a folder.
X#    Copyright (C) 1990  David J. Camp
X#
X#    This program is free software; you can redistribute it and/or modify
X#    it under the terms of the GNU General Public License as published by
X#    the Free Software Foundation; either version 1, or (at your option)
X#    any later version.
X#
X#    This program is distributed in the hope that it will be useful,
X#    but WITHOUT ANY WARRANTY; without even the implied warranty of
X#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X#    GNU General Public License for more details.
X#
X#    You should have received a copy of the GNU General Public License
X#    along with this program; if not, write to the Free Software
X#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# david@wubios.wustl.edu             ^     Mr. David J. Camp
X# david%wubios@wugate.wustl.edu    < * >   +1 314 382 0584
X# ...!uunet!wugate!wubios!david      v     "God loves material things."
X#
Xwhile (<>)
X    {
X    if (/^-------------------------------*$/)
X        {
X        print "From dummy Wed Feb  29 12:12:12 1990\n";
X        do
X            {
X            $_ = <>;
X            }
X            until (eof() || 0 != tr/\041-\177/\041-\177/);
X        }
X    print $_;
X    }
END_OF_FILE
if test 1301 -ne `wc -c <'dedigest'`; then
    echo shar: \"'dedigest'\" unpacked with wrong size!
fi
chmod +x 'dedigest'
# end of 'dedigest'
fi
echo shar: End of shell archive.
exit 0