                            (line-end-position)
                            'read-only
                            nil))
-      (narrow-to-region (progn
-                          (goto-line 2)
-                          (point))
-                        (point-max))
+      (olm-hide-entry-id-line)
       (olm-message-mode)
       (goto-char (point-min)))
     (set-window-buffer msg-window mbuf)

            (sit-for 1))))
    (message "done.")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; buffers

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


