digest routine can customizes header. XXX preliminary support. needs overhaul?

1 files changed, 10 insertions, 2 deletions

diff --git a/fml/lib/FML/Digest.pm b/fml/lib/FML/Digest.pm
index 3ec8bfe8..d04b7ea5 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.1 2002/11/17 08:04:03 fukachan Exp $
+# $FML: Digest.pm,v 1.2 2002/11/17 14:07:33 fukachan Exp $
 #
 
 package FML::Digest;
@@ -148,12 +148,20 @@ sub create_multipart_message
     my $curproc   = $self->{ _curproc };
     my $config    = $curproc->{ config };
     my $ml_name   = $config->{ ml_name };
+    my $ml_addr   = $config->{ address_for_post };
     my $charset   = $config->{ template_file_charset };
     my $seq_file  = $config->{ digest_sequence_file };
     my $rcptmaps  = $config->get_as_array_ref('digest_recipient_maps');
-    my $msgopts   = { recipient_maps => $rcptmaps }; 
     my $count_ok  = 0;
     my $count_err = 0;
+    my $msgopts   = {
+	recipient_maps => $rcptmaps,
+	header         => {
+	    'subject'  => "$ml_name ML digest $range",
+	    'to'       => $ml_addr,
+	    'reply-to' => $ml_addr,
+	}
+    }; 
 
     Log("send back articles range=$range");