Subject: bug#12004: [PATCH] Filter out negative article numbers during expiry

From: Dave Abrahams <[email-masked]>
Date: Fri, 20 Jul 2012 21:21:53 -0400

>From a3bc651f68c7cb81779ae0bcae88ecf75abbc896 Mon Sep 17 00:00:00 2001
From: Dave Abrahams <[email-masked]>
Date: Fri, 20 Jul 2012 21:08:53 -0400
Subject: [PATCH] Filter out negative article numbers during expiry

Fixes #11980

See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11980#8
---
 lisp/gnus-int.el |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 18e56ed..d4a52ed 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -722,6 +722,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
-- 
1.7.7.5 (Apple Git-26)

Ma Gnus v0.6
GNU Emacs 24.1.1 (x86_64-apple-darwin11.4.0, Carbon Version 1.6.0 AppKit 1138.47)
 of 2012-06-27 on pluto.luannocracy.com

-- 
Dave Abrahams
BoostPro Computing
http://www.boostpro.com