oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: CS email message shows up as an attachmetn

Browse source
This commit is contained in:
JT Smith 2007-01-19 00:21:07 +00:00
parent 4e70567593
commit 8774a6c26a
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Mail/Get.pm
View file

@ -213,7 +213,8 @@ sub getNextMessage {
@parts = reverse @parts;
}
foreach my $part (@parts) {
#foreach my $part (@parts) {
while ( my $part = shift @parts) {
my $type = $part->mime_type;
next if ($type eq "message/rfc822");
next if ($type eq "message/delivery-status");
@ -224,9 +225,12 @@ sub getNextMessage {
my $content = "";
if (defined $body) {
$content = $body->as_string;
} else {
# handle nested multipart
$alternate = 1;
unshift(@parts, reverse $part->parts);
}
next unless ($content);
# If this is a multipart alternative message, and this is the first segment
# Or if this is a normal mime message
if (($alternate && !@segments) || !$alternate) {