From 6743cf0672a6e03c88f7ae84a7142f1265dd2949 Mon Sep 17 00:00:00 2001 From: keiichi Date: Tue, 18 Jul 2000 07:12:52 +0000 Subject: [PATCH] (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. --- lisp/gnus-sum.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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)) -- 1.7.10.4