[PATCH]: New gnus-parameters variable

[PATCH]: New gnus-parameters variable

[Xavier Maillard]

[-- Attachment #1: Type: text/plain, Size: 2339 bytes --]

Hi and Happy new year !

Following an idea from Alex Schroeder[1], I have hacked something that
could be of interest for people (I guess ;)). As I said in another
post, I am not familiar (yet) to gnus internals and so, my "patch" is
actually some elisp I wrote separately.

What it does is quite simple, it adds a new gnus-parameters variable
(dictionary) which allow to enable flyspell with per-group dictionary.

That way, one can simply use it is to say something like this:

,----
| (setq gnus-parameters 
|       '(("list\\..*april.*" 
|          (dictionary . "francais"))
|         ("list.debian-user-french" 
|          (dictionary . "francais"))))
| 
| 
| (setq gnus-parameter-dictionary-alist
|       '(("ml.emacs.ding" . "american")))
`----

And whenever he enters those groups, and reply or post something, it
will launch flyspell with the right dictionary.

Here us my add-on:

,---- 
| (gnus-define-group-parameter
|  dictionary
|  :function-document
|  "Return the dictionary used for the current group (if any)."
|  :variable-document
|  "Alist of regexps (to match group names) and default dictionary to use when composing a new message."
|  :parameter-type '(string :tag "Dictionary")
|  :parameter-document "\
| The default dictionary to use in the group.")
| 
| 
| (gnus-setup-dictionary "list.debian-user-french")
| 
| (defun gnus-setup-dictionary (group)
|   "Decide wich dictionary to use for group `group`."
|   (let ((group (or group ""))
|         dictionary)
| 
|     (setq dictionary (gnus-parameter-dictionary group))
|     (message "Dictionary used: %s" dictionary)
| 
|     (when dictionary
|       (set (make-local-variable 'ispell-local-dictionary) dictionary))
|     ))
| 
| 
| (add-hook 'gnus-message-setup-hook
|           (lambda ()
|             (gnus-setup-dictionary 
|              (if (boundp 'gnus-newsgroup-name)
|                  gnus-newsgroup-name ""))))
`----

IMO, this code can be enhanced but it works already as-is so feel free
to use/copy/paste/modify/incorporate it in gnus. My work is 
licensed under the GNU General Public License and I also let my
copyrights go to the FSF (if needed).

Cheers,

zeDek

Footnotes: 
[1] http://www.emacswiki.org/cgi-bin/wiki.pl/GnusSpelling
-- 
Xavier MAILLARD (GnuPG: 1024D/1E028EA5)
EmacsOS user (http://emacsfr.org)
APRIL (http://www.april.org)


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

Re: [PATCH]: New gnus-parameters variable

[Lars Magne Ingebrigtsen]

Xavier Maillard <zedek@gnu-rox.org> writes:

> What it does is quite simple, it adds a new gnus-parameters variable
> (dictionary) which allow to enable flyspell with per-group dictionary.

Cool.

> IMO, this code can be enhanced but it works already as-is so feel free
> to use/copy/paste/modify/incorporate it in gnus. My work is 
> licensed under the GNU General Public License and I also let my
> copyrights go to the FSF (if needed).

But you haven't signed assignment papers yet?  If not, could you fill
out the following and email it to the FSF?

----------------------

Please email the following information to fsf-records@gnu.org, and we
will send you the assignment form for your past and future changes.
Please use your full name as the subject line of the message.


[What is the name of the program or package you're contributing to?]


[Did you copy any files or text written by someone else in these changes?
Even if that material is free software, we need to know about it.]


[Do you have an employer who might have a basis to claim to own
your changes?  Do you attend a school which might make such a claim?]


[For the copyright registration, what country are you a citizen of?]


[What year were you born?]


[Please write your email address here.]


[Please write your postal address here.]





[Which files have you changed so far, and which new files have you written
so far?]


-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: [PATCH]: New gnus-parameters variable

[Xavier Maillard]

[-- Attachment #1: Type: text/plain, Size: 793 bytes --]

On 2 Jan 2004, Lars Magne Ingebrigtsen<larsi@gnus.org> mused:
> Xavier Maillard <zedek@gnu-rox.org> writes:
>
>> What it does is quite simple, it adds a new gnus-parameters variable
>> (dictionary) which allow to enable flyspell with per-group
>> dictionary.
>
> Cool.

Wow :) 

>> IMO, this code can be enhanced but it works already as-is so feel
>> free to use/copy/paste/modify/incorporate it in gnus. My work is
>> licensed under the GNU General Public License and I also let my
>> copyrights go to the FSF (if needed).
>
> But you haven't signed assignment papers yet?  If not, could you fill
> out the following and email it to the FSF?

Ok I just sent the mail. 

Thanx

zeDek
-- 
GnusFR  (http://www.gnusfr.org)
EmacsFR (http://www.emacsfr.org)

.emacs: Because customisation is fun!


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

Re: [PATCH]: New gnus-parameters variable

[Jochen Küpper]

[-- Attachment #1: Type: text/plain, Size: 523 bytes --]

On Thu, 01 Jan 2004 03:08:26 +0100 Xavier Maillard wrote:

zeDek> What it does is quite simple, it adds a new gnus-parameters variable
zeDek> (dictionary) which allow to enable flyspell with per-group dictionary.

Does this mean posting-styles are totally superfluous sometime soon?

Greetings,
Jochen
-- 
Einigkeit und Recht und Freiheit                http://www.Jochen-Kuepper.de
    Liberté, Égalité, Fraternité                GnuPG key: CC1B0B4D
        (Part 3 you find in my messages before fall 2003.)

[-- Attachment #2: Type: application/pgp-signature, Size: 185 bytes --]