From 92a5ab6414a649a46ae7bf97ea81279df9c754a6 Mon Sep 17 00:00:00 2001 From: Matthew Wilson Date: Fri, 19 May 2006 20:16:37 +0000 Subject: [PATCH] msgs with only text/html not accepted as such --- lib/WebGUI/Workflow/Activity/GetCsMail.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/WebGUI/Workflow/Activity/GetCsMail.pm b/lib/WebGUI/Workflow/Activity/GetCsMail.pm index d3e9541b4..a308c8c74 100644 --- a/lib/WebGUI/Workflow/Activity/GetCsMail.pm +++ b/lib/WebGUI/Workflow/Activity/GetCsMail.pm @@ -75,7 +75,7 @@ sub addPost { my $content = ""; my $class = (ref $parent eq "WebGUI::Asset::Wobject::Collaboration") ? "WebGUI::Asset::Post::Thread" : "WebGUI::Asset::Post"; foreach my $part (@{$message->{parts}}) { - if (($part->{type} eq "text/plain" || $part->{type} eq "text/html") && $part->{filename} eq "") { + if (($part->{type} =~ /^text\/plain/ || $part->{type} =~ /^text\/html/) && $part->{filename} eq "") { my $text = $part->{content}; if ($part->{type} eq "text/plain") { $text =~ s/\n/\
/g;