UNDER DEVELOPMENT
#! /usr/bin/perl -w

$usage = "$0 FROMFILE FOLDER > NEWFOLDER";

# This script reads FOLDER and extrcats the messages whose
# "From " lines are listed in the FROMFILE.

sub myopen($)
{
  my ($f) = @_;
  local *F;
  if ($f eq "-")
    { return *STDIN; }
  else
    { if(open(F,$f)) { return *F; }
      return undef
    }
}

sub BEGIN()
{
  # parse options 
  my ($folder,$fromfile,@fromlines,$k,$i,$r,$a,$f,$usage,@files,%seen);
  if ($#ARGV != 1) { opterror("wrong number of parameters"); }
  $fromfile = $ARGV[0];
  $folder = $ARGV[1];

  @fromlines = readlines($fromfile);
  splitmessages(@fromlines,$folder);
  exit 0;
}