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

equal to nil, no confirmation is required.

diff --git a/ChangeLog b/ChangeLog
index aa26ad6..e4f466c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-06-25  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+       * lisp/gnus-namazu.el (gnus-namazu/truncate-article-list): When
+       `gnus-large-newsgroup' is equal to nil, no confirmation is
+       required.
+
 2002-06-23  Tetsuo Tsukamoto  <czkmt@remus.dti.ne.jp>
 
        * lisp/pop3.el (pop3-open-ssl-stream): Do away with w32-related

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)