From 0c3c97dd430ea569e725a1ae3a1ea4e2a9a3f494 Mon Sep 17 00:00:00 2001
From: Jacopo De Simoi <wilderkde@gmail.com>
Date: Wed, 22 Feb 2023 22:12:26 -0500
Subject: [PATCH] Fix flyspell not working while composing emails

---
 global.org | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/global.org b/global.org
index a3fe802..7366d5a 100644
--- a/global.org
+++ b/global.org
@@ -803,6 +803,7 @@
      ;; default is to ask
      (setq mu4e-compose-context-policy 'pick-first)
 
+
      (add-hook 'mu4e-headers-mode-hook
                #'(lambda () (setq-local show-trailing-whitespace nil)))
      (add-hook 'mu4e-view-mode-hook
@@ -811,7 +812,11 @@
                #'(lambda ()
                    (auto-fill-mode -1)
                    (visual-line-mode)
-                   (flyspell-mode)))
+                   ;; flyspell does not want to work with buffers that
+                   ;; start with a "*", but this includes compose buffers
+                   ;; (that are called *draft*)
+                   (let ((flyspell-lazy-disallow-buffers nil))
+                    (flyspell-mode))))
 
      (define-key-alist message-mode-map
        '(("M-\""        . (lambda (r-begin r-end)