projects
/
elisp
/
mixi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
353cd56
)
(mixi-get-matched-items): Fix a while loop condition.
author
bg66
<bg66>
Wed, 16 Jan 2008 02:46:02 +0000
(
02:46
+0000)
committer
bg66
<bg66>
Wed, 16 Jan 2008 02:46:02 +0000
(
02:46
+0000)
ChangeLog
patch
|
blob
|
history
mixi.el
patch
|
blob
|
history
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.
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 -*-
;; 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
;; Author: OHASHI Akira <bg66@koka-in.org>
;; Keywords: hypermedia
@@
-138,7
+138,7
@@
(autoload 'w3m-retrieve "w3m")
(autoload 'url-retrieve-synchronously "url"))
(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."
(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
(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))
(with-mixi-retrieve (when url (format url page))
(let ((func (if reverse (progn
(goto-char (point-max))