Support my object.

diff --git a/ChangeLog b/ChangeLog
index b701b72..a55ef01 100644 (file)
--- 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 (file)
--- 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))