diff options
| author | fukachan <fukachan> | 2001-02-19 01:58:10 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-02-19 01:58:10 +0000 |
| commit | a5aacf2828be0b0ff38ba19f8a3d84d4073ce8ca (patch) | |
| tree | dadf54a0a22eca93e375a5ec15759080b62dc39b /fml/lib | |
| parent | 92c65006fb5138a24297ffcc43084f5cb1d3f2ea (diff) | |
| download | fml8-a5aacf2828be0b0ff38ba19f8a3d84d4073ce8ca.tar.gz fml8-a5aacf2828be0b0ff38ba19f8a3d84d4073ce8ca.tar.bz2 fml8-a5aacf2828be0b0ff38ba19f8a3d84d4073ce8ca.zip | |
$header->delete_unsafe_header_fields() which removes
$unsafe_header_fields e.g. Return-Receipt-To:
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Header.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index 3b4afe6b..a8087601 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.pm @@ -178,6 +178,14 @@ sub remove_subject_tag_like_string } +sub delete_unsafe_header_fields +{ + my ($header, $config, $args) = @_; + my (@fields) = split(/\s+/, $config->{ unsafe_header_fields }); + for (@fields) { $header->delete($_);} +} + + =head1 SEE ALSO L<Mail::Address> |