🚀 go-pugleaf

	Hi, I've figured out how I may have a new Fcc: file each day
(see script) below.  I'll generate new components and replcomps
files each night.  I have two questions:

	* If I am replying to joe@somewhere.com, how can I strip
	the "@somewhere.com" so that I can Fcc: to "joe"?  In mush
	this is "cmd sa  save -a +".

	* If I am Fcc'ing more than one file (chronologically and by person),
	how may I have them be links instead of two files (inodes...)?

	Here's my script that I'll be running nightly:


#!/usr/bin/perl
#
#	makecomp - update my mh comp file template
#	dansmith@autodesk.com, January 1993

require <ctime.pl>;
$Date = &ctime(time);

($i, $month, $day, $i, $year) = split(' ', &ctime(time));

open (COMP_FILE, "> /home/dansmith/text/Mail/components") ||
	die "gee..can't update components file!\n";

#	updates go here...
print COMP_FILE <<"EOF";
To: 
cc:
Subject:
X-Organization: Autodesk, Sausalito, CA
Fcc: $year/$month/$day
--------

EOF

close COMP_FILE;

#	and now, generate a custom replcomps file...


open (COMP_FILE, "> /home/dansmith/text/Mail/replcomps") ||
	die "gee..can't update replcomps file!\n";

#	updates go here... (this is just the standard replcomp with added '\'s)
print COMP_FILE <<"EOF";
%(lit)%(formataddr %<{reply-to}%|%<{from}%|%<{sender}%|%<{return-path}%>%>%>%>)\\
%<(nonnull)%(void(width))%(putaddr To: )\\n%>\\
%(lit)%(formataddr{to})%(formataddr{cc})%(formataddr(me))\\
%<(nonnull)%(void(width))%(putaddr cc: )\\n%>\\
Fcc: $year/$month/$day %{from} \\n\\
%<{subject}Subject: Re: %{subject}\\n%>\\
%<{date}In-reply-to: Your message of "\\
%<(nodate{date})%{date}%|%(pretty{date})%>."%<{message-id}
             %{message-id}%>\\n%>\\
--------

EOF

close COMP_FILE


				Daniel
-- 
 dansmith@autodesk.com       daniel@world.std.com       dansmith@well.sf.ca.us
        Daniel Smith, Autodesk, Sausalito, California, (415) 332-2344 x 2580