 ;;; 
 (defvar olm-folder-alist nil)
 
-(defun olm-folder-names
-  ()
+(defun olm-folder-names ()
   (--map (car it) olm-folder-alist))
 
 (unless olm-folder-id

  (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))

                        (point))
                      (point-max))))

(defun olm-default-folder-id ()
  (with-current-buffer (get-buffer-create "*olm-default-folder-id*")
    (erase-buffer)
    (olm-do-command "Olm.default_folder_id" (current-buffer))
