       (:key ,(kbd "<up>") :func (lambda () (interactive) (l/show-message nil)))
       (:key "J" :func (lambda () (interactive) (l/show-thread t)))
       (:key "K" :func (lambda () (interactive) (l/show-thread nil)))
+      (:key "m" :func l/compose-message-main)
     ))
 
   (l/bind-keys

    [escape] 'evil-force-normal-state
    "H" 'evil-next-buffer
    "L" 'evil-prev-buffer
    "e" 'notmuch-jump-search
    "/" 'notmuch-search)


        (notmuch-tree-show-message-in)
        (other-window 1)))))

(defun l/compose-message-main ()
  (interactive)
  (l/compose-message "linusarver@gmail.com"))

(defun l/compose-message (addr)
  (interactive)
  (setq
    user-mail-address addr
    smtpmail-smtp-user addr)
  (notmuch-mua-mail nil nil `((From . ,(message-make-from (notmuch-user-name) addr))) nil (notmuch-mua-get-switch-function)))

(defun l/message-signature-setup ()
  "Add signature."
  ; We add our own custom bit of text, outside of the default framework provided
