            (t ""))
      `(,uri))))
 
-(defun org-redmine-curl-post-args (uri data)
-  (let ((args '("-X" "POST" "-s" "-f" "-H" "Content-Type: application/json" "-d")))
+(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

    (let ((json-object-type 'hash-table)
          (json-array-type 'list))
      (condition-case err
          (json-read-from-string (buffer-string))
        (json-readtable-error
         (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-args (uri)
  (let ((args '("-X" "GET" "-s" "-f")))

         "\"assigned_to_id\":" org-redmine-assignee-id
       "}}")
)

(defun org-redmine-create-time-entry-json (issue_id spent_hours)
  (concat "{ \"time_entry\": {"
         "\"issue_id\":" issue_id ","
         "\"hours\":" (number-to-string spent_hours) ","
         "\"activity_id\":11"
       "}}")
 )

(defun org-redmine-close-issue-json ()
  (concat "{ \"issue\": {\"status_id\":5}}")
 )

;;------------------------------
;; org-redmine sources for user function
;;------------------------------
