blob: dcb0dbcab46cceecd7ac74b661c1c0a2c23b78fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
package Mail::Mailer::rfc822;
use vars qw(@ISA);
@ISA = qw(Mail::Mailer);
sub set_headers {
my $self = shift;
my $hdrs = shift;
local($\)="";
foreach(keys %$hdrs) {
next unless m/^[A-Z]/;
print $self "$_: ", join(",", $self->to_array($hdrs->{$_})), "\n";
}
print $self "\n"; # terminate headers
}
1;
|
