- $self->{charset} ||= Common::DEFAULT_CHARSET;
- $self->{contenttype} ||= "text/plain";
-
- foreach my $item (qw(to cc bcc)) {
- next unless ($self->{$item});
- $self->{$item} =~ s/\</</g;
- $self->{$item} =~ s/\$<\$/</g;
- $self->{$item} =~ s/\>/>/g;
- $self->{$item} =~ s/\$>\$/>/g;
- }
-
- my $headers = '';
- foreach my $item (qw(from to cc bcc)) {
- next unless ($self->{$item});
- my (@addr_objects) = Email::Address->parse($self->{$item});
- next unless (scalar @addr_objects);
-
- foreach my $addr_obj (@addr_objects) {