* mixi.el (mixi-diary-comment-list-regexp): Follow the change of mixi.

(mixi-get-comments): Follow the change above.

diff --git a/ChangeLog b/ChangeLog
index cc906b2..dc6c87f 100644 (file)
--- 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 (file)
--- 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))