From: bg66 <bg66>
Date: Fri, 8 Dec 2006 00:43:06 +0000 (+0000)
Subject: * mixi.el (mixi-topic-comment-list-regexp): Fix regexp.
X-Git-Tag: mixi-el-1_0_0~170
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e3348e9e149357e63d9515cc60520b8f16e6f580;p=elisp%2Fmixi.git

* 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
--- 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>