EMACS: Ask for ispell dictionary name when writing a mail message

This commit is contained in:
Tom Willemsen 2011-09-06 09:50:25 +02:00
parent 27e9297a13
commit 27efcb33ec

View file

@ -149,10 +149,12 @@
(setq-default bidi-display-reordering nil) (setq-default bidi-display-reordering nil)
;;; Message ;;; Message
(add-hook 'message-mode-hook (defun oni/message-mode-hook ()
(lambda ()
(turn-on-auto-fill) (turn-on-auto-fill)
(turn-on-flyspell))) (turn-on-flyspell)
(ispell-change-dictionary (read-string "New dictionary: ")))
(add-hook 'message-mode-hook 'oni/message-mode-hook)
;;; Gnus ;;; Gnus
(setq gnus-init-file "~/.emacs.d/gnus") (setq gnus-init-file "~/.emacs.d/gnus")