From b5ea7e05eaef6bb269955491881fd9eab0d15361 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 26 Aug 2014 11:23:39 +0200 Subject: [PATCH] Properly set ispell language when sending mails --- emacs/.emacs.d/init.org | 6 +++--- emacs/.emacs.d/site-lisp/gnus-init.el | 7 ------- 2 files changed, 3 insertions(+), 10 deletions(-) diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org index 1031ae2..b57ee51 100644 --- a/emacs/.emacs.d/init.org +++ b/emacs/.emacs.d/init.org @@ -425,9 +425,9 @@ (defun oni:switch-ispell-dictionary () (save-excursion (message-narrow-to-headers-or-head) - (let ((from (message-fetch-field "From"))) - (ispell-change-dictionary - (if (string-match (rx "@aethon.nl>" eol) from) "nl" "en"))))) + (when (string-match (rx (and "@" (or "aethon" "picturefix") ".nl>") eol) + (message-fetch-field "From")) + (ispell-change-dictionary "nl")))) (add-hook 'message-setup-hook 'oni:switch-ispell-dictionary) #+END_SRC diff --git a/emacs/.emacs.d/site-lisp/gnus-init.el b/emacs/.emacs.d/site-lisp/gnus-init.el index 5d58383..4d989f6 100644 --- a/emacs/.emacs.d/site-lisp/gnus-init.el +++ b/emacs/.emacs.d/site-lisp/gnus-init.el @@ -76,13 +76,6 @@ (address "thomas@aethon.nl") (signature-file "~/documents/work/aethon/signature_20131209.txt") (eval (setq message-sendmail-extra-arguments '("-a" "aethon")))))) -(add-hook 'gnus-select-group-hook - (lambda () - (cond - ((string-match (rx (or "aethon" "picturefix")) - (gnus-group-real-name gnus-newsgroup-name)) - (ispell-change-dictionary "nl")) - (t (ispell-change-dictionary "en"))))) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (setq message-kill-buffer-on-exit t)