             (sit-for 1))))
     (message "done.")))
 
+(defun olm-hide-entry-id-line
+  ()
+  (interactive)
+  (let ((pos (point)))
+    (narrow-to-region (progn
+                        (goto-line 2)
+                        (point))
+                      (point-max))
+    (goto-char pos)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; buffers

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