 ;; org-redmine read buffer functions
 ;;------------------------------
 (defun org-redmine-cur-org-issue ()
- (make-org-redmine-issue-struct :subject (nth 4 (org-heading-components)) :project_id (nth 1 (org-get-tags))))
+  (make-org-redmine-issue-struct :subject (nth 4 (org-heading-components)) :project_id (org-redmine-entry-get-project-id)))
 
 (defun org-redmine-jsonize-issue (issue)
   (concat "{ \"issue\": {"

     (cdr (assoc org-redmine-property-id-name properties))
     (cdr (assoc org-redmine-property-updated-name properties)))))


;;------------------------------
;; org-redmine buffer function
;;------------------------------

    ("%v_n%"     "fixed_version" "name")
    ("%v_i%"     "fixed_version" "id")))

;;translate tags from something legal in org to
;;the actual project id on the redmine. user might decide to use
;;to have less complicated project names
(defvar org-redmine-tag-to-project-id-table
  '(("off" . "time-off")))

(defvar org-redmine-uri "http://redmine120.dev"
  "Target Redmine URI")
