--- gnus-sum.el.~1~	Fri Dec  3 11:27:20 1999
+++ gnus-sum.el	Sun May 28 13:59:09 2000
@@ -4223,13 +4223,17 @@
 		 ((and (or (<= scored marked) (= scored number))
 		       (numberp gnus-large-newsgroup)
 		       (> number gnus-large-newsgroup))
-		  (let ((input
-			 (read-string
-			  (format
-			   "How many articles from %s (default %d): "
-			   (gnus-limit-string gnus-newsgroup-name 35)
-			   number))))
-		    (if (string-match "^[ \t]*$" input) number input)))
+		  (condition-case ()
+		      (cond
+		       ((numberp davel-gnus-num-articles)
+			(+ davel-gnus-num-articles (length gnus-newsgroup-unreads)))
+		       (t (let (input
+				((read-string
+				   (format
+				   "How many articles from %s (default %d): "
+				   (gnus-limit-string gnus-newsgroup-name 35)
+				   number))
+				  (if (string-match "^[ \t]*$" input) number input))))))))
 		 ((and (> scored marked) (< scored number)
 		       (> (- scored number) 20))
 		  (let ((input