From: bg66 <bg66>
Date: Tue, 26 Dec 2006 01:02:50 +0000 (+0000)
Subject: * mixi.el (mixi-url-retrieve): Simplify.
X-Git-Tag: mixi-el-1_0_0~141
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=242ca4f8433eaef8a92d9afaec03c6d19026b949;p=elisp%2Fmixi.git

* mixi.el (mixi-url-retrieve): Simplify.
---

diff --git a/ChangeLog b/ChangeLog
index ef38346..dd543e7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-12-26  OHASHI Akira  <bg66@koka-in.org>
+
+	* mixi.el (mixi-url-retrieve): Simplify.
+
 2006-12-25  OHASHI Akira  <bg66@koka-in.org>
 
 	* mixi.el (mixi-diary-comment-list-regexp): Follow the change of mixi.
diff --git a/mixi.el b/mixi.el
index 6f23626..fc7abf0 100644
--- a/mixi.el
+++ b/mixi.el
@@ -253,13 +253,9 @@ Increase this value when unexpected error frequently occurs."
 
 (defun mixi-url-retrieve (url &optional post-data)
   "Retrieve the URL and return gotten strings."
-  (if post-data
-      (progn
-	(setq url-request-method "POST")
-	(setq url-request-data post-data))
-    (setq url-request-method "GET")
-    (setq url-request-data nil))
-  (let* ((url (mixi-expand-url url))
+  (let* ((url-request-method (if post-data "POST" "GET"))
+	 (url-request-data post-data)
+	 (url (mixi-expand-url url))
 	 (buffer (url-retrieve-synchronously url))
 	 ret)
     (unless (bufferp buffer)