Construct post data correctly

webpaste.el

@@ -66,14 +66,18 @@
 (defun webpaste-providers-ix.io (text)
   "Paste TEXT to http://ix.io/."
 
-  ;; Use request.el to do request to ix.io to submit data
+  (let ((post-data '()))
-  (request "http://ix.io/"
+    ;; Construct post data
-           :type "POST"
+    (add-to-list 'post-data (cons "f:1" text))
-           :data '(("f:1" . text))
+
-           :parser 'buffer-string
+    ;; Use request.el to do request to ix.io to submit data
-           :success (function* (lambda (&key data &allow-other-keys)
+    (request "http://ix.io/"
-                                 (when data
+             :type "POST"
-                                   (webpaste-return-url data)))))
+             :data post-data
+             :parser 'buffer-string
+             :success (function* (lambda (&key data &allow-other-keys)
+                                   (when data
+                                     (webpaste-return-url data))))))
   nil)