(url-queue-run-queue): Pick the first waiting job, and not the last.

lisp/url/ChangeLog

 2011-05-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* url-queue.el: New file.
+	(url-queue-run-queue): Pick the first waiting job, and not the
+	last.
 
 2011-04-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

lisp/url/url-queue.el

@@ -67,9 +67,11 @@ controls the level of parallelism via the
   (let ((running 0)
 	waiting)
     (dolist (entry url-queue)
-      (if (url-queue-start-time entry)
-	  (incf running)
-	(setq waiting entry)))
+      (cond
+       ((url-queue-start-time entry)
+	(incf running))
+       ((not waiting)
+	(setq waiting entry))))
     (when (and waiting
 	       (< running url-queue-parallel-processes))
       (setf (url-queue-start-time waiting) (float-time))