se você realmente quiser ser preguiçoso, pode colocar esse script em seu menu de scripts e executá-lo quando abrir o e-mail
tell application "Mail"
set window_names to name of every window
repeat with awindow in window_names
if awindow does not contain "messages" then close (first window whose name is awindow)
end repeat
end tell