- # Remove any "DomainKeys" (or similar) header lines.
- # Any modifications (including List-Id) will cause a message
- # to appear invalid
- foreach my $h (qw(domainkey-signature dkim-signature
- authentication-results)) {
- $simple->header_set($h);
- }
-}
-
-# returns a 3-element array: name, email, date
-sub author_info {
- my ($class, $mime) = @_;
-
- my $from = $mime->header('From');
- my @from = Email::Address->parse($from);
- my $name = $from[0]->name;
- my $email = $from[0]->address;
- ($name, $email, $mime->header('Date'));