Bug 362996: email_in.pl throws warnings of uninitialized values when no content-type is given - Patch by Bill Barry <after.fallout@gmail.com> r=mkanat a=myk

1 files changed, 2 insertions, 2 deletions

diff --git a/email_in.pl b/email_in.pl
index f90bdcd8b..40474afaf 100644
--- a/email_in.pl
+++ b/email_in.pl
@@ -269,7 +269,7 @@ sub debug_print {
 sub get_body_and_attachments {
     my ($email) = @_;
 
-    my $ct = $email->content_type;
+    my $ct = $email->content_type || 'text/plain';
     debug_print("Splitting Body and Attachments [Type: $ct]...");
 
     my $body;
@@ -294,7 +294,7 @@ sub get_text_alternative {
     my @parts = $email->parts;
     my $body;
     foreach my $part (@parts) {
-        my $ct = $part->content_type;
+        my $ct = $part->content_type || 'text/plain';
         debug_print("Part Content-Type: $ct", 2);
         if (!$ct || $ct =~ /^text\/plain/i) {
             $body = $part->body;