From 27efcb33ece59af5c0f843f047758f2d31b7f55e Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 6 Sep 2011 09:50:25 +0200
Subject: EMACS: Ask for ispell dictionary name when writing a mail message

---
 .emacs.d/init.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to '.emacs.d/init.el')

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 3689d7c..eef5c4e 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -149,10 +149,12 @@
 (setq-default bidi-display-reordering nil)
 
 ;;; Message
-(add-hook 'message-mode-hook
-          (lambda ()
-            (turn-on-auto-fill)
-            (turn-on-flyspell)))
+(defun oni/message-mode-hook ()
+  (turn-on-auto-fill)
+  (turn-on-flyspell)
+  (ispell-change-dictionary (read-string "New dictionary: ")))
+
+(add-hook 'message-mode-hook 'oni/message-mode-hook)
 
 ;;; Gnus
 (setq gnus-init-file "~/.emacs.d/gnus")
-- 
cgit v1.2.3-54-g00ecf