Fix selecting imap connection in scan mailbox settings

Issue: #524
2025-04-04 18:39:33 +00:00 · 2021-01-03 10:30:12 +01:00 · 2021-01-03 10:30:12 +01:00 · 40b093ae72
commit 40b093ae72
parent 7b7a8ecd69
1 changed files with 13 additions and 1 deletions
--- a/modules/webapp/src/main/elm/Comp/ScanMailboxForm.elm
+++ b/modules/webapp/src/main/elm/Comp/ScanMailboxForm.elm
@ -332,12 +332,24 @@ update flags msg model =
                names =
                    List.map .name list.items

+                defaultConn =
+                    case names of
+                        h :: [] ->
+                            Just h
+
+                        _ ->
+                            Nothing
+
                cm =
                    Comp.Dropdown.makeSingleList
                        { makeOption = \a -> { value = a, text = a, additional = "" }
                        , placeholder = "Select Connection..."
                        , options = names
-                        , selected = List.head names
+                        , selected =
+                            Util.Maybe.or
+                                [ List.head (Comp.Dropdown.getSelected model.connectionModel)
+                                , defaultConn
+                                ]
                        }
            in
            ( { model