--- EmailParser.pm.orig	2013-05-30 14:42:41.267746074 -0400
+++ EmailParser.pm	2013-05-30 13:25:21.679733464 -0400
@@ -599,7 +599,7 @@
 
         # use the unencoded string
         my $content = $text_part->bodyhandle->as_string;
-        if ( $content =~ s/\n\n/\n/g ) {
+        if ( $content =~ s/\n\n/\n/g  || $content =~ s/\r\n/\n/g) {
 
             # Outlook puts a space on extra newlines, remove it
             $content =~ s/\ +$//mg;