   (define-key olm-summary-mode-map "p" 'olm-summary-display-up)
   (define-key olm-summary-mode-map "n" 'olm-summary-display-down)
   (define-key olm-summary-mode-map "!" 'olm-summary-toggle-flag)
-  (define-key olm-summary-mode-map "w" 'olm-summary-write))
+  (define-key olm-summary-mode-map "w" 'olm-summary-write)
+  (define-key olm-summary-mode-map "A" 'olm-summary-reply-all))
 
 (defun olm-summary-inc
   ()

  (message "Olm: sending message ...")
  (olm-draft-do-message "Olm.send_message")
  (olm-draft-kill))

                           (line-end-position)
                           'read-only
                           nil))
      (olm-hide-entry-id-line)
      (olm-message-mode)
      (goto-char (point-min)))
    (set-window-buffer msg-window mbuf)
