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 newChat to HandyAdiumScripts's makeNewChat()
set n to (HandyAdiumScripts's defaultService & "." & HandyAdiumScripts's defaultParticipant)
if (get id of newChat) is not n then
close newChat --restore
error
end
close newChat --restore
end tell
end run