summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2018-11-09 16:30:30 +0000
committerdakkar <dakkar@thenautilus.net>2018-11-09 16:30:30 +0000
commit78c0a0dbff7c8e2f65d3a8c4bcf14e6d62b10b99 (patch)
tree0f43ad767a07f570fe32fbd47e79e78cbc2f1923
parentfeature parity! (diff)
downloadMaildirIndexer-78c0a0dbff7c8e2f65d3a8c4bcf14e6d62b10b99.tar.gz
MaildirIndexer-78c0a0dbff7c8e2f65d3a8c4bcf14e6d62b10b99.tar.bz2
MaildirIndexer-78c0a0dbff7c8e2f65d3a8c4bcf14e6d62b10b99.zip
look up by refs, not id!
-rw-r--r--lib/MaildirIndexer/Email.pm66
-rw-r--r--lib/MaildirIndexer/Store.pm65
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;
}