From 4034174d5602e918b1ebbad9c85ab80e7f98113c Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Fri, 31 Jan 2014 23:13:41 +0100 Subject: Set ispell dictionary better --- .emacs.d/site-lisp/gnus-init.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/site-lisp/gnus-init.el b/.emacs.d/site-lisp/gnus-init.el index ee6a94f..a4af560 100644 --- a/.emacs.d/site-lisp/gnus-init.el +++ b/.emacs.d/site-lisp/gnus-init.el @@ -79,8 +79,7 @@ (setq gnus-posting-styles '((".*" (address "tom@ryuslash.org") - (eval (setq message-sendmail-extra-arguments '("-a" "ryuslash") - flyspell-default-dictionary "en"))) + (eval (setq message-sendmail-extra-arguments '("-a" "ryuslash")))) ("gmail:" (address "ryuslash@gmail.com") (eval (setq message-sendmail-extra-arguments '("-a" "gmail")))) @@ -94,6 +93,12 @@ (name "Tom Willemsen") (address "thomas@aethon.nl") (signature-file "~/documents/work/aethon/signature_20131209.txt") - (eval (setq message-sendmail-extra-arguments '("-a" "aethon") - flyspell-default-dictionary "nl"))))) + (eval (setq message-sendmail-extra-arguments '("-a" "aethon")))))) +(add-hook 'gnus-select-group-hook + (lambda () + (cond + ((string-match "aethon" + (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) -- cgit v1.2.3-54-g00ecf