diff options
Diffstat (limited to 'email_in.pl')
-rw-r--r-- | email_in.pl | 4 |
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; |