diff options
-rw-r--r-- | .emacs.d/site-lisp/gnus-init.el | 13 |
1 files changed, 9 insertions, 4 deletions
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) |