diff options
| author |  Tom Willemse | 2014-01-31 23:13:41 +0100 |
|---|---|---|
| committer | Tom Willemse | 2014-01-31 23:13:41 +0100 |
| commit | 4034174d5602e918b1ebbad9c85ab80e7f98113c (patch) | |
| tree | e189916bc26fa656a5f5420d32943497508dd48d /.emacs.d | |
| parent | 17036d38aa7e92981b9f76ca78a42e2d90e39c17 (diff) | |
| download | emacs-4034174d5602e918b1ebbad9c85ab80e7f98113c.tar.gz emacs-4034174d5602e918b1ebbad9c85ab80e7f98113c.zip | |
Set ispell dictionary better
Diffstat (limited to '.emacs.d')
| -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) |