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

set end of mailContentList to source of selectedMail

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