From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/44322
Path: main.gmane.org!not-for-mail
From: Josh Huber <huber@alum.wpi.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: cl in message.el, etc
Date: Sat, 20 Apr 2002 13:34:24 -0400
Sender: owner-ding@hpc.uh.edu
Message-ID: <87hem68ean.fsf@alum.wpi.edu>
References: <87g01r74d7.fsf@alum.wpi.edu> <87lmbjm3v3.fsf@inanna.rimspace.net>
 <87r8la8ks2.fsf@alum.wpi.edu> <87vgamjr1a.fsf@inanna.rimspace.net>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1019324090 25173 127.0.0.1 (20 Apr 2002 17:34:50 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sat, 20 Apr 2002 17:34:50 +0000 (UTC)
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 16yyl8-0006Xu-00
	for <ding-account@gmane.org>; Sat, 20 Apr 2002 19:34:50 +0200
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 16yykD-0001KS-00; Sat, 20 Apr 2002 12:33:53 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 20 Apr 2002 12:34:03 -0500 (CDT)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id MAA09131
	for <ding@hpc.uh.edu>; Sat, 20 Apr 2002 12:33:50 -0500 (CDT)
Original-Received: (qmail 14022 invoked by alias); 20 Apr 2002 17:33:34 -0000
Original-Received: (qmail 14017 invoked from network); 20 Apr 2002 17:33:34 -0000
Original-Received: from quimby.gnus.org (80.91.224.244)
  by gnus.org with SMTP; 20 Apr 2002 17:33:34 -0000
Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian))
	id 16yz3q-0003rx-00
	for <ding@gnus.org>; Sat, 20 Apr 2002 19:54:10 +0200
Original-To: ding@gnus.org
Original-Path: not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 29
Original-NNTP-Posting-Host: h000094c5efff.ne.client2.attbi.com
Original-X-Trace: quimby.gnus.org 1019325250 14263 65.96.250.128 (20 Apr 2002 17:54:10 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: 20 Apr 2002 17:54:10 GMT
X-PGP-KeyID: 6B21489A
X-Face: C%mBb*K1^od)w'=CH$WEZu/M^aR<,.n|1uAe,;MyNLKoel>F;-j[`L!>m:Y%/R}m&4&xuIM
 R%7Ez?vbd*Ns>VE;{\(yl|mGByV{D:Dm>'52].@P&t_s^,.d<zXm<Os=44DXqAQMZU_;n4rokIt:5Z
Mail-Copies-To: nobody
User-Agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.5 (bok choi,
 powerpc-unknown-linux)
Cancel-Lock: sha1:a5eV/XHV1P22qcwmezB/+2N4aW8=
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:44322
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:44322

Daniel Pittman <daniel@rimspace.net> writes:

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

:)

> 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)).

Ah, okay.  It's still good to know -- the cl 'and' loop construct only
works with lists of equal length?

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

That's correct.

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

Yep, this is it.

Thanks again,
-- 
Josh Huber