Only reverse list of expired messages when in wrong order.

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72d03b2..25f43ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-04  Alan Schmitt <alan.schmitt@polytechnique.org>  (tiny change)
+
+       * lisp/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/nnimap.el b/lisp/nnimap.el
index 1730bd4..ad48d47 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/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))