At the start of May, Earl Hood wrote in reply to me:
> > I guess I could parse the email messages myself and pass the
> > bodies in as environmental variables to MHonArc. This solution
> > still would have the problem of deciding which email message
> > corresponded with which MHonArc file name.
> .... I recommended leveraging the annotation feature to get the
> desired effect. I.e. Pre-create an annotation for each message
> including the first few lines of a message and then use the
> $NOTE$ resource variable to include it in the index.
This turned out cleaner than I expected using the Mail::Box
modules, but I imagine the MIME::* suite allow the same sort of
thing.
foreach my $mail ( $folder->messages )
{
my @body = $mail->decoded->lines;
my $id = $mail->messageId;
foreach ( @body[0 .. 4] )
{
s/([^\w()'*~!.-])/sprintf '%%%02X', ord $1/eg
}
my $body = join( '%0D%0A', @body[0 .. 4] );
mhonarc::process_input(
"-annotate"
, "-outdir" , "../temp/$list"
, "-notetext", $body
, $id
);
}
I get the body of the message and its id and URL-escape it and
pass it to MHonArc. I use the resource variable, $NOTE$ in my rcfile to
put the annotation in the right URL. The only thing I don't like
is having to URL escape the string myself, but there doesn't seem
to be any MHonArc resource that will do it for me.
The other thing I don't like is the MIME garbage left in the body
after decoding, but I can't expect MHonArc to do that for me :-)
--
Greg Matheson Learn a third language and
Chinmin College be born again, again.
Taiwan Penpals Archive <URL: http://netcity.hinet.net/kurage>
