* gnus-namazu.el (gnus-namazu/truncate-article-list): Remove a redundancy.

diff --git a/ChangeLog b/ChangeLog
index 97f4bf5..64e87b5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-namazu.el (gnus-namazu/truncate-article-list): Remove
+       a redundancy.
+
 2002-07-11  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
        * texi/gnus-ja.texi (Web Newspaper): Update the url of w3m.

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index c8539aa..98a6173 100644 (file)
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -540,17 +540,15 @@ generate possible group names from it."
     (when (and gnus-large-newsgroup
               (> hit gnus-large-newsgroup))
       (let* ((cursor-in-echo-area nil)
-            (input
-             (when (> hit gnus-large-newsgroup)
-               (read-from-minibuffer
-                (format
-                 "Too many articles were retrieved.  How many articles (max %d): "
-                 hit)
-                (cons (number-to-string gnus-large-newsgroup) 0)))))
+            (input (read-from-minibuffer
+                    (format "\
+Too many articles were retrieved.  How many articles (max %d): "
+                            hit)
+                    (cons (number-to-string gnus-large-newsgroup) 0))))
        (unless (string-match "\\`[ \t]*\\'" input)
          (setcdr (nthcdr (min (1- (string-to-number input)) hit) articles)
-                 nil))))
-    articles))
+                 nil)))))
+  articles)
 
 ;;;###autoload
 (defun gnus-namazu-search (groups query)