45 |
$self->SUPER::_init (%$DEFAULT, %option); |
$self->SUPER::_init (%$DEFAULT, %option); |
46 |
|
|
47 |
unless (defined $self->{option}->{fill_ct}) { |
unless (defined $self->{option}->{fill_ct}) { |
48 |
$self->{option}->{fill_ct} = $self->{option}->{format} =~ /rfc2822|news-usefor|http|mime/; |
$self->{option}->{fill_ct} = $self->{option}->{format} =~ /rfc2822|news-usefor|http|mime|news-son-of-rfc1036/; |
49 |
} |
} |
50 |
if ($self->{option}->{format} =~ /http/) { |
if ($self->{option}->{format} =~ /http/) { |
51 |
$self->{option}->{use_normalization} = 0; |
$self->{option}->{use_normalization} = 0; |