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

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 118045
revision-id: address@hidden
parent: address@hidden
author: Alan Schmitt <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2014-10-04 23:57:35 +0000
message:
  lisp/gnus/nnimap.el (nnimap-process-expiry-targets): Reverse the list of 
expired messages only when it was built in reverse order
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/nnimap.el            nnimap.el-20091113204419-o5vbwnq5f7feedwu-1978

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-10-04 23:55:04 +0000
+++ b/lisp/gnus/ChangeLog       2014-10-04 23:57:35 +0000
@@ -1,3 +1,8 @@
+2014-10-04  Alan Schmitt  <address@hidden>  (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  <address@hidden>  (tiny change)
 
        * gnus-delay.el (gnus-delay-send-queue): Remove `gnus-delay-header'

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2014-03-23 23:13:36 +0000
+++ b/lisp/gnus/nnimap.el       2014-10-04 23:57:35 +0000
@@ -986,10 +986,10 @@
                    (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))