From ec1b135dbd15cf474ab3b0e8b8ae4a44ee9908ca Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Wed, 7 Jul 2010 12:57:08 +0200
Subject: [PATCH] Set mimetype of outgoing mailings to multipart/alternative

---
 lib/WebGUI/Mailing/Email.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Mailing/Email.pm b/lib/WebGUI/Mailing/Email.pm
index fdb1eae..c5fa17f 100644
--- a/lib/WebGUI/Mailing/Email.pm
+++ b/lib/WebGUI/Mailing/Email.pm
@@ -213,9 +213,10 @@ sub send {
         subject     => $subject,
         messageId   => "$messageId\@$domain",
         returnPath  => "$messageId-bounce\@$domain",
+        contentType => 'multipart/alternative',
     } );
-    $mail->addHtml( $body );
     $mail->addText( $text );
+    $mail->addHtml( $body );
 
     if ( $asset->can( 'getListHeaders' ) ) {
         my $listHeaders = $asset->getListHeaders( $self->user->get('email') );