diff options
-rw-r--r-- | debian/changelog | 7 | ||||
-rw-r--r-- | mailscripts.el | 2 | ||||
-rwxr-xr-x | notmuch-slurp-debbug | 3 |
3 files changed, 11 insertions, 1 deletions
diff --git a/debian/changelog b/debian/changelog index 94a6218..6e301fe 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +mailscripts (0.4-1) UNRELEASED; urgency=medium + + * Do not import messages without a Message-Id header (Closes: #909835). + Thanks to David Bremner for the report. + + -- Sean Whitton <spwhitton@spwhitton.name> Sat, 27 Oct 2018 10:52:46 -0700 + mailscripts (0.3-1) unstable; urgency=medium * Add "Package-Requires: (notmuch)" (Closes: #909376). diff --git a/mailscripts.el b/mailscripts.el index 68a59ad..249cb42 100644 --- a/mailscripts.el +++ b/mailscripts.el @@ -1,7 +1,7 @@ ;;; mailscripts.el --- functions to access tools in the mailscripts package ;; Author: Sean Whitton <spwhitton@spwhitton.name> -;; Version: 0.3 +;; Version: 0.4 ;; Package-Requires: (notmuch) ;; Copyright (C) 2018 Sean Whitton 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//; |