avoid org-element parser warnings on finding molds

moldable-emacs.el

@@ -375,10 +375,11 @@ so with keyword entries, into a org table with headings.
 (defun me-first-org-table (&optional buffer)
   "Find first org table.  Optionally in BUFFER."
   (ignore-errors
-    (with-current-buffer (or buffer (current-buffer)) ;; TODO remove org links in table!
-      (me-with-org-parent-heading
-       (re-search-forward org-table-line-regexp nil t)
-       (me-org-tabletolisp-to-plist (org-table-to-lisp))))))
+    (when (equal major-mode 'org-mode)
+      (with-current-buffer (or buffer (current-buffer)) ;; TODO remove org links in table!
+        (me-with-org-parent-heading
+         (re-search-forward org-table-line-regexp nil t)
+         (me-org-tabletolisp-to-plist (org-table-to-lisp)))))))
 
 (defun me-all-flat-org-tables (&optional buffer whole-buffer)
   "Find org tables within current headline or in whole buffer if no headline found.

molds/contrib.el

@@ -821,6 +821,7 @@ following in your lein project.clj
 (me-register-mold
     :key "Backlinks as Org"
     :given (:fn (and
+                 (equal major-mode 'org-mode)
                  (me-require 'org-roam)
                  (org-roam-node-p (org-roam-node-at-point))))
     :then (:fn
@@ -840,6 +841,7 @@ following in your lein project.clj
 (me-register-mold
     :key "Backlinks as Org With transclusion"
     :given (:fn (and
+                 (equal major-mode 'org-mode)
                  (me-require 'org-roam)
                  (me-require 'org-transclusion)
                  (org-roam-node-p (org-roam-node-at-point))))
@@ -856,6 +858,7 @@ following in your lein project.clj
 (me-register-mold
     :key "Deep Backlinks as Org"
     :given (:fn (and
+                 (equal major-mode 'org-mode)
                  (me-require 'org-roam)
                  (org-roam-node-p (org-roam-node-at-point))))
     :then (:fn