adium/adium

Today's lesson in not using Apple's private methods: somewhere between old/886f95f00431 and #9620 Apple changed their document icon setup process. Use the new methods and fix #9620.
(transplanted from 5cf365ce9352d25978ffd6073d3bc07573aba518)
global HandyAdiumScripts
on run
tell application "Adium"
set newChatWindow to HandyAdiumScripts's makeNewChatWindow()
set c to count of chat windows
close newChatWindow
delay 1
if (count of chat windows) is not c - 1 then error ("Count of chat windows is " & (count of chat windows) & " when it should be " & (c - 1))
end tell
end run