Apple Mail.app の重複メールを何とかする

-- Mail.app で選択中の受信箱を対象に重複メールを探す
-- 判定基準: message id
-- 重複メールを受信箱のサブフォルダ duplicate に移動

-- タイムアウトをデフォルトの120から大幅に増やしておく
with timeout of 1800 seconds
	
	
	tell application "Mail"
		-- 選択中のメッセージを取得
		set selMsgs to selection
		if selMsgs is {} then
			display dialog "対象となる受信箱を決めるために、メールを1通選択してください。" buttons {"OK"} default button 1
			return
		end if
		
		-- 最初に選択されたメッセージの所属メールボックスを基準にする
		set targetBox to mailbox of item 1 of selMsgs
		set targetAccount to account of targetBox
		
		-- そのメールボックス内のすべてのメッセージを取得
		set theMessages to messages of targetBox
		
		set seenIDs to {}
		set dupList to {}
		
		repeat with aMessage in theMessages
			try
				set mid to message id of aMessage
			on error
				set mid to ""
			end try
			
			if mid is not "" then
				if seenIDs contains mid then
					set end of dupList to aMessage
				else
					set end of seenIDs to mid
				end if
			end if
		end repeat
	end tell
	
	-- 結果を表示して移動確認
	set dupCount to (count of dupList)
	if dupCount is 0 then
		display dialog "重複メールは見つかりませんでした。" buttons {"OK"} default button 1
	else
		set msgText to "重複メールが " & dupCount & " 件見つかりました。
移動しますか？"
		set userChoice to button returned of (display dialog msgText buttons {"キャンセル", "移動"} default button "移動")
		
		if userChoice is "移動" then
			tell application "Mail"
				-- duplicate メールボックスを探す or 作成
				set dupBox to missing value
				repeat with mb in mailboxes of targetAccount
					if name of mb is "duplicate" then
						set dupBox to mb
						exit repeat
					end if
				end repeat
				
				if dupBox is missing value then
					set dupBox to make new mailbox at targetAccount with properties {name:"duplicate"}
				end if
				
				-- 重複メールを移動
				repeat with d in dupList
					move d to dupBox
				end repeat
			end tell
			display dialog "重複メールを「duplicate」フォルダへ移動しました。" buttons {"OK"} default button 1
		end if
	end if
	
end timeout