projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mm-uu-pgp-signed-extract): Use coding-system.
[gnus]
/
lisp
/
nnvirtual.el
diff --git
a/lisp/nnvirtual.el
b/lisp/nnvirtual.el
index
10a58e8
..
823dcdd
100644
(file)
--- a/
lisp/nnvirtual.el
+++ b/
lisp/nnvirtual.el
@@
-1,5
+1,6
@@
;;; nnvirtual.el --- virtual newsgroups access for Gnus
;;; nnvirtual.el --- virtual newsgroups access for Gnus
-;; Copyright (C) 1994-2000 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000
+;; Free Software Foundation, Inc.
;; Author: David Moore <dmoore@ucsd.edu>
;; Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Author: David Moore <dmoore@ucsd.edu>
;; Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-366,8
+367,16
@@
component group will show up when you enter the virtual group.")
(nnvirtual-possibly-change-server server)
(setq nnvirtual-component-groups
(delete (nnvirtual-current-group) nnvirtual-component-groups))
(nnvirtual-possibly-change-server server)
(setq nnvirtual-component-groups
(delete (nnvirtual-current-group) nnvirtual-component-groups))
- (dolist (group nnvirtual-component-groups)
- (gnus-group-expire-articles-1 group)))
+ (let (unexpired)
+ (dolist (group nnvirtual-component-groups)
+ (setq unexpired (nconc unexpired
+ (mapcar
+ #'(lambda (article)
+ (nnvirtual-reverse-map-article
+ group article))
+ (gnus-uncompress-range
+ (gnus-group-expire-articles-1 group))))))
+ (sort unexpired '<)))
\f
;;; Internal functions.
\f
;;; Internal functions.