         open? (subscribe [:thread-open? (thread :id)])
 
         maybe-upload-file!
-        (fn [thread-id file]
+        (fn [thread 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 :id) (aget file-list 0)))))}

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

                                  (set-uploading! false)
                                  (dispatch! :new-message
                                             {:content url
                                              :group-id (thread :group-id)
                                              :thread-id (thread :id)}))))))]

    (fn [thread]
      (let [{:keys [dragging? uploading? focused?]} @state
