Changing ispell dictionary

Changing ispell dictionary

[Sven Joachim]

Hi,

I am looking for an efficient way to change the ispell dictionary based
on the newsgroup or mail recipients I'm posting/mailing to.  The
Manual says in section 5.4, "Mail and Post":

,----
|    If you want to change the `ispell' dictionary based on what group
| you're in, you could say something like the following:
| 
|      (add-hook 'gnus-select-group-hook
|                (lambda ()
|                  (cond
|                   ((string-match
|                     "^de\\." (gnus-group-real-name gnus-newsgroup-name))
|                    (ispell-change-dictionary "deutsch"))
|                   (t
|                    (ispell-change-dictionary "english")))))
`----

This does not work, unfortunately.  It will only change the dictionary
_local_ in the summary buffer, but not in the buffer for the message I
am going to compose.  Right now I work around this by using
(ispell-change-dictionary "deutsch" 1) to change the global
dictionary instead, but I find this suboptimal.

Does somebody have a bright idea how to automatically change the local
dictionary in the message buffer (assuming that a newsgroup or mail
recipient is known; of course it cannot be guessed if I just type
C-x m outside of Gnus)?  There are various *message-*hook variables
and I don't know which to choose.

Cheers,
       Sven

Re: Changing ispell dictionary

[Tassilo Horn]

Sven Joachim <svenjoac@gmx.de> writes:

Hi Sven,

> Does somebody have a bright idea how to automatically change the local
> dictionary in the message buffer (assuming that a newsgroup or mail
> recipient is known; of course it cannot be guessed if I just type C-x
> m outside of Gnus)?  There are various *message-*hook variables and I
> don't know which to choose.

At least for newsgroups you could do something like this:

--8<---------------cut here---------------start------------->8---
(defun th-switch-ispell-dictionary ()
  (save-excursion
    (message-goto-newsgroups)
    (let ((newsgroups (buffer-substring-no-properties
                       (line-beginning-position) (line-end-position))))
      (cond ((string-match (rx " de.") newsgroups)
             (ispell-change-dictionary "german"))
            ((string-match (rx " fr.") newsgroups)
             (ispell-change-dictionary "french"))
            (t
             (ispell-change-dictionary "english"))))))
--8<---------------cut here---------------end--------------->8---

I didn't test it, but I wouldn't be too surprised if it works. ;-)

For mail recipients you could probably use a field in the bbdb which
indicates the receivers language, or simply guess by the top-level
domain of the email address.

Bye,
Tassilo

Re: Changing ispell dictionary

[Tassilo Horn]

Tassilo Horn <tassilo@member.fsf.org> writes:

Hi again,

> I didn't test it, but I wouldn't be too surprised if it works. ;-)

Well, I thought it could be useful for me, too, so I tried it.  It
didn't work.  Below is a working version.

> For mail recipients you could probably use a field in the bbdb which
> indicates the receivers language, or simply guess by the top-level
> domain of the email address.

That's what I do now.

--8<---------------cut here---------------start------------->8---
(defun th-switch-ispell-dictionary ()
  (save-excursion
    (goto-char (point-min))
    (re-search-forward (rx bol (group (or "To:" "Newsgroups:"))))
    (if (string= (match-string 1) "Newsgroups:")
        (let ((newsgroups (buffer-substring-no-properties
                           (line-beginning-position) (line-end-position))))
          (cond ((string-match (rx " de.") newsgroups)
                 (ispell-change-dictionary "german"))
                (t
                 (ispell-change-dictionary "english"))))
      (let ((to (buffer-substring-no-properties
                 (line-beginning-position) (line-end-position))))
        (cond ((string-match (rx ".de" (not (any word))) to)
               (ispell-change-dictionary "german"))
              (t
               (ispell-change-dictionary "english")))))))

(add-hook 'message-setup-hook 'th-switch-ispell-dictionary)
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo
-- 
Chuck Norris' favorite cereal is Kellogg's Nails 'N' Gravel. 

Re: Changing ispell dictionary

[Reiner Steib]

On Fri, Aug 10 2007, Tassilo Horn wrote:

>     (message-goto-newsgroups)
>     (let ((newsgroups (buffer-substring-no-properties
>                        (line-beginning-position) (line-end-position))))

`message-fetch-field'

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: Changing ispell dictionary

[Tassilo Horn]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

Hi Reiner,

>>     (message-goto-newsgroups)
>>     (let ((newsgroups (buffer-substring-no-properties
>>                        (line-beginning-position) (line-end-position))))
>
> `message-fetch-field'

Oh, much easier.  Thanks for that pointer.  Now that's what I use:

--8<---------------cut here---------------start------------->8---
(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)
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo

Re: Changing ispell dictionary

[Hadron]

Tassilo Horn <tassilo@member.fsf.org> writes:

> Tassilo Horn <tassilo@member.fsf.org> writes:
>
> Hi again,
>
>> I didn't test it, but I wouldn't be too surprised if it works. ;-)
>
> Well, I thought it could be useful for me, too, so I tried it.  It
> didn't work.  Below is a working version.
>
>> For mail recipients you could probably use a field in the bbdb which
>> indicates the receivers language, or simply guess by the top-level
>> domain of the email address.
>
> That's what I do now.
>
> (defun th-switch-ispell-dictionary ()
>   (save-excursion
>     (goto-char (point-min))
>     (re-search-forward (rx bol (group (or "To:" "Newsgroups:"))))
>     (if (string= (match-string 1) "Newsgroups:")
>         (let ((newsgroups (buffer-substring-no-properties
>                            (line-beginning-position) (line-end-position))))
>           (cond ((string-match (rx " de.") newsgroups)
>                  (ispell-change-dictionary "german"))
>                 (t
>                  (ispell-change-dictionary "english"))))
>       (let ((to (buffer-substring-no-properties
>                  (line-beginning-position) (line-end-position))))
>         (cond ((string-match (rx ".de" (not (any word))) to)
>                (ispell-change-dictionary "german"))
>               (t
>                (ispell-change-dictionary "english")))))))
>
> (add-hook 'message-setup-hook 'th-switch-ispell-dictionary)
>
> Bye,
> Tassilo

