             (let [pasted-files (.. e -clipboardData -files)]
               (when (< 0 (.-length pasted-files))
                 (.preventDefault e)
-                (maybe-upload-file! (thread :id) (aget pasted-files 0)))))
+                (maybe-upload-file! thread (aget pasted-files 0)))))
 
           :on-drag-over
           (fn [e]

            (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."])

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

        maybe-upload-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)
