diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2014-11-23 15:05:18 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2014-11-23 15:05:18 +0100 |
| commit | a345ff6bf2af54db2ee03296965165127f7758ec (patch) | |
| tree | de73d6a88dca950fca75e41bf0c7bcf120713cb0 /lisp/url/url-http.el | |
| parent | c43b706ab3a699c107a91d1ab6f16014fff65b54 (diff) | |
| download | emacs-a345ff6bf2af54db2ee03296965165127f7758ec.tar.gz | |
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.
Diffstat (limited to 'lisp/url/url-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index a51785a5129..1001c4deada 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -40,6 +40,7 @@ (defvar url-http-data) (defvar url-http-end-of-headers) (defvar url-http-extra-headers) +(defvar url-http-noninteractive) (defvar url-http-method) (defvar url-http-no-retry) (defvar url-http-process) @@ -1201,6 +1202,9 @@ overriding the value of `url-gateway-method'." (cl-check-type url vector "Need a pre-parsed URL.") (let* ((host (url-host (or url-using-proxy url))) (port (url-port (or url-using-proxy url))) + (nsm-noninteractive (or url-request-noninteractive + (and (boundp 'url-http-noninteractive) + url-http-noninteractive))) (connection (url-http-find-free-connection host port gateway-method)) (buffer (or retry-buffer (generate-new-buffer @@ -1232,6 +1236,7 @@ overriding the value of `url-gateway-method'." url-http-process url-http-method url-http-extra-headers + url-http-noninteractive url-http-data url-http-target-url url-http-no-retry @@ -1241,6 +1246,7 @@ overriding the value of `url-gateway-method'." (setq url-http-method (or url-request-method "GET") url-http-extra-headers url-request-extra-headers + url-http-noninteractive url-request-noninteractive url-http-data url-request-data url-http-process connection url-http-chunked-length nil |