(gnus-namazu/truncate-article-list): When `gnus-large-newsgroup' is

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

diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 91707e6..70eacb0 100644 (file)
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -537,7 +537,8 @@ generate possible group names from it."
 
 (defun gnus-namazu/truncate-article-list (articles)
   (let ((hit (length articles)))
-    (when (> hit gnus-large-newsgroup)
+    (when (and (integerp gnus-large-newsgroup)
+              (> hit gnus-large-newsgroup))
       (let* ((cursor-in-echo-area nil)
             (input
              (when (> hit gnus-large-newsgroup)