From 19cab06209b03ebbd6f9cec4cc3b9f587e0e2bcc Mon Sep 17 00:00:00 2001 From: bg66 Date: Thu, 9 Nov 2006 14:02:42 +0000 Subject: [PATCH] Support my object. --- ChangeLog | 1 + mixi.el | 16 +++++++++------- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index b701b72..a55ef01 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ 2006-11-09 OHASHI Akira * mixi.el (mixi-make-friend-from-url): Support my object. + (mixi-make-object-from-url): Ditto. 2006-11-08 OHASHI Akira 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)) -- 1.7.10.4