# Data (msg body), encoding and type
($data, $encoding, $type, $charset) = (
  delete $opt->{data},
  delete $opt->{encoding},
  delete $opt->{type},
  delete $opt->{charset},
);
$data     ||= $opt->{body} || $body;    delete $opt->{body};
$encoding ||= 'quoted-printable';
$type     ||= 'text/plain';
$charset  ||= $::Variable->{MV_EMAIL_CHARSET} || $Global::Variable->{MV_EMAIL_CHARSET};

if ($charset) {
  $type .= "; charset=$charset";
}