[elpa] externals/gnorb 78e1e2b 090/449: Use custom refile targets in re-attaching files

[Stefan Monnier]

branch: externals/gnorb
commit 78e1e2b8e206ce9dce032d13c9f67aaf181530f6
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Use custom refile targets in re-attaching files
    
    lisp/gnorb-gnus.el: We've got a custom option
    `gnorb-gnus-trigger-refile-targets', make use of that in
    `gnorb-gnus-attach-part' as well.
---
 lisp/gnorb-gnus.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index 9ce9aca..4521b88 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -111,11 +111,12 @@ Basically behave as if all attachments have 
\":gnus-attachments t\"."
 
 (defun gnorb-gnus-attach-part (handle &optional org-heading)
   "Attach HANDLE to an existing org heading."
-  (let ((filename (gnorb-gnus-save-part handle))
-       ;; we should probably do the automatic location routine here,
-       ;; as well.
-       (org-heading (or org-heading
-                        (org-refile-get-location "Attach part to" nil t))))
+  (let* ((filename (gnorb-gnus-save-part handle))
+        ;; we should probably do the automatic location routine here,
+        ;; as well.
+        (org-refile-targets gnorb-gnus-trigger-refile-targets)
+        (org-heading (or org-heading
+                         (org-refile-get-location "Attach part to" nil t))))
     (require 'org-attach)
     (save-window-excursion
       (find-file (nth 1 org-heading))