From 1352c01952eebd09cadcbc27be85b75723d627fc Mon Sep 17 00:00:00 2001
From: bg66 <bg66>
Date: Sun, 24 Dec 2006 16:10:13 +0000
Subject: [PATCH] * mixi.el (with-mixi-retrieve): Check whether on the login
 page strictly.

---
 ChangeLog |    5 +++++
 mixi.el   |    3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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))
-- 
1.7.10.4