AppleScript: Alle Away Messages aus Adium auslesen und darstellen

[sticki]

Hallo,

ich bin gerade dabei, mir ein AppleScript zu schreiben, welches alle Away Messages aus Adium ausliest und dann darstellt.
Meine Gehversuche:

tell application "Adium"
	set messagelist to (status message of every contact whose status type is not "offline" and status message is not "")
	set mllength to count of messagelist
	set a to 1
	set nl to {}
	repeat mllength times
		if item a of messagelist as string is not "missing value" then
			set nl to nl & item a of messagelist & "

"
		end if
		set a to a + 1
	end repeat
	display dialog nl as string buttons {"OK"} default button {"OK"}
end tell

das funktioniert soweit schon gut, allerdings hätte ich vor jeder away message noch gerne den usernamen stehen.
weiss da jemand eine lösung?

als zweites hätte ich noch gerne so etwas wie eine 'QuickSearch'-Funktion, d.h. ich kann meine Kontaktliste nach einem bestimmten Namen durchsuchen und diesem dann eine Nachricht schreiben.
Mein Versuch hierzu:

tell application "Adium"
	set contactlist to (display name of every contact)
	set a to display dialog "Bitte gesuchten Namen eingeben" buttons {"Abbrechen", "OK"} default button {"OK"} default answer ""
	set sname to text returned of a
	if (contactlist contains sname) then
		set b to (display dialog sname & " gefunden! zu sendender Text:" default answer "")
		send (first contact whose display name is sname) message (text returned of b)
	else
		display dialog "leider keine Übereinstimmung!" buttons {"OK"} default button {"OK"}
	end if
end tell

nachteil hierbei: es funktioniert wirklich nur, wenn der name exakt übereinstimmt. kryptische benutzernamen sind also schwer zu erreichen.
hätte hier jemand eine verbesserungsidee?

grüße...