--- wforum.cgi.orig	Mon Feb  4 06:49:12 2002
+++ wforum.cgi	Sun Apr 21 19:08:03 2002
@@ -158,6 +158,9 @@
 # メール通知する際のメールアドレス
 $mailto = 'xxx@xxx.xxx';
 
+# メッセージIDのsuffix
+$msgid_suffix = 'wforum.mukai-rg@www.sfc.keio.ac.jp';
+
 # sendmailパス（メール通知する時）
 $sendmail = '/usr/sbin/sendmail';
 
@@ -1572,6 +1575,10 @@
 	print MAIL "MIME-Version: 1.0\n";
 	print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
 	print MAIL "Content-Transfer-Encoding: 7bit\n";
+	print MAIL "Message-Id: <$count.$msgid_suffix>\n";
+	if (!($in{'no'} eq 'new')){
+		print MAIL "In-Reply-To: <$in{'no'}.$msgid_suffix>\n";
+	}
 	print MAIL "X-Mailer: $ver\n\n";
 	print MAIL "$MailBody\n";
 	close(MAIL);