* mixi.el (mixi-expand-url): Don't expand twice.

diff --git a/ChangeLog b/ChangeLog
index 0f6f5c5..8a502df 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-11-10  OHASHI Akira  <bg66@koka-in.org>
 
+       * mixi.el (mixi-expand-url): Don't expand twice.
+
+2006-11-10  OHASHI Akira  <bg66@koka-in.org>
+
        * mixi.el (mixi-log-list-regexp): Fix regexp.
        (mixi-community-owner-regexp): Ditto.
        (mixi-topic-owner-regexp): Ditto.

diff --git a/mixi.el b/mixi.el
index 68fedb5..080e751 100644 (file)
--- a/mixi.el
+++ b/mixi.el
@@ -227,7 +227,9 @@ Increase this value when unexpected error frequently occurs."
     (funcall mixi-retrieve-function url post-data)))
 
 (defmacro mixi-expand-url (url)
-  `(concat mixi-url ,url))
+  `(if (string-match (concat "^" mixi-url) ,url)
+       ,url
+     (concat mixi-url ,url)))
 
 (defun mixi-w3-retrieve (url &optional post-data)
   "Retrieve the URL and return gotten strings."