Implement a new url parameter `url-request-noninteractive'

* url-http.el (url-http): Respect `url-request-noninteractive'.

* url-queue.el (url-queue-start-retrieve): Fetching through
url-queue should always be noninteractive.

* url-vars.el (url-request-noninteractive): New variable.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/url/url-queue.el b/lisp/url/url-queue.el
index 87469b91032..9c4b4028741 100644
--- a/lisp/url/url-queue.el
+++ b/lisp/url/url-queue.el
@@ -133,10 +133,11 @@ The variable `url-queue-timeout' sets a timeout."
 (defun url-queue-start-retrieve (job)
   (setf (url-queue-buffer job)
         (ignore-errors
-          (url-retrieve (url-queue-url job)
-                        #'url-queue-callback-function (list job)
-                        (url-queue-silentp job)
-                        (url-queue-inhibit-cookiesp job)))))
+          (let ((url-request-noninteractive t))
+            (url-retrieve (url-queue-url job)
+                          #'url-queue-callback-function (list job)
+                          (url-queue-silentp job)
+                          (url-queue-inhibit-cookiesp job))))))
 
 (defun url-queue-prune-old-entries ()
   (let (dead-jobs)