- (mapc (lambda (object)
- (when (mixi-parent-p object)
- (let ((comments (mixi-get-comments
- object riece-mixi-check-range)))
- (mapc (lambda (comment)
- (let ((time (mixi-object-time comment)))
- (when (mixi-time-less-p
- riece-mixi-last-check time)
- (riece-mixi-send-object-with-url
- target comment))))
- comments)))
- (let ((time (mixi-object-time object)))
- (when (mixi-time-less-p riece-mixi-last-check
- time)
- (riece-mixi-send-object-with-url target
- object))))
- objects)))))
+ (while objects
+ (let ((object (car objects)))
+ (when (mixi-parent-p object)
+ (let ((comments (mixi-get-comments
+ object riece-mixi-check-range)))
+ (while comments
+ (let ((time (mixi-object-time (car comments))))
+ (when (mixi-time-less-p riece-mixi-last-check
+ time)
+ (riece-mixi-send-object-with-url
+ target (car comments))))
+ (setq comments (cdr comments)))))
+ (let ((time (mixi-object-time object)))
+ (when (mixi-time-less-p riece-mixi-last-check time)
+ (riece-mixi-send-object-with-url target object))))
+ (setq objects (cdr objects)))))))