* repeated addresses in message-subscribed-regexps.
@ 2002-06-16 1:54 Maciej Matysiak
2002-06-17 14:37 ` Josh Huber
0 siblings, 1 reply; 2+ messages in thread
From: Maciej Matysiak @ 2002-06-16 1:54 UTC (permalink / raw)
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!
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: repeated addresses in message-subscribed-regexps.
2002-06-16 1:54 repeated addresses in message-subscribed-regexps Maciej Matysiak
@ 2002-06-17 14:37 ` Josh Huber
0 siblings, 0 replies; 2+ messages in thread
From: Josh Huber @ 2002-06-17 14:37 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2002-06-17 14:37 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-06-16 1:54 repeated addresses in message-subscribed-regexps Maciej Matysiak
2002-06-17 14:37 ` Josh Huber
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).