Re: cl in message.el, etc

[Daniel Pittman <daniel@rimspace.net>]

On Sat, 20 Apr 2002, Josh Huber wrote:
> BTW, thanks for the help ;)

It would have been more helpful if it was right. ;)

> Daniel Pittman <daniel@rimspace.net> writes:
> 
>> (loop for regexp in mft-regexps and recipient in recipients
>>       when (string-match regexp recipient) return recipient)
> 
> I actually tried this at one point, but it didn't work for me, and
> doesn't work in the message code.  Perhaps you could explain this to
> me?

I screwed up in my thinking about the problem space and, as a result,
gave you something that works if and only if (= (length mft-regexps)
(length recipients)).

You want the first entry in recipients that matched any regexp in
mft-regexps, right?

(loop for recipient in recipients
      when (loop for regexp in mft-regexps
                 when (string-match regexp recipient)
                      return t)
           return recipient)

[...]

> I must be missing something pretty major ;)

Well, /one/ of us did. ;)
        Daniel

-- 
Every artist knows that he is engaged in an encounter with infinity, and that
work done with heart and hand is ultimately worship of life itself.
        -- Bernard Leach