                                   (set-uploading! false)
                                   (dispatch! :new-message
                                              {:content url
-                                              :thread-id thread-id}))))))]
+                                              :group-id (thread :group-id)
+                                              :thread-id (thread :id)}))))))]
 
     (fn [thread]
       (let [{:keys [dragging? uploading? focused?]} @state

        open? (subscribe [:thread-open? (thread :id)])

        maybe-upload-file!
        (fn [thread-id file]
          (if (> (.-size file) max-file-size)
            (store/display-error! :upload-fail "File to big to upload, sorry")
            (do (set-uploading! true)

            (set-dragging! false)
            (let [file-list (.. e -dataTransfer -files)]
              (when (< 0 (.-length file-list))
                (maybe-upload-file! thread (aget file-list 0)))))}

         (when limbo?
           [:div.notice "No one can see this conversation yet. Mention a @user or #tag in a reply."])
