Add a recursive mail folder scan option to ScanMailboxTask

modules/webapp/src/main/elm/Comp/ScanMailboxForm.elm

@@ -68,6 +68,7 @@ type alias Model =
     , targetFolder : Maybe String
     , foldersModel : Comp.StringListInput.Model
     , folders : List String
+    , scanRecursively : Bool
     , direction : Maybe Direction
     , schedule : Maybe CalEvent
     , scheduleModel : Comp.CalEventInput.Model
@@ -156,6 +157,7 @@ type Msg
     | ReceivedHoursMsg Comp.IntField.Msg
     | SetTargetFolder String
     | FoldersMsg Comp.StringListInput.Msg
+    | ToggleScanRecursively
     | DirectionMsg (Maybe Direction)
     | YesNoDeleteMsg Comp.YesNoDimmer.Msg
     | GetFolderResp (Result Http.Error FolderList)
@@ -200,6 +202,7 @@ initWith flags s =
         , receivedHours = s.receivedSinceHours
         , targetFolder = s.targetFolder
         , folders = s.folders
+        , scanRecursively = s.scanRecursively
         , schedule = Just newSchedule
         , direction = Maybe.andThen Data.Direction.fromString s.direction
         , scheduleModel = sm
@@ -246,6 +249,7 @@ init flags =
       , receivedHoursModel = Comp.IntField.init (Just 1) Nothing True
       , foldersModel = Comp.StringListInput.init
       , folders = []
+      , scanRecursively = False
       , targetFolder = Nothing
       , direction = Nothing
       , schedule = Just initialSchedule
@@ -316,6 +320,7 @@ makeSettings model =
                 , deleteMail = model.deleteMail
                 , targetFolder = model.targetFolder
                 , folders = folders
+                , scanRecursively = model.scanRecursively
                 , direction = Maybe.map Data.Direction.asString model.direction
                 , schedule = Data.CalEvent.makeEvent timer
                 , itemFolder = model.itemFolderId
@@ -497,6 +502,12 @@ update flags tz msg model =
             , Cmd.none
             )
 
+        ToggleScanRecursively ->
+            ( { model | scanRecursively = not model.scanRecursively }
+            , NoAction
+            , Cmd.none
+            )
+
         DirectionMsg md ->
             ( { model | direction = md }
             , NoAction
@@ -961,6 +972,17 @@ viewGeneral2 texts settings model =
 viewProcessing2 : Texts -> Model -> List (Html Msg)
 viewProcessing2 texts model =
     [ div [ class "mb-4" ]
+        [ MB.viewItem <|
+            MB.Checkbox
+                { id = "scanmail-scan-recursively"
+                , value = model.scanRecursively
+                , label = texts.scanRecursivelyLabel
+                , tagger = \_ -> ToggleScanRecursively
+                }
+            , span [ class "opacity-50 text-sm mt-1" ]
+            [ Markdown.toHtml [] texts.scanRecursivelyInfo ]
+        ]
+    , div [ class "mb-4" ]
         [ label [ class S.inputLabel ]
             [ text texts.folders
             , B.inputRequired

modules/webapp/src/main/elm/Messages/Comp/ScanMailboxForm.elm

@@ -68,6 +68,8 @@ type alias Texts =
     , tagsInfo : String
     , documentLanguage : String
     , documentLanguageInfo : String
+    , scanRecursivelyInfo : String
+    , scanRecursivelyLabel : String
     , schedule : String
     , scheduleClickForHelp : String
     , scheduleInfo : String
@@ -149,6 +151,8 @@ gb tz =
     , documentLanguageInfo =
         "Used for text extraction and text analysis. The "
             ++ "collective's default language is used, if not specified here."
+    , scanRecursivelyInfo = "Scan the sub-folders of the given folders for emails too."
+    , scanRecursivelyLabel = "Scan folders recursively"
     , schedule = "Schedule"
     , scheduleClickForHelp = "Click here for help"
     , scheduleInfo =
@@ -229,6 +233,8 @@ kann hier ein Wert für alle festgelegt werden. Bei 'Automatisch' wird auf den S
     , documentLanguageInfo =
         "Wird für Texterkennung und -analyse verwendet. Die Standardsprache des Kollektivs "
             ++ "wird verwendet, falls hier nicht angegeben."
+    , scanRecursivelyInfo = "Auch die Unterordner der gegebenen Ordner nach E-Mails durchsuchen."
+    , scanRecursivelyLabel = "Ordner rekursiv scannen"
     , schedule = "Zeitplan"
     , scheduleClickForHelp = "Klicke für Hilfe"
     , scheduleInfo =