Commit 55645c67 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

Make url-queue not kill a random buffer on error

* url-queue.el (url-queue-callback-function): Remove the job from
the queue so that we don't kill the current buffer, which will
then make the callback function kill a random buffer.
parent 20af2394
2012-02-19 Lars Ingebrigtsen <larsi@gnus.org>
* url-queue.el (url-queue-callback-function): Remove the job from
the queue so that we don't kill the current buffer, which will
then make the callback function kill a random buffer.
2012-02-14 Lars Ingebrigtsen <larsi@gnus.org>
* url-queue.el (url-queue-kill-job): Refactored out code.
......
......@@ -108,6 +108,7 @@ The variable `url-queue-timeout' sets a timeout."
(url-queue-start-retrieve waiting))))
(defun url-queue-callback-function (status job)
(setq url-queue (delq job url-queue))
(when (and (eq (car status) :error)
(eq (cadr (cadr status)) 'connection-failed))
;; If we get a connection error, then flush all other jobs from
......@@ -116,7 +117,6 @@ The variable `url-queue-timeout' sets a timeout."
;; synchronously and totally halts Emacs.
(url-queue-remove-jobs-from-host
(plist-get (nthcdr 3 (cadr status)) :host)))
(setq url-queue (delq job url-queue))
(url-queue-run-queue)
(apply (url-queue-callback job) (cons status (url-queue-cbargs job))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment