From cd2d2df77b5a58043217eed15841c216002b65a2 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Tue, 6 Dec 2016 16:40:40 +0100
Subject: pullimap: replace non RFC 5321-compliant envelope sender addresses by
 <>.

---
 interimap | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'interimap')

diff --git a/interimap b/interimap
index 7a36c4e..049b564 100755
--- a/interimap
+++ b/interimap
@@ -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)
-- 
cgit v1.2.3