projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* nnshimbun.el (nnshimbun-request-expire-articles): Fix inhibiting the
[elisp/gnus.git-]
/
lisp
/
nnvirtual.el
diff --git
a/lisp/nnvirtual.el
b/lisp/nnvirtual.el
index
e1f43a0
..
0880a2b
100644
(file)
--- a/
lisp/nnvirtual.el
+++ b/
lisp/nnvirtual.el
@@
-1,5
+1,5
@@
;;; nnvirtual.el --- virtual newsgroups access for Gnus
;;; 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>
;; 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)))))
(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
&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))))))
group article))
(gnus-uncompress-range
(gnus-group-expire-articles-1 group))))))
- (sort unexpired '<)))
+ (sort (delq nil unexpired) '<)))
\f
;;; Internal functions.
\f
;;; Internal functions.