sub from
{
  my ($self, $from) = @_;
  if ($from) {
    $self->add(From => $from);
  }
  $self->add(From => $from);
}