   (delete-other-windows-vertically)
   (let ((buf (olm-buf-draft)))
     (with-current-buffer buf
+      (olm-hide-entry-id-line)
       (olm-draft-mode))
+    (switch-to-buffer buf)))
+
+(defun olm-summary-reply-all
+  ()
+  (interactive)
+  (let ((entry-id (olm-mail-item-entry-id-at))
+        (buf (olm-buf-draft-reply-all)))
+    (olm-do-command (format "Olm.create_reply_all_message %S" entry-id)
+                    buf)
+    (with-current-buffer buf
+      (goto-char (point-min))
+      (re-search-forward "^From: ")
+      (insert "***Reply All***")
+      (olm-draft-reply-all-mode)
+      (let ((inhibit-read-only t))
+        (put-text-property (progn
+                             (goto-char (point-min))
+                             (point))
+                           (progn
+                             (re-search-forward "^---- ")
+                             (point))
+                           'read-only
+                           t))
+      (olm-hide-entry-id-line)
+      (forward-line))
+    (delete-other-windows-vertically)
     (switch-to-buffer buf)))
 
 

    (with-current-buffer buf
      (setq-local buffer-read-only nil)
      (erase-buffer)
      (insert "To: \n")
      (insert "Cc: \n")
      (when olm-default-bcc
        (insert "Bcc: " olm-default-bcc "\n"))
      (insert "Subject: \n")
      (insert "---- \n"))
    buf))



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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; olm-draft-reply-all
;;;
(defvar olm-draft-reply-all-map nil)
(defvar olm-draft-reply-all-hook nil)

(unless olm-draft-reply-all-map
  (setq olm-draft-reply-all-map (make-sparse-keymap))
  (define-key olm-draft-reply-all-map "\C-c\C-q" 'olm-draft-kill)
  (define-key olm-draft-reply-all-map "\C-c\C-c" 'olm-draft-reply-all-send-message)
  (define-key olm-draft-reply-all-map "\C-c\C-s" 'olm-draft-reply-all-save-message))

(defun olm-draft-reply-all-mode
  ()
  (interactive)
  (setq major-mode 'olm-draft-reply-all-mode)
  (setq mode-name "Olm Draft Reply All")
  (setq-local line-move-ignore-invisible t)
  (font-lock-mode 1)
  (use-local-map olm-draft-reply-all-map)
  (run-hooks 'olm-draft-reply-all-hook))

(add-hook 'olm-draft-reply-all-hook 'olm-message-mode-keyword)
