Re: cl in message.el, etc

[Josh Huber <huber@alum.wpi.edu>]

BTW, thanks for the help ;)

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?

(defun jmh:loop-test (recipients)
  (let* ((mft-regexps '("list@foo\\.com\\|list2@bar\\.org\\|list3@baz\\.net"))
	 (list (loop for regexp in mft-regexps and recipient in recipients
		 when (string-match regexp recipient) return recipient)))
    list))

(jmh:loop-test '("list2@bar.org" "foo@bar.com")) => "list2@bar.org"
(jmh:loop-test '("foo@bar.com" "list2@bar.org")) => nil

I must be missing something pretty major ;)

Thanks,

-- 
Josh Huber