* mixi.el (mixi-topic-comment-list-regexp): Fix regexp.

(mixi-message): Rename the STRING argument to STRINGS.
(mixi-login): Follow the cange above.
(mixi-parse-buffer): Fix error message.

diff --git a/ChangeLog b/ChangeLog
index 871ca53..b3bd071 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2006-12-08  OHASHI Akira  <bg66@koka-in.org>
+
+       * mixi.el (mixi-topic-comment-list-regexp): Fix regexp.
+       (mixi-message): Rename the STRING argument to STRINGS.
+       (mixi-login): Follow the cange above.
+       (mixi-parse-buffer): Fix error message.
+
 2006-12-07  OHASHI Akira  <bg66@koka-in.org>
 
        * mixi.el (mixi-diary-owner-nick-regexp): Fix regexp.

diff --git a/mixi.el b/mixi.el
index 98d8c56..14e4480 100644 (file)
--- a/mixi.el
+++ b/mixi.el
@@ -200,8 +200,8 @@ Increase this value when unexpected error frequently occurs."
 (defvar mixi-me nil)
 
 ;; Utilities.
-(defmacro mixi-message (string)
-  `(concat "[mixi] " ,string))
+(defmacro mixi-message (&rest strings)
+  `(concat "[mixi] " ,@strings))
 
 (defconst mixi-message-adult-contents
   "¤³¤Î¥Ú¡¼¥¸¤«¤éÀè¤Ï¥¢¥À¥ë¥È¡ÊÀ®¿Í¸þ¤±¡Ë¥³¥ó¥Æ¥ó¥Ä¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹¡£<br>
@@ -224,7 +224,8 @@ Increase this value when unexpected error frequently occurs."
        (setq buffer (mixi-retrieve url "submit=agree"))
       (setq buffer (mixi-retrieve (concat url "?")))))
   (when (string-match mixi-warning-continuously-accessing buffer)
-    (error (mixi-message "Access denied.  Please wait a while.")))
+    (error (mixi-message "Access denied.  Please wait a while and increase "
+                        "the value of `mixi-continuously-access-interval'.")))
   (if (not (string-match mixi-message-continuously-accessing buffer))
       buffer
     (message (mixi-message "Waiting for continuously accessing..."))
@@ -319,9 +320,8 @@ Increase this value when unexpected error frequently occurs."
   "Login to mixi."
   (when (and (eq mixi-retrieve-function 'mixi-w3m-retrieve)
             (not w3m-use-cookies))
-    (error
-     (mixi-message
-      "Require to accept cookies.  Please set `w3m-use-cookies' to t.")))
+    (error (mixi-message "Require to accept cookies.  Please set "
+                        "`w3m-use-cookies' to t.")))
   (let ((email (or email mixi-default-email
                   (read-from-minibuffer (mixi-message "Login Email: "))))
        (password (or password mixi-default-password
@@ -1818,6 +1818,7 @@ Increase this value when unexpected error frequently occurs."
 
 ?\\(
 
+\\|<font color=\"#f2ddb7\">|&nbsp;</font><a href=\"delete_bbs_comment\\.pl\\?id=[0-9]+&comm_id=[0-9]+&comment_id=[0-9]+\">ºï½ü</a>
 \\|\\)</td>
 </tr>
 <tr>