From f95e6d18cbb0d974490528f66de8ff0e7cfd63d3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 18 Jul 2002 12:53:55 +0000 Subject: [PATCH] * gnus-namazu.el (gnus-namazu/truncate-article-list): Remove a redundancy; when `gnus-large-newsgroup' is equal to nil, no confirmation is required. --- ChangeLog | 11 +++++++++++ lisp/gnus-namazu.el | 19 +++++++++---------- 2 files changed, 20 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1545a78..d338949 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,14 @@ +2002-07-18 Katsumi Yamaoka + + * lisp/gnus-namazu.el (gnus-namazu/truncate-article-list): Remove + a redundancy. + +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-07-04 Katsumi Yamaoka * lisp/dgnushack.el (byte-optimize-form-code-walker): Don't modify diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el index 458729d..6883870 100644 --- 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) -- 1.7.10.4