 (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

  ()
  (interactive)
  (let ((entry-id (olm-message-entry-id)))
    (message (format "Olm: saving attachements into %S ..."
                     olm-attachment-path))
    (olm-do-command (format "Olm.save_attachments(%S, %S)"
                            entry-id


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; 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
