From: Michal Sojka <sojkam1@fel.cvut.cz>
Date: Tue, 3 Nov 2015 21:02:12 +0000 (+0100)
Subject: emacs: Make notmuch-message-mode play nicely with flyspell
X-Git-Url: http://rtime.felk.cvut.cz/gitweb/notmuch.git/commitdiff_plain/55fb7da65012dc56cbf5e72df11f06db6f65cd7c

emacs: Make notmuch-message-mode play nicely with flyspell

Flyspell mode uses a special setting for message-mode to not
spell-check message headers except Subject. Apply this setting also to
notmuch-message-mode.
---

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index fd98ea41..466edd7e 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -273,6 +273,8 @@ Note that these functions use `mail-citation-hook' if that is non-nil."
   (when notmuch-address-command
     (notmuch-address-setup)))
 
+(put 'notmuch-message-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
+
 (define-key notmuch-message-mode-map (kbd "C-c C-c") #'notmuch-mua-send-and-exit)
 (define-key notmuch-message-mode-map (kbd "C-c C-s") #'notmuch-mua-send)