let parse_message return {Size, Msg}

where Size is the full size of the message including
headers, this does become very useful whenever you
need to do message arithmetics.