tell application "Mail"
set unreadMessages to (get every message of mailbox "INBOX" of account "Gmail" whose read status is false)
set numberofmessages to (count of (every message of mailbox "INBOX" of account "Gmail" whose read status is false))
if (count of (every message of mailbox "INBOX" of account "Gmail" whose read status is false)) is 1 then
tell application "Mail"
say "There is only " & numberofmessages & " new email"
repeat with eachMessage in unreadMessages
delay 1
say "From! "
say (get sender of eachMessage)
say "Subject."
say (get subject of eachMessage)
say "Message."
say (get content of eachMessage)
set read status of eachMessage to true
end repeat
end tell
else if (count of (every message of mailbox "INBOX" of account "Gmail" whose read status is false)) is greater than 1 then
tell application "Mail"
say "There are " & numberofmessages & " new messages"
repeat with eachMessage in unreadMessages
delay 1
say "From! "
say (get sender of eachMessage)
say "Subject."
say (get subject of eachMessage)
say "Message."
say (get content of eachMessage)
set read status of eachMessage to true
end repeat
end tell
else
say "There are no new messages"
end if
end tell