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

diff --git a/ChangeLog b/ChangeLog
index ef38346..dd543e7 100644 (file)
--- 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 (file)
--- 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)