                             olm-attachment-path))))
 
 ;;; A helper function for olm-message-mode
-(defun olm-message-entry-id
-  ()
+(defun olm-message-entry-id ()
   (interactive)
   (save-excursion
     (save-restriction

    (delete-other-windows-vertically)
    (switch-to-buffer buf)))

(defun olm-summary-goto-folder
  ()
  (interactive)
  (setq olm-folder-name (completing-read "Exchange folder: "
                                         (olm-folder-names)


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

(defun olm-message-save-attachments ()
  (interactive)
  (let ((entry-id (olm-message-entry-id)))
    (message (format "Olm: saving attachments into %S ..."
