123 |
|
|
124 |
'list-software' => 'Message::Field::UA', |
'list-software' => 'Message::Field::UA', |
125 |
'user-agent' => 'Message::Field::UA', |
'user-agent' => 'Message::Field::UA', |
126 |
|
'resent-user-agent' => 'Message::Field::UA', |
127 |
server => 'Message::Field::UA', |
server => 'Message::Field::UA', |
128 |
|
|
129 |
## A message id |
## A message id |
159 |
reply-to resent-bcc |
reply-to resent-bcc |
160 |
resent-cc resent-to resent-from resent-sender return-path |
resent-cc resent-to resent-from resent-sender return-path |
161 |
return-receipt-to return-receipt-requested-to sender to x-abuse-reports-to |
return-receipt-to return-receipt-requested-to sender to x-abuse-reports-to |
162 |
x-admin x-approved |
x-admin x-approved x-beenthere x-confirm-reading-to |
|
x-beenthere |
|
|
x-confirm-reading-to |
|
163 |
x-complaints-to x-envelope-from x-envelope-sender |
x-complaints-to x-envelope-from x-envelope-sender |
164 |
x-envelope-to x-ml-address x-ml-command x-ml-to x-nfrom x-nto |
x-envelope-to x-ml-address x-ml-command x-ml-to x-nfrom x-nto |
165 |
x-rcpt-to x-sender x-x-sender)) |
x-rcpt-to x-sender x-x-sender)) |
166 |
{$DEFAULT{field_type}->{$_} = 'Message::Field::Address'} |
{$DEFAULT{field_type}->{$_} = 'Message::Field::Addresses'} |
167 |
for (qw(client-date date date-received delivery-date expires |
for (qw(client-date date date-received delivery-date expires |
168 |
expire-date nntp-posting-date posted posted-date received-date |
expire-date nntp-posting-date posted posted-date received-date |
169 |
reply-by resent-date |
reply-by resent-date |
483 |
unless ($body) { |
unless ($body) { |
484 |
$body = $type->new (-field_name => $name, |
$body = $type->new (-field_name => $name, |
485 |
-format => $self->{option}->{format}, |
-format => $self->{option}->{format}, |
486 |
-parse_all => $self->{option}->{parse_all}, |
-parse_all => $self->{option}->{parse_all}); |
|
field_name => $name, format => $self->{option}->{format}); |
|
487 |
} else { |
} else { |
488 |
$body = $type->parse ($body, -field_name => $name, |
$body = $type->parse ($body, -field_name => $name, |
489 |
-format => $self->{option}->{format}, |
-format => $self->{option}->{format}, |
490 |
-parse_all => $self->{option}->{parse_all}, |
-parse_all => $self->{option}->{parse_all}); |
|
field_name => $name,format => $self->{option}->{format}); |
|
491 |
} |
} |
492 |
} |
} |
493 |
$body; |
$body; |