#! /usr/bin/awk -f
#
#	Tiny ML filter by motonori@wide.ad.jp on Mar.16,1994
#
# entries for /etc/aliases:
#	hoge-ml:		"| /this/script | /usr/lib/sendmail -oi -fhoge-request hoge-recipients"
#	hoge-recipients:	:include: /member/list/file
#	hoge-request:		administrator

BEGIN {skip = 0; rplto = 0}
/^$/ {
	if (!rplto){
		print "Reply-To: hoge-ml"; rplto = 1;
	}
}
/^$/, NR == 0 {print; next;}
/^Reply-To:/ {print; rplto = 1; next;}
/^(X-Ml-Name|Received|Return-Path|Return-Receipt-To):/ {skip = 1; next;}
/^[ 	]/ && skip == 1 {next;}
{skip = 0};
/^From:/ {
	print "Precedence: list";
	print "X-Ml-Name: hoge-ml";
	print;
	next;
}
{print;}
