#!/bin/sh
#
#	$Id: dupmail,v 1.1 2006/05/16 05:25:09 mitz Exp $
#

folders="${*:-inbox}"

for folder in $folders
do
	cd `mhpath +$folder`
	grep -i '^message-id:' * |
	awk '{
		# line[1]: ファイル名
		# line[3]: message-id
		split($0, line, ":");
		gsub("[<> ]", "", line[3]);

		if(message[line[3]] != "")
			# message-id に対応するファイルがある場合はファイル名を表示
			print line[1];
		else
			# message-id に対応するファイルがない場合はファイル名を格納
			message[line[3]] = line[1];
		}' |
	xargs rmm +$folder && folder -pack +$folder 
done