#!/usr/local/bin/perl
#
#NAME
#  Folder - set current email folder name
#
#SYNOPSIS
#  Folder name
#
#REQUIRES
#
	$LNAM = $ENV{'LOGNAME'} || $ENV{'USER'};
	$HOME = $ENV{'HOME'} || "/home/$LNAM";
	@INC = ($HOME, "$HOME/mh","$HOME/sh",@INC);
	require 'jcmh.pm';
#
#DESCRIPTION
#  This lists messages from an mh-style directory.
#
#OPTIONS
#
#EXAMPLES
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>

$| = 1;

for $a (@ARGV) {
	print "$0: Arg \"$a\"\n" if $V>2;
	if ($a =~ /^[-+]*(\w+)$/) {
		$fldr = $1;
		print "Folder \"$fldr\" from command line.\n" if $V>2;
	} else {
		print STDERR "$P: Unrecognized arg \"$a\" ignored.\n";
	}
}
print "Folder \"$fldr\"\n" if $V>1;

&setfolder($MDIR,$fldr);

exit 1;