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()
if (get index of chat 1 of newChatWindow) is not 1 then
close newChatWindow --restore
error
end
close newChatWindow --restore
end tell
end run