          (message "%s: Non JSON data because of a server side exception. See %s"
                   (error-message-string err) org-redmine-curl-buffer))))))
 
-(defun org-redmine-curl-post (uri data)
+(defun org-redmine-curl-post (uri data method)
   ""
   (ignore-errors (kill-buffer org-redmine-curl-buffer))
   (unless (eq 0 (apply 'call-process "curl" nil `(,org-redmine-curl-buffer nil) nil
-                       (org-redmine-curl-post-args uri data)
+                       (org-redmine-curl-post-args uri data method)
                        ))
     (signal 'org-redmine-exception-not-retrieved "The requested URL returned error"))
   (save-current-buffer

                  . (lambda (issue) (org-redmine-insert-subtree issue)))))))
   ))

(defun org-redmine-update-issue ()
  ""
  (interactive)
  (let (org-issue issue)

           (t ""))
     `(,uri))))

(defun org-redmine-curl-post-args (uri data method)
  (let ((args '("-s" "-f" "-H" "Content-Type: application/json" "-d")))
    (append
     (list "-X" method)
     args
     (list data)
     (cond (org-redmine-auth-api-key
