Fix flyspell not working while composing emails

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)