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.
adium-1.5.1
2012-04-29, Frank Dowsett
f2f4948265ab
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()
tell account (HandyAdiumScripts's defaultAccount)
set newChat2 to make new chat with contacts {contact (HandyAdiumScripts's otherParticipant)} at end of chats of (get window of newChat)
end tell
set c to count chats of (get window of newChat)
close newChat2
if (count chats of (get window of newChat)) is not c - 1 then error
close (get window of newChat)
end tell
end run