Revision 539

Date:
2016/01/19 08:56:56
Author:
ahitrov
Revision Log:
Fix for cc

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/inc/sendmail.msn

     
    62 62 } elsif ( exists $email->{cc} && $email->{cc} ) {
    63 63 my ($cce, $ecce) = $email->{cc} =~ /^(.*?)<(.*?)>/ ? ($1, $2) : $email->{cc} =~ /<(.*?)>/ ? ('',$1) : ('',$email->{cc});
    64 64 $ccmail = join ', ', (@to, $ecce);
    65 } elsif ( @to ) {
    66 $ccmail = join ', ', @to;
    65 67 }
    66 68
    67 69