X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=vm;h=519cb69c0004d6fcd4e00439e8ee74a27b366cfd;hp=f1968967ca9942409e3f33099e6a6db69cbd3290;hb=40f0fc08f83c1749305a2790123ffb8bbc488460;hpb=ad1b7c7b0216af322622612b7e0d001deb71a893

diff --git a/vm b/vm
index f196896..519cb69 100644
--- a/vm
+++ b/vm
@@ -545,6 +545,10 @@ an attachment")
 (add-hook 'vm-mail-send-hook 'ff/check-no-leading-from)
 (add-hook 'vm-mail-send-hook 'ff/check-no-excess-wording)
 (add-hook 'vm-mail-send-hook 'flyspell-mode-off)
+
+(defadvice vm-mail-send-and-exit (before ff/switch-flyspell-off nil activate)
+  (flyspell-mode-off))
+
 ;; Append so that it happens after the mime encoding
 ;; (add-hook 'vm-mail-send-hook 'ff/check-badly-encoded-address t)