repeated addresses in message-subscribed-regexps.

repeated addresses in message-subscribed-regexps.

[Maciej Matysiak]

hi,

let's say i use:

(setq gnus-parameters '(
		("ding-l-.*"
		 (subscribed . t)
		 (to-address . "ding@gnus.org")
		 (to-list . "ding@gnus.org"))
		))

and i have a lot of ding-l-.* groups.
then, when i call:
 (setq message-subscribed-regexps (gnus-find-subscribed-addresses))
i got:

`message-subscribed-regexps' is a variable declared in Lisp.
Value: ("ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org\\|ding@gnus\\.org")

(that's real example from my setup)

would it be hard to make gnus-find-subscribed-addresses recognize the same
addresses?

in fact, i use gnus-parameters for several groups and message-subscribed-regexps
is, uh, huge. it could be much much smaller without any loss.

 m.m.
-- 
 use gnus, not guns!

Re: repeated addresses in message-subscribed-regexps.

[Josh Huber]

Maciej Matysiak <phoner.ding@blah.pl> writes:

> in fact, i use gnus-parameters for several groups and
> message-subscribed-regexps is, uh, huge. it could be much much
> smaller without any loss.

How about using add-to-list instead of push?

Index: gnus.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v
retrieving revision 6.113
diff -u -r6.113 gnus.el
--- gnus.el	2002/05/29 13:25:55	6.113
+++ gnus.el	2002/06/17 15:01:24
@@ -2425,7 +2425,7 @@
 		       (or (gnus-group-fast-parameter group 'to-address)
 			   (gnus-group-fast-parameter group 'to-list))))
 	(when address
-	  (push address addresses))))
+	  (add-to-list 'addresses address))))
     (when addresses
       (list (mapconcat 'regexp-quote addresses "\\|")))))
 

This works in my setup, but I don't have any duplicate
to-(list|address) values.

-- 
Josh Huber