From: bg66 <bg66>
Date: Sat, 7 Jun 2008 01:42:48 +0000 (+0000)
Subject: (mixi-search-diary-list-regexp): Follow the change of mixi.
X-Git-Tag: mixi-el-1_4_2~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f7ad106596dc29708fc1edeed10f03e064e4d50a;p=elisp%2Fmixi.git

(mixi-search-diary-list-regexp): Follow the change of mixi.
(mixi-search-diaries): Follow the change above.
---

diff --git a/ChangeLog b/ChangeLog
index d541d23..e78c880 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-07  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el (mixi-search-diary-list-regexp): Follow the change of mixi.
+	(mixi-search-diaries): Follow the change above.
+
 2008-04-15  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi-el: Version 1.4.1 released.
diff --git a/mixi.el b/mixi.el
index 1ed860b..e273b5f 100644
--- a/mixi.el
+++ b/mixi.el
@@ -139,7 +139,7 @@
   (autoload 'w3m-retrieve "w3m")
   (autoload 'url-retrieve-synchronously "url"))
 
-(defconst mixi-revision "$Revision: 1.186 $")
+(defconst mixi-revision "$Revision: 1.187 $")
 
 (defgroup mixi nil
   "API library for accessing to mixi."
@@ -1371,26 +1371,14 @@ Increase this value when unexpected error frequently occurs."
 	     (mixi-url-encode-and-quote-percent-string ,keyword)))
 
 (defconst mixi-search-diary-list-regexp
-  "<td BGCOLOR=#FDF9F2><font COLOR=#996600>̾&nbsp;&nbsp;Á°</font></td>
-<td COLSPAN=2 BGCOLOR=#FFFFFF>\\(.*\\)
-
-</td></tr>
-
-<tr>
-<td BGCOLOR=#FDF9F2><font COLOR=#996600>¥¿¥¤¥È¥ë</font></td>
-<td COLSPAN=2 BGCOLOR=#FFFFFF>\\(.+\\)</td></tr>
-
-<tr>
-<td BGCOLOR=#FDF9F2><font COLOR=#996600>ËÜ&nbsp;&nbsp;ʸ</font></td>
-<td COLSPAN=2 BGCOLOR=#FFFFFF width=\"380\">\\(.*\\)</td></tr>
-
-
-<tr>
-<td NOWRAP BGCOLOR=#FDF9F2 WIDTH=80><font COLOR=#996600>ºîÀ®Æü»þ</font></td>
-<td BGCOLOR=#FFFFFF WIDTH=220>\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\)</td>
-<td ALIGN=center BGCOLOR=#FDF9F2 width=250><a href=\"view_diary\\.pl\\?id=\\([0-9]+\\)&owner_id=\\([0-9]+\\)\"><img src=http://img\\.mixi\\.jp/img/shbtn\\.gif ALT=¾ÜºÙ¤ò¸«¤ë BORDER=0 WIDTH=104 HEIGHT=19></a></td></tr>
-</table>
-</td></tr></table>")
+ "<li>
+<div class=\"listIcon\"><a href=\"view_diary\\.pl\\?id=\\([0-9]+\\)&owner_id=\\([0-9]+\\)\"><img src=\".*\" alt=\".*\" /></a>
+<span class=\"name\"><a href=\"view_diary\\.pl\\?id=[0-9]+&owner_id=[0-9]+\">\\(.*\\)</a></span></div>
+<div class=\"listContents\">
+<div class=\"heading\"><a href=\"view_diary\\.pl\\?id=[0-9]+&owner_id=[0-9]+\" class=\"name\">\\(.+\\)</a><span class=\"date\">\\([0-9]+\\)·î\\([0-9]+\\)Æü \\([0-9]+\\):\\([0-9]+\\)</span></div>
+<p class=\"description\">\\(.*\\)
+</div>
+</li>")
 
 ;;;###autoload
 (defun mixi-search-diaries (keyword &optional range)
@@ -1400,20 +1388,20 @@ Increase this value when unexpected error frequently occurs."
 	(year (nth 5 (decode-time (current-time))))
 	(month (nth 4 (decode-time (current-time)))))
     (mapcar (lambda (item)
-		(let ((month-of-item (string-to-number (nth 3 item))))
+		(let ((month-of-item (string-to-number (nth 4 item))))
 		  (when (> month-of-item month)
 		    (decf year))
 		  (setq month month-of-item)
-		  (mixi-make-diary (mixi-make-friend (nth 8 item) (nth 0 item))
-				   (nth 7 item)
+		  (mixi-make-diary (mixi-make-friend (nth 1 item) (nth 2 item))
+				   (nth 0 item)
 				   nil
 				   (encode-time
-				    0 (string-to-number (nth 6 item))
+				    0 (string-to-number (nth 7 item))
+				    (string-to-number (nth 6 item))
 				    (string-to-number (nth 5 item))
-				    (string-to-number (nth 4 item))
 				    month year)
-				   (nth 1 item)
-				   (nth 2 item))))
+				   (nth 3 item)
+				   (nth 8 item))))
 	    items)))
 
 (defmacro mixi-post-diary-page ()