sub commit_notify_list ($@) { #{{{
my $committer=shift;
-
- my @pages;
- foreach my $file (@_) {
- push @pages, grep { $pagesources{$_} eq $file } keys %pagesources;
- }
-
+ my @pages = map pagename($_), @_;
+
my @ret;
my $userinfo=userinfo_retrieve();
foreach my $user (keys %{$userinfo}) {
length $userinfo->{$user}->{subscriptions} &&
exists $userinfo->{$user}->{email} &&
length $userinfo->{$user}->{email} &&
- grep { pagespec_match($_, $userinfo->{$user}->{subscriptions}, "") } @pages) {
+ grep { pagespec_match($_,
+ $userinfo->{$user}->{subscriptions},
+ user => $committer) }
+ map pagename($_), @_) {
push @ret, $userinfo->{$user}->{email};
}
}