diff options
-rw-r--r-- | lib/MaildirIndexer/Email.pm6 | 6 | ||||
-rw-r--r-- | 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; } |