if ($MIME_entity->parts > 0) {
		for (my $i=0;$i<$MIME_entity->parts;$i++) {
			my $subEntity = $MIME_entity->parts($i);
			my $ignore_plain = 0;
			my $ignore_html = 0;

			$ishtml = "1" if $subEntity->mime_type eq 'text/html';
			$ishtml = "0" if $subEntity->mime_type eq 'text/plain';

			if (($subEntity->mime_type eq 'text/html') && ($ignore_html == 0)) {
				if (my $io = $subEntity->open("r")) {
					while (defined($_=$io->getline)) {
						$_ =~ s/"/\"/g;
						$body .= $_;
					}
					$io->close;
					$ignore_plain=1;
				}
			}
			if (($subEntity->mime_type eq 'text/plain') && ($ignore_plain=0)) {
				if (my $io = $subEntity->open("r")) {
					while (defined($_=$io->getline)) {
						$_ =~ s/"/\"/g;
						$body .= $_;
					}
					$io->close;
					$ignore_html=1;
				}
			}
		}
	} else {
		$body = join "",  @{$MIME_entity->body};
	}