Filter out negative article numbers during expiry

Fixes #11980

See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11980#8

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 339e3d9..3aee7c6 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -706,6 +706,10 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
 
 (defun gnus-request-expire-articles (articles group &optional force)
   (let* ((gnus-command-method (gnus-find-method-for-group group))
+         ;; Filter out any negative article numbers; they can't be
+         ;; expired here.
+         (articles
+          (delq nil (mapcar (lambda (n) (and (>= n 0) n)) articles)))
         (gnus-inhibit-demon t)
         (not-deleted
          (funcall