diff --git a/R/footnote.R b/R/footnote.R
index 0d1b3be..54929d0 100644
--- a/R/footnote.R
+++ b/R/footnote.R
@@ -197,24 +197,31 @@
   table_info <- magic_mirror(kable_input)
   out <- enc2utf8(as.character(kable_input))
 
-  if (table_info$tabular == "longtable" & threeparttable == TRUE) {
-    threeparttable <- FALSE
-    warning("threeparttable does not support longtable.")
-  }
+  # if (table_info$tabular == "longtable" & threeparttable == TRUE) {
+  #   threeparttable <- FALSE
+  #   warning("threeparttable does not support longtable.")
+  # }
   footnote_text <- latex_tfoot_maker(footnote_table, footnote_as_chunk,
                                      table_info$ncol, threeparttable)
   if (threeparttable) {
       out <- sub(paste0("\\\\begin\\{", table_info$tabular, "\\}"),
-                 paste0("\\\\begin{ThreePartTable}\n\\\\begin{",
+                 paste0("\\\\begin{ThreePartTable}\n\\\\begin{TableNotes}",
+                        ifelse(footnote_as_chunk, "[para]", ""),
+                        "\n\\\\small\n", footnote_text,
+                        "\n\\\\end{TableNotes}\n\\\\begin{",
                         table_info$tabular, "}"),
                  out)
     out <- sub(table_info$end_tabular,
                paste0("\\\\end{", table_info$tabular,
-                      "}\n\\\\begin{tablenotes}",
-                      ifelse(footnote_as_chunk, "[para]", ""),
-                      "\n\\\\small\n", footnote_text,
-                      "\n\\\\end{tablenotes}\n\\\\end{ThreePartTable}"),
+                      "}\n\\\\end{ThreePartTable}"),
                out)
+    if (table_info$booktabs) {
+      out <- sub("\\\\bottomrule", "\\\\bottomrule\n\\\\insertTableNotes", out)
+    } else {
+      out <- sub("\\\\hline\n\\\\end\\{longtable\\}",
+                 "\\\\hline\n\\\\insertTableNotes\n\\\\end\\{longtable\\}",
+                 out)
+    }
   } else if (table_info$booktabs) {
     out <- sub("\\\\bottomrule",
                paste0("\\\\bottomrule\n", footnote_text), out)