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

[elisp/gnus.git-] / lisp / gnus-namazu.el

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 458729d..6883870 100644 (file)
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -534,19 +534,18 @@ generate possible group names from it."
 
 (defun gnus-namazu/truncate-article-list (articles)
   (let ((hit (length articles)))
-    (when (> hit gnus-large-newsgroup)
+    (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)