 (defun olm-draft-do-command
   (command)
   (call-process-region (point-min) (point-max)
-                       "ruby" nil (get-buffer-create "*Messages*") nil
+                       olm-ruby-executable
+                       nil (get-buffer-create "*Messages*") nil
                        "-r" "rubygems" "-r" "olm" "-e" command))
 
 (defun olm-draft-save-message

(defvar olm-folder-id nil)
(defvar olm-default-bcc nil)
(defvar olm-attachment-path nil)

(defun olm
  ()


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; general helper functions
;;; 
(defun olm-do-command
  (command &optional buf)
  (let ((buf (or buf (get-buffer-create "*Messages*"))))
    (call-process olm-ruby-executable nil buf nil
                  "-r" "rubygems" "-r" "olm" "-e" command)))

(defun olm-sync
