make whitespace-cleanup-mail only apply in message-mode

1 files changed, 1 insertions, 1 deletions

diff --git a/dot_emacs b/dot_emacs
index e5c5a2c..e6f222f 100644
--- a/dot_emacs
+++ b/dot_emacs
@@ -524,7 +524,7 @@ Otherwise split the current paragraph into one sentence per line."
 	      (insert "-- ")))))))
   :hook
   ((message-mode . (lambda () (remove-hook 'before-save-hook 'whitespace-cleanup t)))
-   (before-save  . whitespace-cleanup-mail))
+   (message-mode . (lambda () (add-hook 'before-save-hook 'whitespace-cleanup-mail nil t))))
   :custom
   (message-citation-line-function 'message-insert-formatted-citation-line)
   (message-send-mail-function 'message-send-mail-with-sendmail))