Providing tech support means (sometimes) feeling chained to your computer. Even in the evening, when you hear the sound of an email arrive you feel the need to go and check it out in case it is important.
This script means that the name and subject are read outloud, so only the urgent/interesting ones need to disturb you!
on perform_mail_action(info)
tell application "Mail"
set theMessages to |SelectedMessages| of info
repeat with thisMessage in theMessages
set AppleScript's text item delimiters to {""}
set thisSender to sender of thisMessage as string
