--- CVSROOT/loginfo.pl	2008/10/22 22:18:41	1.8
+++ CVSROOT/loginfo.pl	2011/07/04 18:32:49	1.10
@@ -25,6 +25,7 @@ my $cvsroot    = $ENV{CVSROOT}."/";
 # remove double trailing slash
 $cvsroot =~ s/\/\/$/\//;
 my $cvsusers   = "/repository/CVSROOT/cvsusers";
+my $cvshost = "source.lon-capa.org";
 
 # get the id of this process group for use in figuring out
 # whether this is the last directory with checkins or not
@@ -33,8 +34,7 @@ my $id = getpgrp();
 # the command line looks something like this for a normal commit:
 #  ("user@example.com", "cvsuser",
 #   "module changedfile,1.1,1.2 addedfile,NONE,1.1 removedfile,1.1,NONE")
-my $mailfrom = shift;
-my $mailto = $mailfrom;
+my $mailto = shift;
 my $envaddr = $mailto;
 
 my $cvsuser = shift;
@@ -195,7 +195,7 @@ if (open FD, $cvsusers) {
 	close(FD);
 }
 
-$from ||= "$cvsuser <$mailfrom>";
+$from ||= "$cvsuser <$cvsuser\@$cvshost>";
 
 # "Reply-to: $mailto\n".
 # "Date: ".localtime()."\n".
@@ -233,17 +233,18 @@ if (length($diffmsg) > 8000) {
 		"\n".
 		"This is a MIME encoded message\n\n".
 		"--$boundary\n".
-		"Content-Type: text/plain\n".
+		'Content-Type: text/plain; charset="us-ascii"'."\n".
 		"\n".
 		$common_body.
 		"--$boundary\n".
-		"Content-Type: text/plain\n".
+		'Content-Type: text/plain; charset="us-ascii"'."\n".
 		"Content-Disposition: attachment; filename=\"$cvsuser-$now.txt\"\n".
 		"\n".
 		"$diffmsg\n".
 		"--$boundary--\n";
 } else {
 	$email = $common_header.
+                'Content-Type: text/plain; charset="us-ascii"'."\n".
 		"\n".
 		$common_body.
 		"$diffmsg\n";