Remove duplicate Address Book emails

Question

I'm trying to write a script that walks through the currently selected Address Book entries, checks for duplicate email addresses, and removes any duplicates that it finds. Here's what I came up with:
<pre>tell application "Address Book"
set the_selection to selection
repeat with this_person in the_selection
set unique_emails to {}
set duplicate_emails to {}
repeat with this_email in every email of this_person
if the value of this_email is in unique_emails then
copy the contents of this_email to the end of duplicate_emails
else
copy the value of this_email to the end of unique_emails
end if
end repeat
repeat with this_email in duplicate_emails
remove this_email from this_person's emails
end repeat
end repeat
end tell</pre>
It seems like this should work, but when I try to run it, I get:
<pre>Address Book got an error: NSReceiversCantHandleCommandScriptError</pre>
I believe the first repeat clause is correct; the error comes in the call to remove. I just can't figure out how to remove the emails listed in duplicate_emails from Address Book. Any suggestions? TIA
PowerBook G4   Mac OS X (10.4.3)  

Answer 1

Yes, that's because of the emails is reduced by one -every time- after the script encounters the second address. On the third encounter the index for this email address is 3, but the actual index of it is 2 -because the second one got deleted, is that make sense?
Yes, I'm just surprised that this is necessary. In some other programming languages (such as Java's collections API), keeping track of indices is not necessary because you can delete an element on the fly and the iterator object will adjust itself accordingly.
Anyway, even though the second repeat loop is not strictly necessary, I'd rather do that than have to deal with index-based loops. The second loop approach is easier to read and understand, I think.
I've posted the final version of the script here: http://vocaro.com/trevor/software/applescript/
Thank you for your help; I appreciate it!
PowerBook G4   Mac OS X (10.4.3)