From: bg66 <bg66>
Date: Wed, 16 Jan 2008 02:46:02 +0000 (+0000)
Subject: (mixi-get-matched-items): Fix a while loop condition.
X-Git-Tag: mixi-el-1_2_1~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fmixi.git;a=commitdiff_plain;h=60431aac76ef265187cec58756cc674f2ff42e55

(mixi-get-matched-items): Fix a while loop condition.
---

diff --git a/ChangeLog b/ChangeLog
index 60e5ef7..522a35c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-16  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el (mixi-get-matched-items): Fix a while loop condition.
+
 2007-12-29  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi-el: Version 1.2.0 released.
diff --git a/mixi.el b/mixi.el
index b0ee69e..17f55f6 100644
--- a/mixi.el
+++ b/mixi.el
@@ -1,6 +1,6 @@
 ;; mixi.el --- API libraries for accessing to mixi -*- coding: euc-jp -*-
 
-;; Copyright (C) 2005, 2006, 2007 OHASHI Akira
+;; Copyright (C) 2005, 2006, 2007, 2008 OHASHI Akira
 
 ;; Author: OHASHI Akira <bg66@koka-in.org>
 ;; Keywords: hypermedia
@@ -138,7 +138,7 @@
   (autoload 'w3m-retrieve "w3m")
   (autoload 'url-retrieve-synchronously "url"))
 
-(defconst mixi-revision "$Revision: 1.179 $")
+(defconst mixi-revision "$Revision: 1.180 $")
 
 (defgroup mixi nil
   "API library for accessing to mixi."
@@ -475,7 +475,8 @@ Increase this value when unexpected error frequently occurs."
   (let ((page 1)
 	ids)
     (catch 'end
-      (while (or (null range) (< (length ids) range))
+      (while (and (or (null range) (< (length ids) range))
+		  (or (= page 1) (and (stringp url) (string-match "%d" url))))
 	(with-mixi-retrieve (when url (format url page))
 	  (let ((func (if reverse (progn
 				    (goto-char (point-max))