X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnvirtual.el;h=0880a2bfc8cb2a03aab4bfa23fcf44209cbada24;hb=e5bec5d05f433a43fa2d14cdb7bebeeefab8835f;hp=e1f43a0d42167327c315c13b688f22441355f019;hpb=2cc5659442ce551b395b9aeebe213947e415ac6d;p=elisp%2Fgnus.git-

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index e1f43a0..0880a2b 100644
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -1,5 +1,5 @@
 ;;; nnvirtual.el --- virtual newsgroups access for Gnus
-;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000
+;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
 ;;        Free Software Foundation, Inc.
 
 ;; Author: David Moore <dmoore@ucsd.edu>
@@ -363,7 +363,7 @@ component group will show up when you enter the virtual group.")
       (gnus-request-post (gnus-find-method-for-group group)))))
 
 
-(deffoo nnvirtual-request-expire-articles (articles group 
+(deffoo nnvirtual-request-expire-articles (articles group
 						    &optional server force)
   (nnvirtual-possibly-change-server server)
   (setq nnvirtual-component-groups
@@ -377,7 +377,7 @@ component group will show up when you enter the virtual group.")
 				   group article))
 			      (gnus-uncompress-range
 			       (gnus-group-expire-articles-1 group))))))
-    (sort unexpired '<)))
+    (sort (delq nil unexpired) '<)))
 
 
 ;;; Internal functions.