on run parameter
	tell application "Mail"
		set allAccounts to every account
		repeat with eachAccount in allAccounts
			if the name of eachAccount is equal to parameter then
				check for new mail for eachAccount
			end if
		end repeat
	end tell
end run