¿Cómo obtener el mensaje en bruto de Mail.app en el Automator?

Inténtalo:

on run {input, parameters}
    set theSource to {}
    tell application "Mail"
        repeat with aMessage in input
            set end of theSource to aMessage's source & return
        end repeat
    end tell

    return theSource as text
end run