===================================================================
RCS file: /home/cvs/CVSROOT/log_generate.pl,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -p -r1.1 -r1.4
--- CVSROOT/log_generate.pl	1999/10/27 17:28:27	1.1
+++ CVSROOT/log_generate.pl	2000/09/22 17:11:37	1.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $OpenXM$
+# $OpenXM: CVSROOT/log_generate.pl,v 1.3 1999/11/12 15:18:10 maekawa Exp $
 #
 # Most parts obtained from FreeBSD.org and modified for OpenXM
 #
@@ -271,7 +271,6 @@ sub mlist_map {
 }    
 
 sub do_changes_file {
-    local($changes,$category,@mailaddrs);
     local(@text) = @_;
     local(%unique);
 
@@ -293,7 +292,7 @@ sub mail_notification {
     if ($debug) {
 	open(MAIL, "| /usr/sbin/mailsend -H $owner$dom");
     } else {
-	open(MAIL, "| /usr/sbin/mailsend -H cvs-committers$dom");
+	open(MAIL, "| /usr/sbin/mailsend -H cvs-committers\@openxm\.org");
     }
 
 # This is turned off since the To: lines go overboard.
@@ -350,8 +349,8 @@ sub mail_notification {
 #
 umask (002);
 $host = hostname();
-if ($host =~ /^kerberos\.math\.kobe-u\.ac\.jp$/i) {
-    $dom = '@kerberos.math.kobe-u.ac.jp';
+if ($host =~ /^kerberos\.math\.sci\.kobe-u\.ac\.jp$/i) {
+    $dom = '@kerberos.math.sci.kobe-u.ac.jp';
     $owner = 'maekawa';
 }