   (define-key olm-draft-mode-map "\C-c\C-c" 'olm-draft-send-message)
   (define-key olm-draft-mode-map "\C-c\C-s" 'olm-draft-save-message))
 
-(defun olm-draft-mode
-  ()
+(defun olm-draft-mode ()
   (interactive)
   (setq major-mode 'olm-draft-mode)
   (setq mode-name "Olm Draft")


(add-hook 'olm-draft-mode-hook 'olm-message-mode-keyword)

(defun olm-draft-kill
  ()
  (interactive)
  (kill-buffer)
  (olm-scan))

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

(defun olm-draft-save-message
  ()
  (interactive)
  (message "Olm: saving message ...")
  (olm-draft-do-command "Olm.save_message")
  (olm-draft-kill))

(defun olm-draft-send-message
  ()
  (interactive)
  (message "Olm: sending message ...")
  (olm-draft-do-command "Olm.send_message")

    (setq olm-folder-id (olm-default-folder-id)
          olm-folder-name "inbox")))

(defun olm-scan ()
  (interactive)
  (let* ((ret (olm-ls))
         (lbuf (olm-buf-ls))
