From: bg66 <bg66>
Date: Sun, 24 Dec 2006 16:10:13 +0000 (+0000)
Subject: * mixi.el (with-mixi-retrieve): Check whether on the login page
X-Git-Tag: mixi-el-1_0_0~147
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1352c01952eebd09cadcbc27be85b75723d627fc;p=elisp%2Fmixi.git

* mixi.el (with-mixi-retrieve): Check whether on the login page
strictly.
---

diff --git a/ChangeLog b/ChangeLog
index a8596df..4e0130b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-25  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el (with-mixi-retrieve): Check whether on the login page
+	strictly.
+
 2006-12-22  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi.el (mixi-realization-error): Use buffer variable only when it
diff --git a/mixi.el b/mixi.el
index 52c21c0..297ee96 100644
--- a/mixi.el
+++ b/mixi.el
@@ -353,7 +353,8 @@ Increase this value when unexpected error frequently occurs."
   `(let (buffer)
      (when ,url
        (setq buffer (mixi-retrieve ,url))
-       (when (string-match "login.pl" buffer)
+       (when (string-match "<form action=\"login\\.pl\" method=\"post\">"
+			   buffer)
 	 (mixi-login)
 	 (setq buffer (mixi-retrieve ,url))))
      ,@body))