diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2018-11-17 10:21:06 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-11-17 10:21:06 -0700 |
commit | 14fbbc9f88793826ebd8f987122f560c9c20a5ba (patch) | |
tree | 8ab0e4544681eecc72571cf7565bc6497ae88c8a /notmuch-slurp-debbug | |
parent | 5b6bdea015a9381a964555f8cfd8ba266f9d73d7 (diff) | |
parent | cff0e39b9dbf35970ce154efb0621f5abbfd2387 (diff) | |
download | mailscripts-14fbbc9f88793826ebd8f987122f560c9c20a5ba.tar.gz |
Merge remote-tracking branch 'dgit/dgit/buster' into stretch-bpo
Diffstat (limited to 'notmuch-slurp-debbug')
-rwxr-xr-x | notmuch-slurp-debbug | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/notmuch-slurp-debbug b/notmuch-slurp-debbug index 226a095..d289e31 100755 --- a/notmuch-slurp-debbug +++ b/notmuch-slurp-debbug @@ -89,6 +89,9 @@ system("mbox2maildir $mbox $dir") == 0 foreach my $message (glob "$dir/*/*") { my $message_head = MIME::Head->from_file($message); my $mid = $message_head->get('Message-ID'); + # if this message does not have a message-id, do not import it; + # that is asking for trouble + next unless defined $mid; $mid =~ s/(<|>)//g; my $match = `notmuch search id:$mid`; my $match_lines = $match =~ tr/\n//; |