41 |
-format => 'mail-rfc2822', |
-format => 'mail-rfc2822', |
42 |
-header_default_charset => 'iso-2022-int-1', |
-header_default_charset => 'iso-2022-int-1', |
43 |
-header_default_charset_input => 'iso-2022-int-1', |
-header_default_charset_input => 'iso-2022-int-1', |
44 |
|
-hook_init_fill_options => sub {}, |
45 |
|
-hook_stringify_fill_fields => sub {}, |
46 |
-linebreak_strict => 0, |
-linebreak_strict => 0, |
47 |
-line_length_max => 60, ## For folding |
-line_length_max => 60, ## For folding |
48 |
#ns_default_phuri |
#ns_default_phuri |
118 |
push @new_fields, ($name => $options{$name}); |
push @new_fields, ($name => $options{$name}); |
119 |
} |
} |
120 |
} |
} |
121 |
|
&{ $self->{option}->{hook_init_fill_options} } ($self, $self->{option}); |
122 |
$self->_init_by_format ($self->{option}->{format}, $self->{option}); |
$self->_init_by_format ($self->{option}->{format}, $self->{option}); |
123 |
# Make alternative representations of @header_order. This is used |
# Make alternative representations of @header_order. This is used |
124 |
# for sorting. |
# for sorting. |
674 |
$option{format} = $params{-format} if $params{-format}; |
$option{format} = $params{-format} if $params{-format}; |
675 |
$self->_init_by_format ($option{format}, \%option); |
$self->_init_by_format ($option{format}, \%option); |
676 |
for (grep {/^-/} keys %params) {$option{substr ($_, 1)} = $params{$_}} |
for (grep {/^-/} keys %params) {$option{substr ($_, 1)} = $params{$_}} |
677 |
|
## Fill required fields |
678 |
|
my %exist; |
679 |
|
for ($self->field_name_list) {$exist{$_} = 1} |
680 |
|
&{ $option{hook_stringify_fill_fields} } ($self, \%exist, \%option); |
681 |
my @ret; |
my @ret; |
682 |
## RFC 2774 numerical field name prefix |
## RFC 2774 numerical field name prefix |
683 |
my %nprefix; |
my %nprefix; |