lisp/gnus/nnimap.el (nnimap-process-expiry-targets): Reverse the list of expired messages only when it was built in reverse order

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f9702cd48f5..728858c281b 100644
--- 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 1730bd4252c..ad48d4737a5 100644
--- 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))