From 242ca4f8433eaef8a92d9afaec03c6d19026b949 Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 26 Dec 2006 01:02:50 +0000 Subject: [PATCH] * mixi.el (mixi-url-retrieve): Simplify. --- ChangeLog | 4 ++++ mixi.el | 10 +++------- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index ef38346..dd543e7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2006-12-26 OHASHI Akira + + * mixi.el (mixi-url-retrieve): Simplify. + 2006-12-25 OHASHI Akira * 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) -- 1.7.10.4