master 99d1a66: Make the "All" setting for large-newsgroup-initial in Gnus work

[Lars Ingebrigtsen]

branch: master
commit 99d1a66646b7450ad0be3e4471341b50fee7bdb5
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make the "All" setting for large-newsgroup-initial in Gnus work
    
    * lisp/gnus/gnus-sum.el (gnus-articles-to-read): Use it.
    (gnus-summary-insert-old-articles): Ditto.
    
    * lisp/gnus/gnus.el (large-newsgroup-initial): Make the "All"
    setting work by using a special symbol, instead of nil which is
    indistinguishable from not being present (bug#38466).
---
 etc/NEWS              |  6 ++++++
 lisp/gnus/gnus-sum.el | 17 +++++++++++------
 lisp/gnus/gnus.el     |  2 +-
 3 files changed, 18 insertions(+), 7 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index fab2d85..492d01f 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -207,6 +207,12 @@ Bookmark locations can refer to VC directory buffers.
 
 ** Gnus
 
+---
+*** The value of "all" in the 'large-newsgroup-initial' group parameter 
changes.
+It was previously nil, which didn't work, because nil is
+indistinguishable from not being present.  The new value for "all" is
+the symbol 'all'.
+
 +++
 *** The name of dependent Gnus sessions has changed from "slave" to "child".
 The names of the commands 'gnus-slave', 'gnus-slave-no-server' and
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index c1216a0..719498a 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -5938,7 +5938,9 @@ If SELECT-ARTICLES, only select those articles from 
GROUP."
                         (initial (gnus-parameter-large-newsgroup-initial
                                   gnus-newsgroup-name))
                         (default (if only-read-p
-                                     (or initial gnus-large-newsgroup)
+                                     (if (eq initial 'all)
+                                         nil
+                                       (or initial gnus-large-newsgroup))
                                    number))
                         (input
                          (read-string
@@ -13165,10 +13167,13 @@ If ALL is a number, fetch this number of articles."
         (t
          (when (and (numberp gnus-large-newsgroup)
                   (> len gnus-large-newsgroup))
-             (let* ((cursor-in-echo-area nil)
-                    (initial (gnus-parameter-large-newsgroup-initial
-                              gnus-newsgroup-name))
-                    (input
+             (let ((cursor-in-echo-area nil)
+                   (initial (gnus-parameter-large-newsgroup-initial
+                             gnus-newsgroup-name))
+                   input)
+               (when (eq initial 'all)
+                 (setq initial len))
+               (setq input
                      (read-string
                       (format
                        "How many articles from %s (%s %d): "
@@ -13177,7 +13182,7 @@ If ALL is a number, fetch this number of articles."
                        len)
                       nil nil
                       (and initial
-                           (number-to-string initial)))))
+                           (number-to-string initial))))
                (unless (string-match "^[ \t]*$" input)
                  (setq all (string-to-number input))
                  (if (< all len)
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 69f2bb2..68e2ce7 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -1591,7 +1591,7 @@ posting an article."
  "Alist of group regexps and its initial input of the number of articles."
  :variable-group gnus-group-parameter
  :parameter-type '(choice :tag "Initial Input for Large Newsgroup"
-                         (const :tag "All" nil)
+                         (const :tag "All" 'all)
                          (integer))
  :parameter-document "\