*** empty log message ***

[gnus] / lisp / nnvirtual.el

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index 855ad61..470e341 100644 (file)
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -193,20 +193,18 @@ virtual group.")
     (let ((newsrc (cdr gnus-newsrc-alist))
          group)
       (while (setq group (car (pop newsrc)))
-       (and (string-match nnvirtual-component-regexp group) ; Match
-            ;; Add this group to the list of component groups.
-            (setq nnvirtual-component-groups
-                  (cons group 
-                        (delete group nnvirtual-component-groups)))))
-      (setq nnvirtual-component-groups
-           (delete (nnvirtual-current-group)
-                   nnvirtual-component-groups)))
+       (when (string-match nnvirtual-component-regexp group) ; Match
+         ;; Add this group to the list of component groups.
+         (setq nnvirtual-component-groups
+               (cons group (delete group nnvirtual-component-groups))))))
     (if (not nnvirtual-component-groups)
        (nnheader-report 'nnvirtual "No component groups: %s" server)
       t)))
 
 (deffoo nnvirtual-request-group (group &optional server dont-check)
   (nnvirtual-possibly-change-server server)
+  (setq nnvirtual-component-groups
+       (delete (nnvirtual-current-group) nnvirtual-component-groups))
   (cond
    ((null nnvirtual-component-groups)
     (setq nnvirtual-current-group nil)