Mac To Extract Html From Mail Messages

I am trying to extract HTML from emails using AppleScript. I came across this StackExchange post -- Mac Automator/Applescript(?) to extract URL's from Mail messages -- which tries

Solution 1:

You get the raw source with the source property

setendof mailContentList to source of selectedMail

but you have to extract the HTML portion "manually".