Fix #52

1 files changed, 4 insertions, 4 deletions

diff --git a/osm.el b/osm.el
index 082604b..8388975 100644
--- a/osm.el
+++ b/osm.el
@@ -60,7 +60,7 @@
   :prefix "osm-")
 
 (defcustom osm-curl-options
-  " --disable --user-agent emacs-osm/1.0 --fail --location --silent --max-time 30"
+  "--user-agent emacs-osm/1.0 --fail --location --silent --max-time 30"
   "Curl command line options."
   :type 'string)
 
@@ -603,7 +603,7 @@ Local per buffer since the overlays depend on the zoom level.")
         (cl-callf2 delq job osm--download-queue)))
     (cl-callf (lambda (s) (mod (1+ s) subs))
         (alist-get osm-server osm--download-subdomain 0))
-    (cons `("curl" "--write-out" "%{http_code} %{filename_effective}\n"
+    (cons `("curl" "--disable" "--write-out" "%{http_code} %{filename_effective}\n"
             ,@(split-string-and-unquote osm-curl-options) ,@(nreverse args))
           jobs)))
 
@@ -1646,7 +1646,7 @@ When called interactively, call the function `osm-home'."
   (with-temp-buffer
     (let* ((default-process-coding-system '(utf-8-unix . utf-8-unix))
            (status (apply #'call-process "curl" nil (current-buffer) nil
-                          `(,@(split-string-and-unquote osm-curl-options) ,url))))
+                          `("--disable" ,@(split-string-and-unquote osm-curl-options) ,url))))
       (unless (eq status 0)
         (error "Fetching %s exited with status %s" url status)))
     (goto-char (point-min))
@@ -1658,7 +1658,7 @@ When called interactively, call the function `osm-home'."
   (with-temp-buffer
     (let* ((default-process-coding-system '(utf-8-unix . utf-8-unix))
            (status (apply #'call-process "curl" nil (current-buffer) nil
-                          `(,@(split-string-and-unquote osm-curl-options)
+                          `("--disable" ,@(split-string-and-unquote osm-curl-options)
                             "-I" ,url))))
       (unless (eq status 0)
         (error "Fetching %s exited with status %s" url status)))