diff options
| author | Mario Martelli <cocoa@schnuddelhuddel.de> | 2017-06-23 18:32:49 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-28 11:19:44 +0200 |
| commit | 5748615c480a05c23bcf8a3960862c5ac49f8b4e (patch) | |
| tree | eb61129fad8bbc800779031e665b321d9ec2a4ba | |
| parent | a8d007db15b3abaf0ea98f4ce829b1b29518788d (diff) | |
| download | org-mode-5748615c480a05c23bcf8a3960862c5ac49f8b4e.tar.gz | |
org-protocol: Fix for failing open-source subprotocol
* (org-protocol-open-source): Make sure url is sanitised before
processing.
TINYCHANGE
| -rw-r--r-- | lisp/org-protocol.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-protocol.el b/lisp/org-protocol.el index 8254356..6ab6aee 100644 --- a/lisp/org-protocol.el +++ b/lisp/org-protocol.el @@ -520,7 +520,9 @@ The location for a browser's bookmark should look like this: ;; As we enter this function for a match on our protocol, the return value ;; defaults to nil. (let ((result nil) - (f (plist-get (org-protocol-parse-parameters fname nil '(:url)) :url))) + (f (org-protocol-sanitize-uri + (plist-get (org-protocol-parse-parameters fname nil '(:url)) + :url)))) (catch 'result (dolist (prolist org-protocol-project-alist) (let* ((base-url (plist-get (cdr prolist) :base-url)) |