summaryrefslogtreecommitdiff
path: root/notmuch-slurp-debbug
diff options
context:
space:
mode:
Diffstat (limited to 'notmuch-slurp-debbug')
-rwxr-xr-xnotmuch-slurp-debbug6
1 files changed, 3 insertions, 3 deletions
diff --git a/notmuch-slurp-debbug b/notmuch-slurp-debbug
index ad0db47..f5ae3fc 100755
--- a/notmuch-slurp-debbug
+++ b/notmuch-slurp-debbug
@@ -43,7 +43,7 @@ my $maildir;
my $conf_r = $ENV{XDG_CONFIG_HOME} || catfile $ENV{HOME}, ".config";
my $conf_f = catfile $conf_r, "mailscripts", "notmuch-slurp-debbug";
if (-f $conf_f) {
- $maildir = Config::Tiny->new->read($conf_f)->{_}->{maildir};
+ $maildir = glob Config::Tiny->new->read($conf_f)->{_}->{maildir};
} else {
# default to where a lot of people have their inbox
chomp(my $database_path = `notmuch config get database.path`);
@@ -54,7 +54,7 @@ $maildir = $mgr->open(
access => "a",
keep_dups => 1,
type => "maildir"
-);
+) or die "failed to open target maildir: $!\n";
# we use bts(1) to download the mbox because it has some logic to find
# the right URI and the user might have enabled its caching features.
@@ -72,7 +72,7 @@ my $mbox = $mgr->open(
access => "r",
keep_dups => 1,
type => "mbox"
-);
+) or die "failed to open $bug.mbox: $!\n";
foreach my $message ($mbox->messages) {
my $mid = $message->messageId;