From 99b18e2c11949f86de33b13f3551c63059b23bd2 Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 9 Oct 2007 02:35:34 +0000 Subject: [PATCH] Fix the last change. --- mixi.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/mixi.el b/mixi.el index d9a04ee..b471367 100644 --- a/mixi.el +++ b/mixi.el @@ -135,7 +135,7 @@ (autoload 'w3m-retrieve "w3m") (autoload 'url-retrieve-synchronously "url")) -(defconst mixi-revision "$Revision: 1.170 $") +(defconst mixi-revision "$Revision: 1.171 $") (defgroup mixi nil "API library for accessing to mixi." @@ -1960,10 +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) - (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)) + (let ((seceded-or-not (match-string 1)) + (id (match-string 2)) + (nick (match-string 3))) + (if (string= mixi-event-owner-seceded-regexp seceded-or-not) + (mixi-event-set-owner event + (mixi-make-friend nil seceded-or-not)) (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) -- 1.7.10.4