From: bg66 <bg66>
Date: Thu, 9 Nov 2006 13:56:30 +0000 (+0000)
Subject: * mixi.el (mixi-make-friend-from-url): Support my object.
X-Git-Tag: cache-file-branchpoint~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d996699178afb0aacf1190f428d82defd53d3b62;p=elisp%2Fmixi.git

* mixi.el (mixi-make-friend-from-url): Support my object.
---

diff --git a/ChangeLog b/ChangeLog
index db413ed..b701b72 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-09  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el (mixi-make-friend-from-url): Support my object.
+
 2006-11-08  OHASHI Akira  <bg66@koka-in.org>
 
 	* 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))