* gnus-sum.el (gnus-articles-to-read): Use gnus-large-newsgroup as

default number of articles to display.
(gnus-articles-to-read): Use pretty names for prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7bcd39..97d427f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-03-09  Antoine Levitt  <antoine.levitt@gmail.com>
+
+       * gnus-sum.el (gnus-articles-to-read): Use gnus-large-newsgroup as
+       default number of articles to display.
+       (gnus-articles-to-read): Use pretty names for prompt.
+
 2011-03-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-int.el (gnus-open-server): Ditto.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index a8786e3..bc572f2 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5848,13 +5848,13 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                         (input
                          (read-string
                           (format
-                           "How many articles from %s (%s %d): "
-                           (gnus-group-decoded-name gnus-newsgroup-name)
-                           (if initial "max" "default")
-                           number)
-                          (if initial
-                              (cons (number-to-string initial)
-                                    0)))))
+                           "How many articles from %s (available %d, default %d): "
+                           (gnus-group-decoded-name (gnus-group-real-name gnus-newsgroup-name))
+                           number
+                           (or initial gnus-large-newsgroup))
+                          nil
+                          nil
+                          (number-to-string (or initial gnus-large-newsgroup)))))
                    (if (string-match "^[ \t]*$" input) number input)))
                 ((and (> scored marked) (< scored number)
                       (> (- scored number) 20))
@@ -5862,7 +5862,7 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                         (read-string
                          (format "%s %s (%d scored, %d total): "
                                  "How many articles from"
-                                 (gnus-group-decoded-name group)
+                                 (gnus-group-decoded-name (gnus-group-real-name gnus-newsgroup-name))
                                  scored number))))
                    (if (string-match "^[ \t]*$" input)
                        number input)))