From 8e7280896f0a0fb75a72264a799572b457bdf162 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 21 Jun 2019 18:14:49 -0400
Subject: [PATCH] org-attach: Bind org-attach-method for org-attach-url

* lisp/org-attach.el (org-attach-url): Let-bind org-attach-method to
`url` so that org-attach-attach calls the correct method.

Before 72124726a (org-attach: Make dispatcher commands customizable,
2019-04-26), the dispatcher masked this issue by let-binding
org-attach-method around its call to org-attach-url.

Reported-by: stardiviner <numbchild@gmail.com>
<https://lists.gnu.org/archive/html/emacs-orgmode/2019-06/msg00130.html>
---
 lisp/org-attach.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index de8b2fc96..a715c89e9 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -419,7 +419,8 @@ Only do this when `org-attach-store-link-p' is non-nil."
 
 (defun org-attach-url (url)
   (interactive "MURL of the file to attach: \n")
-  (org-attach-attach url))
+  (let ((org-attach-method 'url))
+    (org-attach-attach url)))
 
 (defun org-attach-buffer (buffer-name)
   "Attach BUFFER-NAME's contents to current task.