[elpa] externals/gnorb a9c7410 032/449: gnorb-gnus.el: bugfix gnorb-gnus-attach-part

[Stefan Monnier]

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

    gnorb-gnus.el: bugfix gnorb-gnus-attach-part
    
    Gross programming error, not even sure how I managed to do this.
---
 lisp/gnorb-gnus.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index 3346847..2cc253c 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -58,12 +58,12 @@
   "Attach HANDLE to an existing org heading."
   (let ((filename (gnorb-gnus-save-part handle))
        (org-heading (or org-heading
-                        (org-refile-get-location "Attach part to")))))
-  (require 'org-attach)
-  (save-window-excursion
-    (find-file (nth 1 org-heading))
-    (goto-char (nth 3 org-heading))
-    (org-attach-attach filename nil 'mv)))
+                        (org-refile-get-location "Attach part to" nil t))))
+    (require 'org-attach)
+    (save-window-excursion
+      (find-file (nth 1 org-heading))
+      (goto-char (nth 3 org-heading))
+      (org-attach-attach filename nil 'mv))))
 
 (defun gnorb-gnus-save-part (handle)
   (let ((filename (or (mail-content-type-get