From: bg66 <bg66>
Date: Fri, 10 Nov 2006 05:27:57 +0000 (+0000)
Subject: * mixi.el (mixi-expand-url): Don't expand twice.
X-Git-Tag: cache-file-branchpoint~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f798762b2bb06d53fd4b7f82bc0596be827e0613;p=elisp%2Fmixi.git

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

diff --git a/ChangeLog b/ChangeLog
index 0f6f5c5..8a502df 100644
--- 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
--- 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."