Changeset 148

Show
Ignore:
Timestamp:
02/25/06 17:27:17
Author:
miyagawa
Message:

extract_address is now in external package. should be fully qualified. Refs #52.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/Publish/Gmail.pm

    r147 r148  
    9595    ### We need the "From:" and "To:" headers to pass to the SMTP mailer: 
    9696    my $hdr   = $self->fields(); 
    97     my($from) = extract_addrs( $self->get('From') ); 
     97    my($from) = MIME::Lite::extract_addrs( $self->get('From') ); 
    9898    my $to    = $self->get('To'); 
    9999 
    …… 
    102102 
    103103    ### Get the destinations as a simple array of addresses: 
    104     my @to_all = extract_addrs($to); 
     104    my @to_all = MIME::Lite::extract_addrs($to); 
    105105    if ($MIME::Lite::AUTO_CC) { 
    106106        foreach my $field (qw(Cc Bcc)) { 
    107107            my $value = $self->get($field); 
    108             push @to_all, extract_addrs($value) if defined($value); 
     108            push @to_all, MIME::Lite::extract_addrs($value) if defined($value); 
    109109        } 
    110110    }