From f798762b2bb06d53fd4b7f82bc0596be827e0613 Mon Sep 17 00:00:00 2001 From: bg66 Date: Fri, 10 Nov 2006 05:27:57 +0000 Subject: [PATCH] * mixi.el (mixi-expand-url): Don't expand twice. --- ChangeLog | 4 ++++ mixi.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 0f6f5c5..8a502df 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2006-11-10 OHASHI Akira + * mixi.el (mixi-expand-url): Don't expand twice. + +2006-11-10 OHASHI Akira + * 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." -- 1.7.10.4