aboutsummaryrefslogtreecommitdiff
path: root/lib/Sietima.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Sietima.pm')
-rw-r--r--lib/Sietima.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/Sietima.pm b/lib/Sietima.pm
index 1e463ec..704d4f8 100644
--- a/lib/Sietima.pm
+++ b/lib/Sietima.pm
@@ -54,11 +54,11 @@ sub handle_mail {
return;
}
-sub addresses_to_send_to {
+sub subscribers_to_send_to {
state $check = compile(Object,EmailMIME);
my ($self,$incoming_mail) = $check->(@_);
- return [ map { $_->address } @{$self->subscribers} ];
+ return $self->subscribers;
}
sub munge_mail {
@@ -68,7 +68,10 @@ sub munge_mail {
return Sietima::Message->new({
mail => $incoming_mail,
from => $self->return_path,
- to => $self->addresses_to_send_to($incoming_mail),
+ to => [
+ map { $_->address }
+ @{$self->subscribers_to_send_to($incoming_mail)},
+ ],
});
}