diff options
| author |  Tom Willemse | 2014-08-26 11:23:39 +0200 |
|---|---|---|
| committer | Tom Willemse | 2014-08-26 11:23:39 +0200 |
| commit | b5ea7e05eaef6bb269955491881fd9eab0d15361 (patch) | |
| tree | d0762b97d03447d29a10bd0a01bfe5f16fe6af01 /emacs/.emacs.d/init.org | |
| parent | f719e35fbf23288557c064b86a64f054f4630b4b (diff) | |
| download | dotfiles-b5ea7e05eaef6bb269955491881fd9eab0d15361.tar.gz dotfiles-b5ea7e05eaef6bb269955491881fd9eab0d15361.zip | |
Properly set ispell language when sending mails
Diffstat (limited to 'emacs/.emacs.d/init.org')
| -rw-r--r-- | emacs/.emacs.d/init.org | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org index 1031ae2..b57ee51 100644 --- a/emacs/.emacs.d/init.org +++ b/emacs/.emacs.d/init.org @@ -425,9 +425,9 @@ (defun oni:switch-ispell-dictionary () (save-excursion (message-narrow-to-headers-or-head) - (let ((from (message-fetch-field "From"))) - (ispell-change-dictionary - (if (string-match (rx "@aethon.nl>" eol) from) "nl" "en"))))) + (when (string-match (rx (and "@" (or "aethon" "picturefix") ".nl>") eol) + (message-fetch-field "From")) + (ispell-change-dictionary "nl")))) (add-hook 'message-setup-hook 'oni:switch-ispell-dictionary) #+END_SRC |