From fff110acded7f7746b086079204fb37c005d7763 Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Mon, 16 Sep 2024 13:42:17 -0500
Subject: [PATCH] Fix: (org-ql-refile) Use base buffer

Should probably release this in a v0.8.10.

See #466.
---
 README.org     |  1 +
 org-ql-find.el | 26 +++++++-------
 org-ql.info    | 96 ++++++++++++++++++++++++++------------------------
 3 files changed, 64 insertions(+), 59 deletions(-)

diff --git a/README.org b/README.org
index 943b159..4610596 100644
--- a/README.org
+++ b/README.org
@@ -567,6 +567,7 @@ Simple links may also be written manually in either sexp or non-sexp form, like:
 
 *Fixes*
 + Customization group for face ~org-ql-view-due-date~.
++ Command ~org-ql-refile~ uses the base buffer when refiling to an indirect buffer.
 
 *** helm-org-ql
 
diff --git a/org-ql-find.el b/org-ql-find.el
index ed6d21d..e6c4795 100644
--- a/org-ql-find.el
+++ b/org-ql-find.el
@@ -122,18 +122,20 @@ which see (but only the files are used)."
                                                                        ((and (pred listp) files) files)))
                                                              (list files-spec)))))))
                  (list (org-ql-completing-read buffers-files :prompt "Refile to: "))))
-  (org-refile nil nil
-              ;; The RFLOC argument:
-              (list
-               ;; Name
-               (org-with-point-at marker
-                 (nth 4 (org-heading-components)))
-               ;; File
-               (buffer-file-name (marker-buffer marker))
-               ;; nil
-               nil
-               ;; Position
-               marker)))
+  (let ((buffer (or (buffer-base-buffer (marker-buffer marker))
+                    (marker-buffer marker))))
+    (org-refile nil nil
+                ;; The RFLOC argument:
+                (list
+                 ;; Name
+                 (org-with-point-at marker
+                   (nth 4 (org-heading-components)))
+                 ;; File
+                 (buffer-file-name buffer)
+                 ;; nil
+                 nil
+                 ;; Position
+                 marker))))
 
 ;;;###autoload
 (defun org-ql-find-in-agenda ()
diff --git a/org-ql.info b/org-ql.info
index d5c5a07..d0b34a2 100644
--- a/org-ql.info
+++ b/org-ql.info
@@ -1110,6 +1110,8 @@ File: README.info,  Node: 09-pre,  Next: 089,  Up: Changelog
 
    *Fixes*
    • Customization group for face ‘org-ql-view-due-date’.
+   • Command ‘org-ql-refile’ uses the base buffer when refiling to an
+     indirect buffer.
 
 * Menu:
 
@@ -2155,53 +2157,53 @@ Node: Links39051
 Node: Tips39738
 Node: Changelog40062
 Node: 09-pre41029
-Node: helm-org-ql (1)41878
-Node: 08942019
-Node: 08843161
-Node: 08744237
-Node: 08645465
-Node: 08545699
-Node: 08446355
-Node: 08346807
-Node: 08247148
-Node: 08147541
-Node: 0847964
-Node: 07450690
-Node: 07350915
-Node: 07251649
-Node: 07152570
-Node: 0753381
-Node: 06356247
-Node: 06256780
-Node: 06157087
-Node: 0657657
-Node: 05260713
-Node: 05161015
-Node: 0561440
-Node: 04962971
-Node: 04863253
-Node: 04763602
-Node: 04664011
-Node: 04564419
-Node: 04464780
-Node: 04365139
-Node: 04265342
-Node: 04165503
-Node: 0465750
-Node: 03269851
-Node: 03170254
-Node: 0370451
-Node: 02373751
-Node: 02273985
-Node: 02174265
-Node: 0274470
-Node: 0178548
-Node: Development78649
-Node: Copyright assignment78882
-Node: Notes79472
-Node: Comparison with Org Agenda searches79636
-Node: org-sidebar80525
-Node: License80804
+Node: helm-org-ql (1)41976
+Node: 08942117
+Node: 08843259
+Node: 08744335
+Node: 08645563
+Node: 08545797
+Node: 08446453
+Node: 08346905
+Node: 08247246
+Node: 08147639
+Node: 0848062
+Node: 07450788
+Node: 07351013
+Node: 07251747
+Node: 07152668
+Node: 0753479
+Node: 06356345
+Node: 06256878
+Node: 06157185
+Node: 0657755
+Node: 05260811
+Node: 05161113
+Node: 0561538
+Node: 04963069
+Node: 04863351
+Node: 04763700
+Node: 04664109
+Node: 04564517
+Node: 04464878
+Node: 04365237
+Node: 04265440
+Node: 04165601
+Node: 0465848
+Node: 03269949
+Node: 03170352
+Node: 0370549
+Node: 02373849
+Node: 02274083
+Node: 02174363
+Node: 0274568
+Node: 0178646
+Node: Development78747
+Node: Copyright assignment78980
+Node: Notes79570
+Node: Comparison with Org Agenda searches79734
+Node: org-sidebar80623
+Node: License80902
 
 End Tag Table