Fixes a race condition when initializing the calendar-event field

The problem was that the field executes a request to validate its
state. This was initiated at the same time for two values. Then it was
undetermined which value comes back first.

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

@@ -136,8 +136,8 @@ init flags =
         initialSchedule =
             Data.Validated.Unknown Data.CalEvent.everyMonth
 
-        ( sm, sc ) =
-            Comp.CalEventInput.init flags Data.CalEvent.everyMonth
+        sm =
+            Comp.CalEventInput.initDefault
     in
     ( { settings = Api.Model.ScanMailboxSettings.empty
       , connectionModel =
@@ -168,7 +168,6 @@ init flags =
       }
     , Cmd.batch
         [ Api.getImapSettings flags "" ConnResp
-        , Cmd.map CalEventMsg sc
         , Api.getFolders flags "" False GetFolderResp
         ]
     )