diff options
author | Guilhem Moulin <guilhem@fripost.org> | 2016-12-06 16:40:40 +0100 |
---|---|---|
committer | Guilhem Moulin <guilhem@fripost.org> | 2016-12-06 17:46:57 +0100 |
commit | cd2d2df77b5a58043217eed15841c216002b65a2 (patch) | |
tree | 84af7ffffad8cdd795fed6c16a6d1ae619018159 /interimap | |
parent | d5b28183b91b0931db1d185ea04cbeae4a70a677 (diff) |
pullimap: replace non RFC 5321-compliant envelope sender addresses by <>.
Diffstat (limited to 'interimap')
-rwxr-xr-x | interimap | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -577,7 +577,8 @@ sub download_missing($$$@) { my $uid = $mail->{UID}; my $from = first { defined $_ and @$_ } @{$mail->{ENVELOPE}}[2,3,4]; - $from = (defined $from and @$from) ? $from->[0]->[2].'@'.$from->[0]->[3] : ''; + $from = (defined $from and defined $from->[0]->[2] and defined $from->[0]->[3]) + ? $from->[0]->[2].'@'.$from->[0]->[3] : ''; msg(undef, "$source($mailbox): UID $uid from <$from> ($mail->{INTERNALDATE})") unless $CONFIG{quiet}; callback_new_message($idx, $mailbox, $source, $mail, \@uids, $buff, \$bufflen) |