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

diff --git a/ChangeLog b/ChangeLog
index 60e5ef7..522a35c 100644 (file)
--- 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 (file)
--- 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))