From 22058b1568cb046078792add7df567eb9eba1dab Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Fri, 26 Mar 2021 16:47:22 +0100
Subject: [PATCH] Allow adding links to other items without refile verification

We are only using the refile mechanism for convenience here, and not for actual
refiling.  The refile verification function is thus not relevant here.  To take
effect, we also have to ignore the cache, as it may hold precomputed targets
that have used the refile verification function in a previous run.
---
 site-lisp/db-org.el | 37 ++++++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 17 deletions(-)

diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index 25e8207..c03611b 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -667,23 +667,26 @@ variables `org-agenda-files',
 `org-agenda-text-search-extra-files', and the current buffer, if
 ARG is non-nil.  Search is always conducted up to level 9.  If
 the selected location does not have an associated mark, error
-out."
-  (let* ((org-refile-targets (if arg
-                                 `((org-agenda-files :maxlevel . 9)
-                                   (,(cl-remove-if-not
-                                      #'stringp org-agenda-text-search-extra-files)
-                                    :maxlevel . 9)
-                                   (nil :maxlevel . 9))
-                                 '((nil :maxlevel . 9))))
-         (mrk (nth 3 (org-refile-get-location
-                      nil
-                      ;; if the current buffer is associated with a file, search
-                      ;; through it; otherwise, use the default Org Mode file as
-                      ;; default buffer
-                      (if (buffer-file-name)
-                          nil
-                        (get-file-buffer db/org-default-org-file))))))
-    (if mrk mrk (user-error "Invalid location"))))
+out.  Disable refile cache and any active refile filter hooks to
+allow linking to any item."
+  (let ((org-refile-target-verify-function nil)
+        (org-refile-use-cache nil))
+   (let* ((org-refile-targets (if arg
+                                  `((org-agenda-files :maxlevel . 9)
+                                    (,(cl-remove-if-not
+                                       #'stringp org-agenda-text-search-extra-files)
+                                     :maxlevel . 9)
+                                    (nil :maxlevel . 9))
+                                '((nil :maxlevel . 9))))
+          (mrk (nth 3 (org-refile-get-location
+                       nil
+                       ;; if the current buffer is associated with a file, search
+                       ;; through it; otherwise, use the default Org Mode file as
+                       ;; default buffer
+                       (if (buffer-file-name)
+                           nil
+                         (get-file-buffer db/org-default-org-file))))))
+     (if mrk mrk (user-error "Invalid location")))))
 
 (defun db/org-find-links-to-current-item (arg)
   "Find links to current item.