I would be very interested in this code using the bbdb idea instead (top
level domains are not indicative of persons real or favorite language in
this global world) - look for existence of a bbdb alias called
"language" and if it exists then switch to it with
ispell-change-dictionary
 ... :-;

-- 

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

Re: Changing ispell dictionary

[Tassilo Horn]

Sven Joachim <svenjoac@gmx.de> writes:

Hi Sven,

> 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:
>
> [...]

Oh, right. Thanks for the correction.

Best regards,
Tassilo
-- 
There  are  no steroids  in  baseball.  Just  players Chuck  Norris  has
breathed on.

Re: Changing ispell dictionary

[sven.bretfeld]

[-- Attachment #1.1: Type: text/plain, Size: 541 bytes --]

Hi Sven

Maybe this is what you need:

(setq gnus-posting-styles
      '(("emacs-liste"
	 (address "sven.bretfeld@gmx.ch")
	 (eval (setq ispell-local-dictionary "american")))
	("auctex-liste"
	 (address "sven.bretfeld@gmx.ch")
	 (eval (setq ispell-local-dictionary "american")))))

emacs-liste and auctex-liste are names of mailboxes. If I send a
message to one of these groups, my mail-address is automatically
changes to the gmx.ch and the ispell-dictionary switches to "american"
instead of "swiss" which is my default.

Greetings,

Sven

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 161 bytes --]

_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english

Re: Changing ispell dictionary

[leandro noferini]

[-- Attachment #1.1: Type: text/plain, Size: 392 bytes --]

A lot of times ago.....


[...]

> (setq gnus-posting-styles
>       '(("emacs-liste"
> 	 (address "sven.bretfeld@gmx.ch")
> 	 (eval (setq ispell-local-dictionary "american")))

[...]

If I try the same I get this error:

   Errore: Expected language "en" but got "it".

What's wrong?


[...]


-- 
Ciao
leandro
to write me remove MANISUDICIE from the address below

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 161 bytes --]

_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english

Re: Changing ispell dictionary

[Sven Bretfeld]

[-- Attachment #1.1: Type: text/plain, Size: 1134 bytes --]

leandro noferini <lnoferin-MANISUDICIE@cybervalley.org> writes:

>> (setq gnus-posting-styles
>>       '(("emacs-liste"
>> 	 (address "sven.bretfeld@gmx.ch")
>> 	 (eval (setq ispell-local-dictionary "american")))
>
> [...]
>
> If I try the same I get this error:
>
>    Errore: Expected language "en" but got "it".
>
> What's wrong?

I suppose that you don't have the correct dictionary installed. "it"
is Italian, I believe this to be your default language and probably
the only one you have installed. "en" is an additional dictionary
teaching aspell to understand English. If you are under Debian you
have to install the package "aspell-en" which contains British English
and American.

If you are using ispell you should consider changing to aspell, since
this is the more powerful spell checker (the Emacs code for calling
both programs is identical, AFAIK; it's always
"ispell-local-dictionary" even if aspell is used). Anyway, the
corresponding packages for ispell are ibritish and iamerican under
Debian and probably its offsprings (Ubuntu etc.). I don't know about
other distributions, let alone MS-Windows.

Greetings

Sven

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 161 bytes --]

_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english

Re: Changing ispell dictionary

[leandro noferini]

[-- Attachment #1.1: Type: text/plain, Size: 1120 bytes --]

Sven Bretfeld ha scritto:


[...]

> >> (setq gnus-posting-styles
> >>       '(("emacs-liste"
> >> 	 (address "sven.bretfeld@gmx.ch")
> >> 	 (eval (setq ispell-local-dictionary "american")))
> >
> > [...]
> >
> > If I try the same I get this error:
> >
> >    Errore: Expected language "en" but got "it".
> >
> > What's wrong?
> 
> I suppose that you don't have the correct dictionary installed. "it"
> is Italian, I believe this to be your default language and probably
> the only one you have installed. "en" is an additional dictionary
> teaching aspell to understand English. If you are under Debian you
> have to install the package "aspell-en" which contains British English
> and American.

Yes, I  use Debian but I  have installed correctly  aspell aspell-it and
aspell-en:

leandro@janni:~$ dpkg -l aspell*

[...]

ii aspell 0.60.5-1 GNU Aspell spell-checker
ii aspell-en 6.0-0-5.1 English dictionary for GNU Aspell
ii aspell-it 0.60.20060723ds1-1 The Italian dictionary for GNU Aspell


[...]


-- 
Ciao
leandro
to write me remove MANISUDICIE from the address below

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 161 bytes --]

_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english