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

strictly.

diff --git a/ChangeLog b/ChangeLog
index a8596df..4e0130b 100644 (file)
--- 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 (file)
--- 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))