X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mixi.el;h=d9a04eecbe54a07580697c8ed043ac37a73569fa;hb=60cb0d1b1f0871851b9de423cf3bd91a2d8e09df;hp=b53da721a508906d166c2984076b73e945992a70;hpb=d09547de5639214c065cb4ed7bed024599f8097d;p=elisp%2Fmixi.git

diff --git a/mixi.el b/mixi.el
index b53da72..d9a04ee 100644
--- a/mixi.el
+++ b/mixi.el
@@ -40,7 +40,7 @@
 ;;  * mixi-get-comments
 ;;  * mixi-get-new-comments
 ;;  * mixi-get-messages
-;;  * mixi-get-introductions
+;;  * mixi-get-introductions (broken)
 ;;  * mixi-get-news
 ;;
 ;; APIs for posting:
@@ -135,6 +135,8 @@
   (autoload 'w3m-retrieve "w3m")
   (autoload 'url-retrieve-synchronously "url"))
 
+(defconst mixi-revision "$Revision: 1.170 $")
+
 (defgroup mixi nil
   "API library for accessing to mixi."
   :group 'hypermedia)
@@ -1917,9 +1919,9 @@ Increase this value when unexpected error frequently occurs."
   "<dt>³«ºÅ¾ì½ê</dt>
 <dd>\\(.+\\)</dd>")
 (defconst mixi-event-owner-regexp
-  "<dt><a href=\"show_friend\\.pl\\?id=\\([0-9]+\\)\">\\(.*\\)</a></dt>")
+  "<dt>\\((mixi Âà²ñºÑ)\\|<a href=\"show_friend\\.pl\\?id=\\([0-9]+\\)\">\\(.*\\)</a>\\)</dt>")
 (defconst mixi-event-owner-seceded-regexp
-  "<dt>\\((mixi Âà²ñºÑ)\\)</dt>")
+  "(mixi Âà²ñºÑ)")
 (defconst mixi-event-detail-regexp
   "<dd>\\(\\(.\\|\r?\n\\)*?\\)</dd>
 </dl>")
@@ -1958,12 +1960,12 @@ Increase this value when unexpected error frequently occurs."
 	    (mixi-event-set-place event (match-string 1))
 	  (mixi-realization-error 'cannot-find-place event))
 	(if (re-search-forward mixi-event-owner-regexp nil t)
-	    (mixi-event-set-owner event (mixi-make-friend (match-string 1)
-							  (match-string 2)))
-	  (if (re-search-forward mixi-event-owner-seceded-regexp nil t)
-	      (mixi-event-set-owner event
-				    (mixi-make-friend nil (match-string 1)))
-	    (mixi-realization-error 'cannot-find-owner event)))
+	    (let ((id (match-string 1))
+		  (nick (match-string 2)))
+	      (if (string-match mixi-event-owner-seceded-regexp id)
+		  (mixi-event-set-owner event (mixi-make-friend nil id))
+		(mixi-event-set-owner event (mixi-make-friend id nick))))
+	  (mixi-realization-error 'cannot-find-owner event))
 	(if (re-search-forward mixi-event-detail-regexp nil t)
 	    (mixi-event-set-detail event (match-string 1))
 	  (mixi-realization-error 'cannot-find-detail event))