Applescript Mail duplicate removal

Question

Hi all,
I have a problem with duplicate email messages and thought I'd take a stab at an applescript solution.  Tried using a few sorting/searching type strategies but the size of the mailboxes just made it too slow and unwieldy.  But I noticed that in the viewer, duplicate messages are not visible.  (Seems like if Mail has the ability to notice duplicates it should just as easily make it an option to flush them, but maybe I'm naive.)  Anyway, thought I would use that knowledge to remove duplicates myself with the script below.  It works so far, but my concern is whether there are *any* reason a message would not be visible yet not a duplicate.  Does anyone know?  This is lightning fast compared to my other attempts and so far seems to only find duplicates.
tell application "Mail"
          set theViewer to front message viewer
          set msglist to visible messages of theViewer
          set IDlist to {}
          repeat with msg in msglist
       copy (id of msg) to end of IDlist
          end repeat
          set allmsgs to messages of theViewer
          set dupcount to 0
          repeat with msg in allmsgs
                         if (id of msg) is not in IDlist then
                                        move msg to mailbox "Deleteme" of account "myaccount"
                                        set dupcount to dupcount + 1
                        end if
          end repeat
          say "Moved " & (dupcount as rich text) & " messages to mailbox deleteme"
end tell

Answer 1

Did you have any luck with this script as I have also been looking for something to do this, at the moment I'm having to use Entourage to perform the function.