summaryrefslogtreecommitdiff
path: root/lib/MaildirIndexer/Index/ByAddresses.rakumod
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MaildirIndexer/Index/ByAddresses.rakumod')
-rw-r--r--lib/MaildirIndexer/Index/ByAddresses.rakumod11
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/MaildirIndexer/Index/ByAddresses.rakumod b/lib/MaildirIndexer/Index/ByAddresses.rakumod
index 678254e..d420c3e 100644
--- a/lib/MaildirIndexer/Index/ByAddresses.rakumod
+++ b/lib/MaildirIndexer/Index/ByAddresses.rakumod
@@ -61,7 +61,7 @@ submethod account-for(Str @addresses,Str $mailbox,Int $step) {
}
method add-mail(MaildirIndexer::Email:D $email, Str:D $mailbox --> Nil) {
- MaildirIndexer::LogTimelineSchema::Index::Add.log: :class('ByAddresses'),:$mailbox, {
+ MaildirIndexer::LogTimelineSchema::Index::Add.log: :class('ByAddresses'),:$mailbox, -> {
# ignore adding the same file twice, files in maildirs are
# immutable
return if %!addresses-for-file{ $email.path }:exists;
@@ -76,7 +76,7 @@ method add-mail(MaildirIndexer::Email:D $email, Str:D $mailbox --> Nil) {
}
method del-path(IO:D $file, Str:D $mailbox --> Nil) {
- MaildirIndexer::LogTimelineSchema::Index::Rm.log: :class('ByAddresses'),:$mailbox, {
+ MaildirIndexer::LogTimelineSchema::Index::Rm.log: :class('ByAddresses'),:$mailbox, -> {
# using assignment would fail when the path isn't present in
# the hash, because it tries to assign the (undefined)
# Array[Str] as a single element, instead of splatting it;
@@ -107,12 +107,13 @@ submethod predict-mailbox-given-addresses(@addresses) {
}
method mailbox-for-email(MaildirIndexer::Email:D $email --> Str) {
- MaildirIndexer::LogTimelineSchema::Index::Find.log: :class('ByAddresses'), {
+ my Str $result;
+ MaildirIndexer::LogTimelineSchema::Index::Find.log: :class('ByAddresses'), -> {
my %prediction = self.predict-mailbox-given-addresses($email.addresses);
my @most-probable-mailboxes = %prediction.pairs.sort(*.value);
- if @most-probable-mailboxes -> $_ { return .[*-1].key }
- else { return Nil }
+ if @most-probable-mailboxes -> $_ { $result = .[*-1].key }
}
+ return $result;
}