Re: Changing ispell dictionary

[Sven Joachim]

Hello Tassilo,

many thanks for your suggestions.  I'm using your last code snippet
now, with one correction:

> (defun th-message-switch-ispell-dictionary ()
>   (save-excursion
>     (message-narrow-to-headers-or-head)
>     (let ((newsgroups (message-fetch-field "Newsgroups"))
>           (to         (message-fetch-field "To")))
>       (message "newsgroup or to = %s." (or newsgroups to))
>       (if newsgroups
>           (cond ((string-match (rx bol (or "de." "infko.")) newsgroups)
>                  (ispell-change-dictionary "german"))
>                 (t
>                  (ispell-change-dictionary "english")))
>         (cond ((string-match (rx ".de" (or (not (any word)) eol)) to)
>                (ispell-change-dictionary "german"))
>               (t
>                (ispell-change-dictionary "english")))))))
>
> (add-hook 'message-setup-hook 'th-message-switch-ispell-dictionary)

This has the problem that both newsgroups and to can be nil, e.g. when
composing a brand new message outside Gnus with C-x m.  In this case
an error occurs in the second string-match.  Here is a corrected
version:

(defun th-message-switch-ispell-dictionary ()
  (save-excursion
    (message-narrow-to-headers-or-head)
    (let ((newsgroups (message-fetch-field "Newsgroups"))
          (to         (message-fetch-field "To")))
      (message "newsgroup or to = %s." (or newsgroups to))
      (if newsgroups
          (cond ((string-match (rx bol (or "de." "infko.")) newsgroups)
                 (ispell-change-dictionary "german"))
                (t
                 (ispell-change-dictionary "english")))
        (cond ((and to (string-match (rx ".de" (or (not (any word)) eol)) to))
               (ispell-change-dictionary "german"))
              (t
               (ispell-change-dictionary "english")))))))

Cheers,
       Sven