diff --git a/modules/lang/org/contrib/dragndrop.el b/modules/lang/org/contrib/dragndrop.el
index afbeeba25..e07bbef76 100644
--- a/modules/lang/org/contrib/dragndrop.el
+++ b/modules/lang/org/contrib/dragndrop.el
@@ -56,6 +56,26 @@
               (file-relative-name path org-download-image-dir)
             path)))
 
+  (defadvice! +org--fix-org-download-delete-a (fn beg end &optional times)
+    "Fix `org-download-delete' for a non-standard `org-download-link-format'."
+    :around #'org-download--delete
+    (save-excursion
+      (save-match-data
+        (goto-char beg)
+        (let ((times (or times most-positive-fixnum))
+              (linkname
+               (or (and (string-match "\\[\\[\\(\\w+\\):" org-download-link-format)
+                        (match-string 1 org-download-link-format))
+                   "file")))
+          (while (and (>= (cl-decf times) 0)
+                      (re-search-forward (format "\\[\\[%s:\\([^]]*\\)\\]\\]"
+                                                 (regexp-quote linkname))
+                                         end t))
+            (let ((str (match-string-no-properties 2)))
+              (delete-region beg (match-end 0))
+              (when (file-exists-p str)
+                (delete-file str))))))))
+
   (defadvice! +org--dragndrop-then-display-inline-images-a (_link filename)
     :after #'org-download-insert-link
     (when (image-type-from-file-name filename)