Commit 99d1a666 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

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).
parent dc8aa154
Pipeline #6201 failed with stage
in 56 minutes and 17 seconds
......@@ -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
......@@ -5938,7 +5938,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(initial (gnus-parameter-large-newsgroup-initial
(default (if only-read-p
(or initial gnus-large-newsgroup)
(if (eq initial 'all)
(or initial gnus-large-newsgroup))
......@@ -13165,10 +13167,13 @@ If ALL is a number, fetch this number of articles."
(when (and (numberp gnus-large-newsgroup)
(> len gnus-large-newsgroup))
(let* ((cursor-in-echo-area nil)
(initial (gnus-parameter-large-newsgroup-initial
(let ((cursor-in-echo-area nil)
(initial (gnus-parameter-large-newsgroup-initial
(when (eq initial 'all)
(setq initial len))
(setq input
"How many articles from %s (%s %d): "
......@@ -13177,7 +13182,7 @@ If ALL is a number, fetch this number of articles."
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)
......@@ -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)
:parameter-document "\
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment