From: tsuchiya <tsuchiya>
Date: Tue, 25 Jun 2002 09:57:25 +0000 (+0000)
Subject: (gnus-namazu/truncate-article-list): When `gnus-large-newsgroup' is
X-Git-Tag: t-gnus-6_15_8-00-quimby~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=33944ffb2e4eac6a2509303bd34e8ff0c8852c7d;p=elisp%2Fgnus.git-

(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
--- 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
--- 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)