            (t ""))
      `(,uri))))
 
+(defun org-redmine-curl-post-args (uri data)
+  (let ((args '("-X" "POST" "-s" "-f" "-H" "Content-Type: application/json" "-d")))
+    (append
+     args
+     (list data)
+     (cond (org-redmine-auth-api-key
+            `("-G" "-d"
+              ,(format "key=%s" org-redmine-auth-api-key)))
+           (org-redmine-auth-username
+            `("-u"
+              ,(format "%s:%s"
+                       org-redmine-auth-username (or org-redmine-auth-password ""))))
+           (org-redmine-auth-netrc-use '("--netrc"))
+           (t ""))
+     `(,uri))))
+
 ;;------------------------------
 ;; org-redmine template functions
 ;;------------------------------

         (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")))
    (append

  '(nil
    nil
    "%d"))
(defvar org-redmine-assignee-id nil)

(defstruct org-redmine-issue-struct
  "A structure to keep issue properties"
  subject
  project_id
  )
;;------------------------------
;; org-redmine error signals
;;------------------------------
