From e3348e9e149357e63d9515cc60520b8f16e6f580 Mon Sep 17 00:00:00 2001
From: bg66 <bg66>
Date: Fri, 8 Dec 2006 00:43:06 +0000
Subject: [PATCH] * 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.

---
 ChangeLog |    7 +++++++
 mixi.el   |   13 +++++++------
 2 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 871ca53..b3bd071 100644
--- 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
--- 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>
-- 
1.7.10.4