From af9c735cd749c43c730ea81bac00a4e9562a6240 Mon Sep 17 00:00:00 2001
From: James Hillyerd <james@hillyerd.com>
Date: Mon, 5 Nov 2018 22:32:02 -0800
Subject: [PATCH] ui: messageList becomes viewMessageList

---
 ui/src/Page/Mailbox.elm | 52 ++++++++++++++++++++---------------------
 1 file changed, 26 insertions(+), 26 deletions(-)

diff --git a/ui/src/Page/Mailbox.elm b/ui/src/Page/Mailbox.elm
index 8c15063..f8e079b 100644
--- a/ui/src/Page/Mailbox.elm
+++ b/ui/src/Page/Mailbox.elm
@@ -299,7 +299,7 @@ updateSelected model id =
                         { model | state = ShowingList newList LoadingMessage }
 
                     LoadingMessage ->
-                        model
+                        { model | state = ShowingList newList LoadingMessage }
 
                     ShowingMessage visible ->
                         -- Use Transitioning state to prevent blank message flicker.
@@ -406,23 +406,7 @@ getMessage mailboxName id =
 view : Session -> Model -> Html Msg
 view session model =
     div [ id "page", class "mailbox" ]
-        [ aside [ id "message-list" ]
-            [ div []
-                [ input
-                    [ type_ "search"
-                    , placeholder "search"
-                    , onInput SearchInput
-                    , value model.searchInput
-                    ]
-                    []
-                ]
-            , case model.state of
-                LoadingList _ ->
-                    div [] []
-
-                ShowingList list _ ->
-                    messageList list
-            ]
+        [ viewMessageList session model
         , main_
             [ id "message" ]
             [ case model.state of
@@ -444,14 +428,30 @@ view session model =
         ]
 
 
-messageList : MessageList -> Html Msg
-messageList list =
-    div []
-        (list
-            |> filterMessageList
-            |> List.reverse
-            |> List.map (messageChip list.selected)
-        )
+viewMessageList : Session -> Model -> Html Msg
+viewMessageList session model =
+    aside [ id "message-list" ]
+        [ div []
+            [ input
+                [ type_ "search"
+                , placeholder "search"
+                , onInput SearchInput
+                , value model.searchInput
+                ]
+                []
+            ]
+        , case model.state of
+            LoadingList _ ->
+                div [] []
+
+            ShowingList list _ ->
+                div []
+                    (list
+                        |> filterMessageList
+                        |> List.reverse
+                        |> List.map (messageChip list.selected)
+                    )
+        ]
 
 
 messageChip : Maybe MessageID -> MessageHeader -> Html Msg