X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=e4ad698f1c58b1e215874d6521011d2d3bd36c5e;hb=f7f8a94ffef429d5c674abe60fc038f54e126650;hp=658a529481c4d1e839c97f99b248628d8cf2e86e;hpb=5990cb670168c59ed9591459fdc0cbcff36c56a8;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 658a529..e4ad698 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5888,8 +5888,8 @@ articles that are younger than AGE days."
 			      (nnmail-time-since (nnmail-date-to-time date))
 			      cutoff))
 	    (when (if younger-p
-		      (not is-younger)
-		    is-younger)
+		      is-younger
+		    (not is-younger))
 	      (push (gnus-data-number d) articles))))
 	(gnus-summary-limit (nreverse articles)))
     (gnus-summary-position-point)))
@@ -7212,7 +7212,7 @@ delete these instead."
 				       gnus-newsgroup-name)
     (error "The current newsgroup does not support article deletion"))
   ;; Compute the list of articles to delete.
-  (let ((articles (gnus-summary-work-articles n))
+  (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
 	not-deleted)
     (if (and gnus-novice-user
 	     (not (gnus-yes-or-no-p