diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-21 15:22:24 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-21 15:22:24 +0100 |
| commit | adf00298b60e87f76c64b1ba68c0424df55982e1 (patch) | |
| tree | f76bd39e0f59e5670abe631986ce2d3b4573659f /lisp/url | |
| parent | 087d031ec691f8bdf38358fe993806d346bc6f25 (diff) | |
| download | emacs-adf00298b60e87f76c64b1ba68c0424df55982e1.tar.gz emacs-adf00298b60e87f76c64b1ba68c0424df55982e1.tar.bz2 emacs-adf00298b60e87f76c64b1ba68c0424df55982e1.zip | |
Disable background image fetching from asking for passwords
* lisp/url/url-queue.el (url-queue-start-retrieve): Inhibit
prompting for passwords from these background requests.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-queue.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lisp/url/url-queue.el b/lisp/url/url-queue.el index 8741bca9423..d353f0c0117 100644 --- a/lisp/url/url-queue.el +++ b/lisp/url/url-queue.el @@ -155,14 +155,19 @@ The variable `url-queue-timeout' sets a timeout." (defun url-queue-start-retrieve (job) (setf (url-queue-buffer job) (ignore-errors - (with-current-buffer (if (buffer-live-p (url-queue-context-buffer job)) + (with-current-buffer (if (buffer-live-p + (url-queue-context-buffer job)) (url-queue-context-buffer job) (current-buffer)) - (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))))))) + (let ((url-request-noninteractive t) + ;; This will disable querying the user for + ;; credentials if one of the things we're fetching + ;; in the background return a header requesting it. + (url-request-extra-headers '(("Authorization" . "")))) + (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) |