my $msg = '';

my $multihead =<<EOMULTIHEAD;
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="----=_Next_Part_$boundary"
------=_Next_Part_$boundary
Content-type: text/plain;
charset=us-ascii
Content-Transfer-Encoding: quoted-printable
EOMULTIHEAD

my $multibound =<<EOMULTIBOUND;
------=_Next_Part_$boundary
Content-type: text/html; charset="base64"
Content-Transfer-Encoding: quoted-printable

EOMULTIBOUND

my $removal =<<EOREMOVE;
---------------------------------------------------------------------
Removal notice
$in{'subscribeUrl'}?$unsubscribe&$in{'list'}&member
---------------------------------------------------------------------

EOREMOVE

my $htmlremove =<<EOHTMLREMOVE;
<BR><BR>
---------------------------------------------------------------------<br>
HTML removal notice
<a href="$in{'subscribeUrl'}?$unsubscribe&$in{'list'}&member">$in{'subscribeUrl'}?$unsubscribe&$in{'list'}&member</a><br>
---------------------------------------------------------------------<br><br>
EOHTMLREMOVE

$msg .= $multihead if $in{'type'} eq "multipart";
unless($in{'type'} eq 'html') {
  $msg .= $text_message; #XXX include the newlines in the message body
  $msg .= $removal if $in{'remove_notice'} eq "1";
}
$msg .= $multibound if $in{'type'} eq "multipart";
unless($in{'type'} eq 'text') {
  $msg .= $html_message; #XXX include the newlines in the message body
  $msg .= $htmlremove if $in{'remove_notice'} eq "1";
}
print MAIL $msg;