How to get Mail.app raw message in the Automator?
Try:

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

    return theSource as text
end run