From d996699178afb0aacf1190f428d82defd53d3b62 Mon Sep 17 00:00:00 2001 From: bg66 Date: Thu, 9 Nov 2006 13:56:30 +0000 Subject: [PATCH] * mixi.el (mixi-make-friend-from-url): Support my object. --- ChangeLog | 4 ++++ mixi.el | 8 +++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index db413ed..b701b72 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2006-11-09 OHASHI Akira + + * mixi.el (mixi-make-friend-from-url): Support my object. + 2006-11-08 OHASHI Akira * mixi.el (mixi-friend-realize): Don't remove markup. diff --git a/mixi.el b/mixi.el index bf5e13a..c71f976 100644 --- a/mixi.el +++ b/mixi.el @@ -519,9 +519,11 @@ Increase this value when unexpected error frequently occurs." (defun mixi-make-friend-from-url (url) "Return a friend object from URL." - (when (string-match mixi-friend-url-regexp url) - (let ((id (match-string 1 url))) - (mixi-make-friend id)))) + (if (string-match mixi-friend-url-regexp url) + (let ((id (match-string 1 url))) + (mixi-make-friend id)) + (when (string-match "/home\\.pl" url) + (mixi-make-me)))) (defmacro mixi-friend-p (friend) `(eq (mixi-object-class ,friend) 'mixi-friend)) -- 1.7.10.4