david@wubios.wustl.edu (David J. Camp) (12/13/90)
Here is a new release of my 'digest' program, formerly called 'elmdigest'. Run it from the elm menu or from the after-message prompt like this: |digest This will start an elm session as a child process, using the digest selected in the menu in the format of a folder. I no longer am using shar, because it is only one file. Please report any incompatibilities and suggestions for improvments to me. This is by its nature an ad-hoc program, and will require constant upgrades to track the many digest formats. -David- #! /usr/bin/perl # # This is 'digest' a program to run elm on a digest as a folder. # Copyright (C) 1990 David J. Camp # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 1, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # david@wubios.wustl.edu ^ Mr. David J. Camp # david%wubios@wugate.wustl.edu < * > +1 314 382 0584 # ...!uunet!wugate!wubios!david v "God loves material things." # open (FOLDER, ">/tmp/dig$$"); while (<>) { if (/^------------------------------*$/) { print FOLDER "From dummy Wed Feb 29 12:12:12 1990\n"; do { $_ = <>; } until (eof() || /[\041-\177]/); } print FOLDER $_; } close (FOLDER); exec ("elm -f /tmp/dig$$ < /dev/tty ; /bin/rm -f /tmp/dig$$");