From 78c0a0dbff7c8e2f65d3a8c4bcf14e6d62b10b99 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 9 Nov 2018 16:30:30 +0000
Subject: look up by refs, not id!

---
 lib/MaildirIndexer/Email.pm6 | 6 +++---
 lib/MaildirIndexer/Store.pm6 | 5 +++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/MaildirIndexer/Email.pm6 b/lib/MaildirIndexer/Email.pm6
index f5d1c39..e5454e1 100644
--- a/lib/MaildirIndexer/Email.pm6
+++ b/lib/MaildirIndexer/Email.pm6
@@ -8,9 +8,9 @@ method BUILD(:%!headers,:$!body) { }
 
 method message-id { split-refs(%!headers<message-id>)[0] }
 method refs {
-    return |(
-        split-refs(%!headers<in-reply-to>),
-        split-refs(%!headers<references>).reverse,
+    return (
+        |split-refs(%!headers<in-reply-to>),
+        |split-refs(%!headers<references>).reverse,
     );
 }
 
diff --git a/lib/MaildirIndexer/Store.pm6 b/lib/MaildirIndexer/Store.pm6
index 7447643..e54fa8f 100644
--- a/lib/MaildirIndexer/Store.pm6
+++ b/lib/MaildirIndexer/Store.pm6
@@ -38,8 +38,9 @@ method del-file(IO $file) {
 }
 
 method mailbox-for-email(MaildirIndexer::Email $email) {
-    my $id = $email.message-id or return Nil;
-    with %!mailboxes-for-id{$id} { return .[*-1] }
+    for |$email.refs() -> $ref {
+        with %!mailboxes-for-id{$ref} { return .[*-1] }
+    }
     return Nil;
 }
 
-- 
cgit v1.2.3