lisp/gnus/nnimap.el (nnimap-process-expiry-targets): Reverse the list of expired...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f9702cd48f5e42ab59dd6929d6b5bf842e8b2ddd..728858c281b0201ef7f61d42063e3e85c94ba289 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-04  Alan Schmitt  <alan.schmitt@polytechnique.org>  (tiny change)
+
+       * nnimap.el (nnimap-process-expiry-targets): Reverse the list of
+       expired messages only when it was built in reverse order.
+
 2014-10-04  Peter Münster  <pmlists@free.fr>  (tiny change)
 
        * gnus-delay.el (gnus-delay-send-queue): Remove `gnus-delay-header'

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 1730bd4252c660b41b6f2fad5d94b5fe060cc3be..ad48d4737a5805470aaed699d75c4310f555edcb 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -986,10 +986,10 @@ textual parts.")
                    (setq target nil))
                (nnheader-message 7 "Expiring article %s:%d" group article))
              (when target
-               (push article deleted-articles))))))))
+               (push article deleted-articles))))))
+      (setq deleted-articles (nreverse deleted-articles))))
     ;; Change back to the current group again.
     (nnimap-change-group group server)
-    (setq deleted-articles (nreverse deleted-articles))
     (nnimap-delete-article (gnus-compress-sequence deleted-articles))
     deleted-articles))