From: Alan Schmitt Date: Sat, 4 Oct 2014 23:57:35 +0000 (+0000) Subject: lisp/gnus/nnimap.el (nnimap-process-expiry-targets): Reverse the list of expired... X-Git-Tag: emacs-25.0.90~2635^2~679^2~126 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1dad5c7b82fc9aa246e4efc15e26b6b89ef36fc6;p=emacs.git lisp/gnus/nnimap.el (nnimap-process-expiry-targets): Reverse the list of expired messages only when it was built in reverse order --- 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 (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 (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))