#!/bin/sh
#
#	All rights reserved, copyright (c) 2009, Mitzyuki IMAIZUMI
#	$Id: DupmailMac,v 1.1 2009/09/30 09:25:09 mitz Exp $
#

exec 2> /dev/null

# Mac のメールボックスのデフォルトロケーション
basedir="${HOME}/Library/Mail"

find ${basedir} -name "*.mbox" -a -type d |
while read folder
do
	if [ -d "${folder}/Messages" ]
	then
		awk '{
			# 大文字小文字を区別しないために全部小文字に変換
			if(tolower($1) ~ /^message-id:/){
				# 入力行を `:' で分割する (line[2]: message-id)
				split($0, line, ":");
				# message-id から余計なスペース、 <、> を削除
				gsub("[<> ]", "", line[2]);

				if(message[line[2]] != "")
					# message-id に対応するファイルがある場合はファイル名を表示
					print FILENAME;
				else
					# message-id に対応するファイルがない場合はファイル名を格納
					message[line[2]] = FILENAME;
			}
		}' ${folder}/Messages/* |
		# ファイルの削除
		sort | uniq | xargs rm
	fi
done