From: keiichi <keiichi>
Date: Tue, 18 Jul 2000 07:12:52 +0000 (+0000)
Subject: (gnus-articles-to-read): If the number of unread articles is more than
X-Git-Tag: nana-gnus-7_1_0_23~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6743cf0672a6e03c88f7ae84a7142f1265dd2949;p=elisp%2Fgnus.git-

(gnus-articles-to-read): If the number of unread articles is more than
`gnus-large-newsgroup', use it in default instead of the maximum number.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8b06e80..6ec23a7 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4251,12 +4251,14 @@ If SELECT-ARTICLES, only select those articles from GROUP."
 		 ((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))))
+		  (let* ((cursor-in-echo-area nil)
+			 (input (read-from-minibuffer
+				 (format
+				  "How many articles from %s (max %d): "
+				  (gnus-limit-string gnus-newsgroup-name 35)
+				  number)
+				 (cons (number-to-string gnus-large-newsgroup)
+				       0))))
 		    (if (string-match "^[ \t]*$" input) number input)))
 		 ((and (> scored marked) (< scored number)
 		       (> (- scored number) 20))