54 |
parse_all => -1, |
parse_all => -1, |
55 |
); |
); |
56 |
my @field_type_Structured = qw(cancel-lock |
my @field_type_Structured = qw(cancel-lock |
57 |
importance mime-version path precedence x-cite |
importance path precedence |
58 |
x-face x-mail-count x-msmail-priority x-priority x-uidl xref); |
x-face x-mail-count x-msmail-priority x-priority xref); |
59 |
for (@field_type_Structured) |
for (@field_type_Structured) |
60 |
{$DEFAULT{field_type}->{$_} = 'Message::Field::Structured'} |
{$DEFAULT{field_type}->{$_} = 'Message::Field::Structured'} |
61 |
my @field_type_Address = qw(approved bcc cc delivered-to disposition-notification-to |
my @field_type_Address = qw(approved bcc cc delivered-to disposition-notification-to |
98 |
{$DEFAULT{field_type}->{$_} = 'Message::Field::Subject'} |
{$DEFAULT{field_type}->{$_} = 'Message::Field::Subject'} |
99 |
for (qw(list-software user-agent server)) |
for (qw(list-software user-agent server)) |
100 |
{$DEFAULT{field_type}->{$_} = 'Message::Field::UA'} |
{$DEFAULT{field_type}->{$_} = 'Message::Field::UA'} |
101 |
|
for (qw(content-length lines max-forwards mime-version)) |
102 |
|
{$DEFAULT{field_type}->{$_} = 'Message::Field::Numval'} |
103 |
|
|
104 |
=head2 Message::Header->new ([%option]) |
=head2 Message::Header->new ([%option]) |
105 |
|
|