From: bg66 <bg66>
Date: Fri, 1 Dec 2006 04:23:38 +0000 (+0000)
Subject: * mixi.el (mixi-diary-comment-list-page): Use `full=1' instead of
X-Git-Tag: mixi-el-1_0_0~177
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0ca16fe93b0f0844e098a2734eb63608ffd80033;p=elisp%2Fmixi.git

* mixi.el (mixi-diary-comment-list-page): Use `full=1' instead of
`page=%d'.
(mixi-get-comments): Get comments in latest order.
---

diff --git a/ChangeLog b/ChangeLog
index 2fe21ba..143d7ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2006-12-01  OHASHI Akira  <bg66@koka-in.org>
 
+	* mixi.el (mixi-diary-comment-list-page): Use `full=1' instead of
+	`page=%d'.
+	(mixi-get-comments): Get comments in latest order.
+
+2006-12-01  OHASHI Akira  <bg66@koka-in.org>
+
 	* mixi.el (mixi-parse-buffer): Rename from `mixi-retrieve-1', and
 	swap `buffer' argument and `url'.
 	(mixi-url-retrieve): Follow the change above.
diff --git a/mixi.el b/mixi.el
index 5715b15..222266e 100644
--- a/mixi.el
+++ b/mixi.el
@@ -1733,7 +1733,7 @@ Increase this value when unexpected error frequently occurs."
   (aref (cdr comment) 3))
 
 (defun mixi-diary-comment-list-page (diary)
-  (concat "/view_diary.pl?page=%d"
+  (concat "/view_diary.pl?full=1"
 	  "&id=" (mixi-diary-id diary)
 	  "&owner_id=" (mixi-friend-id (mixi-diary-owner diary))))
 
@@ -1837,7 +1837,16 @@ Increase this value when unexpected error frequently occurs."
 	 (regexp (eval (intern (concat mixi-object-prefix name
 				       "-comment-list-regexp")))))
     (let ((items (mixi-get-matched-items
-		  (funcall list-page parent) regexp range)))
+		  (funcall list-page parent) regexp)))
+      (let (list)
+	(catch 'stop
+	  (mapc (lambda (item)
+		  (when (and (numberp range)
+			     (>= (length list) range))
+		    (throw 'stop nil))
+		  (setq list (cons item list)))
+	        (reverse items)))
+	(setq items (reverse list)))
       (mapcar (lambda (item)
 		(mixi-make-comment parent (mixi-make-friend
 					   (nth 7 item) (nth 8 item))