From 27efcb33ece59af5c0f843f047758f2d31b7f55e Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 6 Sep 2011 09:50:25 +0200 Subject: [PATCH] EMACS: Ask for ispell dictionary name when writing a mail message --- .emacs.d/init.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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")