*** /toolbox/lib/TWiki/Net.pm	2006-08-28 15:36:32.000000000 -0700
--- /root/TWiki/TWiki-4.0.4-hf2/lib/TWiki/Net.pm	2006-06-25 09:19:11.000000000 -0700
***************
*** 292,305 ****
  
      return undef unless( scalar @to );
  
-     # Change SMTP protocol recipient format from 
-     # "User Name <userid@domain>" to "userid@domain"
-     # for those SMTP hosts that need it just that way.
-     my $NumberOfRecipients = scalar @to;
-     for (my $RecipientIndex=0; $RecipientIndex<$NumberOfRecipients; $RecipientIndex++) {
-         @to[$RecipientIndex] =~ s/^[^<]+<([^>]+)>$/\1/; 
-     }
- 
      my $smtp = 0;
      if( $this->{HELLO_HOST} ) {
          $smtp = Net::SMTP->new( $this->{MAIL_HOST},
--- 292,297 ----