*** /usr/share/emacs/site-lisp/gnus/lisp/gnus-sum.el	2003-06-07 19:40:22.000000000 +0200
--- ./gnus-sum.el	2003-06-09 12:05:22.000000000 +0200
***************
*** 5242,5247 ****
--- 5242,5248 ----
  	      ;; articles in the group, or (if that's nil), the
  	      ;; articles in the cache.
  	      (or
+ 	       (gnus-request-group-articles group)
  	       (gnus-uncompress-range (gnus-active group))
  	       (gnus-cache-articles-in-group group))
  	    ;; Select only the "normal" subset of articles.
*** /usr/share/emacs/site-lisp/gnus/lisp/nnml.el	2003-05-01 16:23:15.000000000 +0200
--- ./nnml.el	2003-06-09 13:29:21.000000000 +0200
***************
*** 84,89 ****
--- 84,96 ----
  (defvoo nnml-use-compressed-files nil
    "If non-nil, allow using compressed message files.")
  
+ (defvoo nnml-ignore-active-file nil
+   "If t or matches the group name as a regexp, the active file is ignored
+ when retrieving the list of existing articles.  This causes nnml to do some
+ extra work in order to determine the true active ranges of a group.  Note
+ that the active file is still saved, but its values are not used.  This
+ costs some extra time when scanning a group when opening it.")
+ 
  
  
  (defconst nnml-version "nnml 1.0"
***************
*** 1007,1012 ****
--- 1014,1031 ----
  	(nnml-save-marks group server)
  	(nnheader-message 7 "Bootstrapping marks for %s...done" group)))))
  
+ (deffoo nnml-request-group-articles (group &optional server)
+   "Return the list of existing articles in GROUP if
+ `nnml-ignore-active-file' is t or matches the group name as a regexp,
+ otherwise return nil."
+   (if (or (eq nnml-ignore-active-file t)
+ 	  (and (stringp nnml-ignore-active-file)
+ 	       (string-match nnml-ignore-active-file group)))
+       (sort (nnheader-directory-articles
+ 	     (nnheader-group-pathname (gnus-group-real-name group)
+ 				      nnml-directory))
+ 	    '<)))
+ 
  (provide 'nnml)
  
  ;;; nnml.el ends here
*** /usr/share/emacs/site-lisp/gnus/lisp/nntp.el	2003-05-02 19:55:56.000000000 +0200
--- ./nntp.el	2003-06-09 13:31:08.000000000 +0200
***************
*** 845,856 ****
     nil server
     (nntp-send-command "^\\.*\r?\n" "LIST ACTIVE" group)))
  
- (deffoo nntp-request-group-articles (group &optional server)
-   "Return the list of existing articles in GROUP."
-   (nntp-with-open-group
-    nil server
-    (nntp-send-command "^\\.*\r?\n" "LISTGROUP" group)))
- 
  (deffoo nntp-request-article (article &optional group server buffer command)
    (nntp-with-open-group
      group server
--- 845,850 ----