TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 10:28:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add a subject filter to scan-mailbox args

Browse Source
This commit is contained in:
Eike Kettner
2020-11-13 20:59:03 +01:00
parent 98ee813820
commit 5034e12bec
4 changed files with 35 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
modules/joex/src/main/scala/docspell/joex/scanmailbox/ScanMailboxTask.scala
View File

@ -142,7 +142,7 @@ object ScanMailboxTask {
_ <- Kleisli.liftF(ctx.logger.info(s"Processing folder $name"))
folder <- requireFolder(a)(name)
search <- searchMails(a)(folder)
headers <- Kleisli.liftF(filterMessageIds(search.mails))
headers <- Kleisli.liftF(filterSubjects(search.mails).flatMap(filterMessageIds))
_ <- headers.traverse(handleOne(ctx.args, a, upload))
} yield ScanResult(name, search.mails.size, search.count - search.mails.size)
@ -178,6 +178,26 @@ object ScanMailboxTask {
} yield mails
}
def filterSubjects(headers: Vector[MailHeader]): F[Vector[MailHeader]] =
ctx.args.subjectFilter match {
case Some(sf) =>
def check(mh: MailHeader): F[Option[MailHeader]] =
if (sf.matches(mh.subject))
ctx.logger.debug(
s"Including mail '${mh.subject}', it matches the filter."
) *> Option(mh).pure[F]
else
ctx.logger.debug(
s"Excluding mail '${mh.subject}', it doesn't match the filter."
) *> (None: Option[MailHeader]).pure[F]
ctx.logger.info(
s"Filtering mails on subject using filter: ${sf.asString}"
) *> headers.traverseFilter(check)
case None =>
ctx.logger.debug("Not matching on subjects. No filter given") *> headers.pure[F]
}
def filterMessageIds(headers: Vector[MailHeader]): F[Vector[MailHeader]] =
NonEmptyList.fromFoldable(headers.flatMap(_.messageId)) match {
case Some(nl) =>