diff options
| author | fukachan <fukachan> | 2003-10-15 11:57:02 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-10-15 11:57:02 +0000 |
| commit | a4da23b3d1edab3e6903967f735fa9bc224b2a11 (patch) | |
| tree | e0bd950e7249fa03d532d7cfec9b67f08eafd2ae /fml/lib | |
| parent | 8262b009f1a53ac6fba52f73fad5f6b08240c63c (diff) | |
| download | fml8-a4da23b3d1edab3e6903967f735fa9bc224b2a11.tar.gz fml8-a4da23b3d1edab3e6903967f735fa9bc224b2a11.tar.bz2 fml8-a4da23b3d1edab3e6903967f735fa9bc224b2a11.zip | |
messager/rfc822 part not need charset ;)
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Command/SendFile.pm | 5 | ||||
| -rw-r--r-- | fml/lib/FML/Digest.pm | 5 |
2 files changed, 4 insertions, 6 deletions
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm index 18f032e6..1cab0f8c 100644 --- a/fml/lib/FML/Command/SendFile.pm +++ b/fml/lib/FML/Command/SendFile.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: SendFile.pm,v 1.32 2003/10/14 12:57:44 fukachan Exp $ +# $FML: SendFile.pm,v 1.33 2003/10/15 01:03:29 fukachan Exp $ # package FML::Command::SendFile; @@ -85,7 +85,6 @@ sub send_article my $config = $curproc->config(); my $ml_name = $config->{ ml_name }; my $spool_dir = $config->{ spool_dir }; - my $charset = $curproc->get_charset("template_file"); my $is_error = 0; # command buffer = get 1 @@ -103,7 +102,7 @@ sub send_article if (-f $filepath) { $curproc->log("send back article $filename"); $curproc->reply_message( { - type => "message/rfc822; charset=$charset", + type => "message/rfc822", path => $filepath, filename => $filename, disposition => "$ml_name ML article $filename", diff --git a/fml/lib/FML/Digest.pm b/fml/lib/FML/Digest.pm index 79bc861d..a686ec1a 100644 --- a/fml/lib/FML/Digest.pm +++ b/fml/lib/FML/Digest.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Digest.pm,v 1.12 2003/08/29 15:33:54 fukachan Exp $ +# $FML: Digest.pm,v 1.13 2003/10/14 12:57:42 fukachan Exp $ # package FML::Digest; @@ -185,7 +185,6 @@ sub create_multipart_message my $config = $curproc->config(); my $ml_name = $config->{ ml_name }; my $ml_addr = $config->{ address_for_post }; - my $charset = $curproc->get_charset("template_file"); my $seq_file = $config->{ digest_sequence_file }; my $rcptmaps = $config->get_as_array_ref('digest_recipient_maps'); my $count_ok = 0; @@ -208,7 +207,7 @@ sub create_multipart_message my $filepath = $article->filepath($filename); if (-f $filepath) { $curproc->reply_message( { - type => "message/rfc822; charset=$charset", + type => "message/rfc822", path => $filepath, filename => $filename, disposition => "$ml_name ML article $filename", |