From: bg66 <bg66>
Date: Wed, 22 Nov 2006 02:47:35 +0000 (+0000)
Subject: * mixi.el (mixi-get-matched-items): Fix the condition for quitting
X-Git-Tag: cache-file-branchpoint~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6aa6227af026a304a278df765d011e3e2b824a76;p=elisp%2Fmixi.git

* mixi.el (mixi-get-matched-items): Fix the condition for quitting
retrieval.
---

diff --git a/ChangeLog b/ChangeLog
index c2d65f1..8c71c27 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-22  KAMO Tomoyuki  <kto2038@yahoo.co.jp>
+
+	* mixi.el (mixi-get-matched-items): Fix the condition for quitting
+	retrieval.
+
 2006-11-20  OHASHI Akira  <bg66@koka-in.org>
 
 	* sb-mixi.el (shimbun-mixi-get-comment-p): New user option.
diff --git a/mixi.el b/mixi.el
index a0a4e43..bf95ff5 100644
--- a/mixi.el
+++ b/mixi.el
@@ -354,7 +354,8 @@ Increase this value when unexpected error frequently occurs."
     (catch 'end
       (while (or (null max-numbers) (< (length ids) max-numbers))
 	(with-mixi-retrieve (format url page)
-	  (let ((pos 0))
+	  (let ((pos 0)
+		found)
 	    (while (and (string-match regexp buffer pos)
 			(or (null max-numbers) (< (length ids) max-numbers)))
 	      (let ((num 1)
@@ -362,11 +363,11 @@ Increase this value when unexpected error frequently occurs."
 		(while (match-string num buffer)
 		  (setq list (cons (match-string num buffer) list))
 		  (incf num))
-		(when (member (reverse list) ids)
-		  (throw 'end ids))
-		(setq ids (cons (reverse list) ids))
+		(when (not (member (reverse list) ids))
+		  (setq found t)
+		  (setq ids (cons (reverse list) ids)))
 		(setq pos (match-end (1- num)))))
-	    (when (eq pos 0)
+	    (when (not found)
 	      (throw 'end ids))))
 	(incf page)))
     ;; FIXME: Sort? Now order by newest.