Kill all processes associated with the buffer.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/url/url-queue.el b/lisp/url/url-queue.el
index 7f20f80cc99..08496ad5afb 100644
--- a/lisp/url/url-queue.el
+++ b/lisp/url/url-queue.el
@@ -93,15 +93,16 @@ controls the level of parallelism via the
 (defun url-queue-prune-old-entries ()
   (let (dead-jobs)
     (dolist (job url-queue)
-      ;; Kill jobs that have lasted longer than five seconds.
+      ;; Kill jobs that have lasted longer than the timeout.
       (when (and (url-queue-start-time job)
                  (> (- (float-time) (url-queue-start-time job))
                     url-queue-timeout))
         (push job dead-jobs)))
     (dolist (job dead-jobs)
       (when (bufferp (url-queue-buffer job))
-        (ignore-errors
-          (delete-process (get-buffer-process (url-queue-buffer job))))
+        (while (get-buffer-process (url-queue-buffer job))
+          (ignore-errors
+            (delete-process (get-buffer-process (url-queue-buffer job)))))
         (ignore-errors
           (kill-buffer (url-queue-buffer job))))
       (setq url-queue (delq job url-queue)))))