diff --git a/src/Main.elm b/src/Main.elm
index 37a0901..098e9dc 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -121,7 +121,7 @@ updateMarkdown m { roomId, text, markdown } =
         sendMessageCmd = sendMarkdownMessage m.apiUrl (Maybe.withDefault "" m.token) (m.transactionId + 1) roomId text markdown
         newModel =
             { m | transactionId = m.transactionId + 1
-            , sending = Dict.insert (m.transactionId + 1) (roomId, TextMessage text) m.sending
+            , sending = Dict.insert (m.transactionId + 1) (roomId, { body = TextMessage text, id = Nothing }) m.sending
             }
     in
         (newModel, Cmd.batch [ storeValueCmd, sendMessageCmd, requestScrollCmd ])
diff --git a/src/Scylla/Messages.elm b/src/Scylla/Messages.elm
index 7679434..b8a2c57 100644
--- a/src/Scylla/Messages.elm
+++ b/src/Scylla/Messages.elm
@@ -2,7 +2,12 @@ module Scylla.Messages exposing (..)
 import Scylla.Sync exposing (RoomEvent)
 import Scylla.Login exposing (Username)
 
-type SendingMessage = TextMessage String
+type SendingMessageBody = TextMessage String
+
+type alias SendingMessage =
+    { body : SendingMessageBody
+    , id : Maybe String
+    }
 
 type Message =
     Sending SendingMessage
diff --git a/src/Scylla/Views.elm b/src/Scylla/Views.elm
index b03e08e..fe2de85 100644
--- a/src/Scylla/Views.elm
+++ b/src/Scylla/Views.elm
@@ -213,7 +213,7 @@ messageView m msg = case msg of
     Received re -> roomEventView m re
 
 sendingMessageView : Model -> SendingMessage -> Html Msg
-sendingMessageView m msg = case msg of
+sendingMessageView m msg = case msg.body of
     TextMessage t -> text t
 
 roomEventView : Model -> RoomEvent -> Maybe (Html Msg)