Index: cfg_local.pm
===================================================================
RCS file: /home/ncvs/CVSROOT/cfg_local.pm,v
retrieving revision 1.15
diff -u -r1.15 cfg_local.pm
--- cfg_local.pm	15 Jan 2003 01:51:18 -0000	1.15
+++ cfg_local.pm	24 Jan 2003 22:23:13 -0000
@@ -91,5 +91,9 @@
 	'other'		=> '.*'
 );
 
+@MAILADDRS_FILE_MAP = (
+	'cvs-all@FreeBSD.org'			=> '.*'
+);
+
 1; # Perl requires all modules to return true.  Don't delete!!!!
 #end
Index: log_accum.pl
===================================================================
RCS file: /home/ncvs/CVSROOT/log_accum.pl,v
retrieving revision 1.119
diff -u -r1.119 log_accum.pl
--- log_accum.pl	18 Aug 2002 23:01:17 -0000	1.119
+++ log_accum.pl	24 Jan 2003 22:23:13 -0000
@@ -418,6 +418,7 @@
 
 
 sub mail_notification {
+	my $dir = shift;
 	my @text = @_;
 
 # This is turned off since the To: lines go overboard.
@@ -436,6 +437,15 @@
 	my @email = ();
 
 	my $to = $cfg::MAILADDRS;
+
+	for my $i (0 .. ($#cfg::MAILADDRS_FILE_MAP - 1) / 2) {
+		my $pattern = $cfg::MAILADDRS_FILE_MAP[$i * 2 + 1];
+		if ($dir =~ /$pattern/) {
+			$to = $cfg::MAILADDRS_FILE_MAP[$i * 2];
+			last;
+		}
+	}
+
 	print "Mailing the commit message to '$to'.\n";
 
 	push @email, "To: $to" if $cfg::ADD_TO_LINE;
@@ -672,7 +682,7 @@
 
 	push @text, "  $input_params";
 	&do_changes_file(@text);
-	&mail_notification(@text) if $cfg::MAIL_ON_DIR_CREATION;
+	&mail_notification($directory, @text) if $cfg::MAIL_ON_DIR_CREATION;
 	&cleanup_tmpfiles();
 	exit 0;
 }
@@ -696,7 +706,7 @@
 	&append_line($TAGS_FILE, $vendor_tag) if $vendor_tag;
 
 	&do_changes_file(@text);
-	&mail_notification(@text);
+	&mail_notification($directory, @text);
 	&cleanup_tmpfiles();
 	exit 0;
 }
@@ -892,7 +902,7 @@
 	#
 	# Mail out the notification.
 	#
-	&mail_notification(@log_msg);
+	&mail_notification($directory, @log_msg);
 }
 
 &cleanup_tmpfiles();