*** empty log message ***

[gnus] / lisp / gnus-async.el

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index d0e9720..20a3668 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -128,10 +128,11 @@ from that group.")
                                (not (natnump article)))
                      ;; Not already fetched -- so we add it to the list.
                      (push article gnus-async-fetch-list)))
-                 (setq gnus-async-fetch-list (nreverse gnus-async-fetch-list))))
+                 (setq gnus-async-fetch-list
+                       (nreverse gnus-async-fetch-list))))
 
              (when do-fetch
-               (setq article (pop gnus-async-fetch-list))))
+               (setq article (car gnus-async-fetch-list))))
        
          (gnus-async-release-semaphore 'gnus-async-article-semaphore))