On Thu, 16 Mar 2006 23:24:38 -0800 Robert Spier <[EMAIL PROTECTED]> wrote:
> > + my ($rcpt) = ($rcpt_parameter =~ m/^to:\s*(<[^>]*>)/i)[0];
> > + # support addresses without <> ... maybe we shouldn't?
> > + ($rcpt) = "<" . ($rcpt_parameter =~ m/^to:\s*(\S+)/i)[0] . ">"
> > + unless $rcpt;
>
> It's perfectly valid perl, but it's hard to read.
It's nearly a 1:1 copy from sub mail() in same file...
Hanno
