Further `read-string' fixups when inserting old articles

* gnus-sum.el (gnus-summary-insert-old-articles): Fix the syntax for
the default in `read-string' (bug#10757).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d3a26a..ee98698 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-20  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-sum.el (gnus-summary-insert-old-articles): Fix the syntax for
+       the default in `read-string' (bug#10757).
+
        * gnus-msg.el (gnus-group-post-news): Don't bug out on `C-u a' on
        topics (bug#10843).
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8ae8d0b..9770b8f 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -12860,9 +12860,8 @@ If ALL is a number, fetch this number of articles."
                        (if initial "max" "default")
                        len)
                       nil nil
-                      (if initial
-                          (cons (number-to-string initial)
-                                0)))))
+                      (and initial
+                           (number-to-string initial)))))
                (unless (string-match "^[ \t]*$" input)
                  (setq all (string-to-number input))
                  (if (< all len)