 
 (defun olm-summary-reply-all ()
   (interactive)
-  (let ((entry-id (olm-mail-item-entry-id-at))
+  (let ((entry-id (olm-summary-message-entry-id))
         (buf (olm-buf-draft-reply-all)))
     (olm-do-command (format "Olm.create_reply_all_message %S" entry-id)
                     buf)


(defun olm-summary-refile ()
  (interactive)
  (let* ((from (olm-mail-item-entry-id-at))
         (folder-name (completing-read "Refile to: "
                                       (olm-folder-names)
                                       nil

  (interactive)
  (let ((n (line-number-at-pos)))
    (olm-do-command (format "Olm.toggle_task_flag %S"
                            (olm-summary-message-entry-id)))
    (olm-scan)
    (goto-line n)))

