From: bg66 <bg66>
Date: Fri, 1 Dec 2006 00:56:12 +0000 (+0000)
Subject: * mixi.el (mixi-parse-buffer): Rename from `mixi-retrieve-1', and
X-Git-Tag: mixi-el-1_0_0~180
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=77478e7c5c7052df9289f1a2a5ea3e8dabff4f76;p=elisp%2Fmixi.git

* mixi.el (mixi-parse-buffer): Rename from `mixi-retrieve-1', and
swap `buffer' argument and `url'.
(mixi-url-retrieve): Follow the change above.
(mixi-w3m-retrieve): Ditto.
(mixi-curl-retrieve): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 3adf81d..2fe21ba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2006-12-01  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el (mixi-parse-buffer): Rename from `mixi-retrieve-1', and
+	swap `buffer' argument and `url'.
+	(mixi-url-retrieve): Follow the change above.
+	(mixi-w3m-retrieve): Ditto.
+	(mixi-curl-retrieve): Ditto.
+
 2006-11-30  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi.el (mixi-get-matched-items): Rename `max-numbers' to `range',
diff --git a/mixi.el b/mixi.el
index 6488bd4..5715b15 100644
--- a/mixi.el
+++ b/mixi.el
@@ -221,13 +221,13 @@ Increase this value when unexpected error frequently occurs."
 (defmacro mixi-retrieve (url &optional post-data)
   `(funcall mixi-retrieve-function ,url ,post-data))
 
-(defun mixi-retrieve-1 (buffer url &optional post-data)
+(defun mixi-parse-buffer (url buffer &optional post-data)
   (when (string-match mixi-message-adult-contents buffer)
     (if mixi-accept-adult-contents
 	(setq buffer (mixi-retrieve url "submit=agree"))
       (setq buffer (mixi-retrieve (concat url "?")))))
   (when (string-match mixi-warning-continuously-accessing buffer)
-    (error (mixi-message "Continuously accessing")))
+    (error (mixi-message "Access denied.  Please wait a while.")))
   (if (not (string-match mixi-message-continuously-accessing buffer))
       buffer
     (message (mixi-message "Waiting for continuously accessing..."))
@@ -266,7 +266,7 @@ Increase this value when unexpected error frequently occurs."
 		   (buffer-substring-no-properties (point) (point-max))
 		   mixi-coding-system))
 	(kill-buffer buffer)
-	(setq ret (mixi-retrieve-1 ret url post-data))))
+	(setq ret (mixi-parse-buffer url ret post-data))))
     ret))
 
 (defun mixi-w3m-retrieve (url &optional post-data)
@@ -277,7 +277,7 @@ Increase this value when unexpected error frequently occurs."
 	  (error (mixi-message "Cannot retrieve"))
 	(w3m-decode-buffer url)
 	(let ((ret (buffer-substring-no-properties (point-min) (point-max))))
-	  (mixi-retrieve-1 ret url post-data))))))
+	  (mixi-parse-buffer url ret post-data))))))
 
 (defun mixi-curl-retrieve (url &optional post-data)
   "Retrieve the URL and return gotten strings."
@@ -313,7 +313,7 @@ Increase this value when unexpected error frequently occurs."
 	(error (mixi-message "Cannot retrieve")))
       (delete-region (point) (re-search-forward "\r?\n\r?\n"))
       (setq ret (decode-coding-string (buffer-string) mixi-coding-system))
-      (mixi-retrieve-1 ret url post-data))))
+      (mixi-parse-buffer url ret post-data))))
 
 (defconst mixi-my-id-regexp
   "<a href=\"add_diary\\.pl\\?id=\\([0-9]+\\)")
@@ -378,7 +378,6 @@ Increase this value when unexpected error frequently occurs."
 	    (when (not found)
 	      (throw 'end ids))))
 	(incf page)))
-    ;; FIXME: Sort? Now order by newest.
     (reverse ids)))
 
 ;; stolen (and modified) from shimbun.el