on perform_mail_action(info)
tell application "Mail"
set selectedMessages to |SelectedMessages| of info
set theRule to |Rule| of info
repeat with eachMessage in selectedMessages
set theSubject to subject of eachMessage
set theSender to sender of eachMessage
set theContent to content of eachMessage
tell application "GrowlHelperApp"
set the allNotificationsList to ¬
{"New Mail"}
set the enabledNotificationsList to ¬
{"New Mail"}
register as application ¬
"MailScript" all notifications allNotificationsList ¬
default notifications enabledNotificationsList ¬
icon of application "Mail"
notify with name ¬
"New Mail" title ¬
"Mail von: " & theSender description ¬
"Betreff: " & theSubject & "
" & (get text 1 thru 100 of theContent) & "..." application name "MailScript"
end tell
end repeat
end tell
end perform_mail_action