AppleScriptコミュのテキストをUTF-8形式で保存するには？

みなさんこんにちは
AppleScript初心者です。

勉強しようにも適当な書籍も見つからず困っていたところこのコミュニティーを見つけました。よろしくお願いします。

MacOS XのMailで受け取ったメールの本文を自動的にテキストファイルへ保存したいのです。MailのルールからAppleScriptを実行してテキストファイルを作るところまでは出来たのですが、出来るテキストファイルのテキストエンコーディングをUTF-8にしたいのです。下がソースです。

using terms from application "Mail"
on perform mail action with messages theMessages for rule theRule
tell application "Mail"

repeat with eachMessage in theMessages
set theText to content of eachMessage
end repeat
end tell

set uni8 to theText as «class utf8»
set fileNum to open for access file "Macintosh HD:test.xml" with write permission
write theText to fileNum
close access fileNum

end perform mail action with messages

end using terms from

これで出来るファイルのエンコーディングはShift-JISになってしまいます。

よろしくお願いします。