From: yamaoka <yamaoka>
Date: Thu, 18 Jul 2002 12:54:04 +0000 (+0000)
Subject: * gnus-namazu.el (gnus-namazu/truncate-article-list): Remove a redundancy.
X-Git-Tag: t-gnus-6_15_8-00-quimby~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3ed85e363a1cab485269c162e70c521c41206b2b;p=elisp%2Fgnus.git-

* gnus-namazu.el (gnus-namazu/truncate-article-list): Remove a redundancy.
---

diff --git a/ChangeLog b/ChangeLog
index 97f4bf5..64e87b5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-namazu.el (gnus-namazu/truncate-article-list): Remove
+	a redundancy.
+
 2002-07-11  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
 	* 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)