From: bg66 <bg66>
Date: Thu, 9 Nov 2006 14:02:42 +0000 (+0000)
Subject: Support my object.
X-Git-Tag: cache-file-branchpoint~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=19cab06209b03ebbd6f9cec4cc3b9f587e0e2bcc;p=elisp%2Fmixi.git

Support my object.
---

diff --git a/ChangeLog b/ChangeLog
index b701b72..a55ef01 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2006-11-09  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi.el (mixi-make-friend-from-url): Support my object.
+	(mixi-make-object-from-url): Ditto.
 
 2006-11-08  OHASHI Akira  <bg66@koka-in.org>
 
diff --git a/mixi.el b/mixi.el
index c71f976..95a1017 100644
--- a/mixi.el
+++ b/mixi.el
@@ -489,13 +489,15 @@ Increase this value when unexpected error frequently occurs."
 
 (defun mixi-make-object-from-url (url)
   "Return a mixi object from URL."
-  (when (string-match mixi-object-url-regexp url)
-    (let ((name (match-string 2 url)))
-      (when (string= name "bbs")
-	(setq name "topic"))
-      (let ((func (intern (concat mixi-object-prefix "make-" name
-				  "-from-url"))))
-	(funcall func url)))))
+  (if (string-match mixi-object-url-regexp url)
+      (let ((name (match-string 2 url)))
+	(when (string= name "bbs")
+	  (setq name "topic"))
+	(let ((func (intern (concat mixi-object-prefix "make-" name
+				    "-from-url"))))
+	  (funcall func url)))
+    (when (string-match "/home\\.pl" url)
+      (mixi-make-friend-from-url url))))
 
 ;; Friend object.
 (defvar mixi-friend-cache (make-hash-table :test 'equal))