on perform_mail_action(info)
	tell application "iTunes"
		set isPlaying to player state is playing
	end tell
	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
			set brkpos to offset of "

     


    [ Reply to This |    # ]