From 3ed85e363a1cab485269c162e70c521c41206b2b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 18 Jul 2002 12:54:04 +0000 Subject: [PATCH] * gnus-namazu.el (gnus-namazu/truncate-article-list): Remove a redundancy. --- ChangeLog | 5 +++++ lisp/gnus-namazu.el | 16 +++++++--------- 2 files changed, 12 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 97f4bf5..64e87b5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-07-18 Katsumi Yamaoka + + * lisp/gnus-namazu.el (gnus-namazu/truncate-article-list): Remove + a redundancy. + 2002-07-11 TSUCHIYA Masatoshi * texi/gnus-ja.texi (Web Newspaper): Update the url of w3m. diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el index c8539aa..98a6173 100644 --- a/lisp/gnus-namazu.el +++ b/lisp/gnus-namazu.el @@ -540,17 +540,15 @@ generate possible group names from it." (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