From 33944ffb2e4eac6a2509303bd34e8ff0c8852c7d Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Tue, 25 Jun 2002 09:57:25 +0000 Subject: [PATCH] (gnus-namazu/truncate-article-list): When `gnus-large-newsgroup' is equal to nil, no confirmation is required. --- ChangeLog | 6 ++++++ lisp/gnus-namazu.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index aa26ad6..e4f466c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-06-25 TSUCHIYA Masatoshi + + * 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 * 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) -- 1.7.10.4