That is so much better

lisp/ti-config/work-config.el

@@ -37,6 +37,8 @@
 (require 'bisect-mode)
 (require 'deadgrep-rejump-mode)
 
+(require 'work-mail)
+
 (use-package editorconfig
   :config
   (editorconfig-mode 1)

lisp/ti-config/work-mail.el

@@ -24,12 +24,10 @@
 
 ;;; Code:
 
-(add-to-list 'load-path
-             "/usr/local/share/emacs/site-lisp/mu4e")
-
 (require 'mu4e)
 
 (require 'ti-mail-identity)
+(require 'gnus-article-hack)
 
 (with-eval-after-load 'mu4e-view
   (add-hook 'mu4e-view-mode-hook
@@ -170,5 +168,9 @@
             :override
             #'my/mu4e-compose-edit-ignore-draft)
 
+(add-hook 'mu4e-headers-found-hook #'mu4e-thread-fold-all)
+
+(define-key mu4e-headers-mode-map (kbd "C-M-a") #'mu4e-view-thread-goto-root)
+
 (provide 'work-mail)
 ;;; work-mail.el ends here