When you have a TMail::Mail with plain text and html body parts there is not any easy way to extract just the html body part.

This is a patch to try to resolve this