     (switch-to-buffer sbuf)))
 
 ;;; A helper function invoked by olm-scan
-(defun olm-ls
-  ()
+(defun olm-ls ()
   (with-current-buffer (olm-buf-ls)
     (setq-local buffer-read-only nil)
     (erase-buffer)

  (setq-local line-move-ignore-invisible t)
  (run-hooks 'olm-summary-mode-hook))

(defun olm-summary-open-message
  ()
  (interactive)
  (delete-other-windows-vertically)
  (let* ((ln0 (line-number-at-pos))

  (use-local-map olm-draft-reply-all-map)
  (run-hooks 'olm-draft-reply-all-hook))

(defun olm-draft-reply-all-do-command (cmd msg)
  (message msg)
  (save-restriction
    (widen)
    (olm-draft-do-command cmd)))

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

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