my $entry;
	if ($mail->header("Content-Type") =~ /plain/) {
	logtext("Plain text. Marking up.");
		my $conv = new HTML::TextToHTML();
		$entry = $conv->process_para($mail->body);
	} else {					
		logtext("Not plain text. Scrubbing.");
		my $scrubber = HTML::Scrubber->new( allow => [ qw[ p b i u hr br ] ] );
		$entry = $scrubber->scrub($mail->body);
	}