From 2430b70ca6fcb20d62542a80131cf5cb194687b4 Mon Sep 17 00:00:00 2001
From: bg66 <bg66>
Date: Mon, 1 Oct 2007 12:10:55 +0000
Subject: [PATCH] * mixi.el (mixi-diary-comment-list-regexp): Follow the
 change of mixi. (mixi-get-comments): Follow the change
 above.

---
 ChangeLog |    3 +++
 mixi.el   |   22 +++++++++++++---------
 2 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cc906b2..dc6c87f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2007-10-01  OHASHI Akira  <bg66@koka-in.org>
 
+	* mixi.el (mixi-diary-comment-list-regexp): Follow the change of mixi.
+	(mixi-get-comments): Follow the change above.
+
 	* mixi.el (mixi-friend-nick-regexp): Follow the change of mixi.
 	(mixi-friend-name-regexp): Ditto.
 	(mixi-friend-sex-regexp): Ditto.
diff --git a/mixi.el b/mixi.el
index 124d34c..b8f1086 100644
--- a/mixi.el
+++ b/mixi.el
@@ -2270,7 +2270,9 @@ Increase this value when unexpected error frequently occurs."
 (defconst mixi-diary-comment-list-regexp
   "<span class=\"commentTitleName\">\\(<input type=\"checkbox\" name=\"comment_id\" value=\".+\" />
 \\|\\)<a href=\"show_friend\\.pl\\?id=\\([0-9]+\\)\">\\(.*\\)</a>
-</span>
+\\(
+| <a href=\"delete_comment\\.pl\\?diary_id=[0-9]+&owner_id=[0-9]+&comment_id=.+&type=comment\">¼«Ê¬¤Î¥³¥á¥ó¥È¤òºï½ü¤¹¤ë</a>
+\\|\\)</span>
 
 <span class=\"commentTitleDate\">\\([0-9]+\\)ǯ\\([0-9]+\\)·î\\([0-9]+\\)Æü&nbsp;\\([0-9]+\\):\\([0-9]+\\)</span>
 
@@ -2291,8 +2293,10 @@ Increase this value when unexpected error frequently occurs."
 
 ?
 <dd>
-\\(.+\\)
-</dd>")
+\\(\\(.\\|\r?\n\\)*?\\)
+</dd>
+</dl>
+</div>")
 
 (defun mixi-topic-comment-list-page (topic)
   (concat "/view_bbs.pl?page=all"
@@ -2345,12 +2349,12 @@ Increase this value when unexpected error frequently occurs."
 		      (progn
 			(setq owner-id (nth 1 item))
 			(setq owner-nick (nth 2 item))
-			(setq year (nth 3 item))
-			(setq month (nth 4 item))
-			(setq day (nth 5 item))
-			(setq hour (nth 6 item))
-			(setq minute (nth 7 item))
-			(setq content (nth 8 item)))
+			(setq year (nth 4 item))
+			(setq month (nth 5 item))
+			(setq day (nth 6 item))
+			(setq hour (nth 7 item))
+			(setq minute (nth 8 item))
+			(setq content (nth 9 item)))
 		    (setq owner-id (nth 5 item))
 		    (setq owner-nick (nth 6 item))
 		    (setq year (nth 0 item))
-- 
1.7.10.4