From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/44320 Path: main.gmane.org!not-for-mail From: Daniel Pittman Newsgroups: gmane.emacs.gnus.general Subject: Re: cl in message.el, etc Date: Sun, 21 Apr 2002 02:03:45 +1000 Organization: Not today, thank you, Mother. Sender: owner-ding@hpc.uh.edu Message-ID: <87vgamjr1a.fsf@inanna.rimspace.net> References: <87g01r74d7.fsf@alum.wpi.edu> <87lmbjm3v3.fsf@inanna.rimspace.net> <87r8la8ks2.fsf@alum.wpi.edu> NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1019318717 19060 127.0.0.1 (20 Apr 2002 16:05:17 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sat, 20 Apr 2002 16:05:17 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 16yxMT-0004xJ-00 for ; Sat, 20 Apr 2002 18:05:17 +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 16yxLb-0000yL-00; Sat, 20 Apr 2002 11:04:23 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 20 Apr 2002 11:04:35 -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 LAA08874 for ; Sat, 20 Apr 2002 11:04:24 -0500 (CDT) Original-Received: (qmail 12860 invoked by alias); 20 Apr 2002 16:04:06 -0000 Original-Received: (qmail 12855 invoked from network); 20 Apr 2002 16:04:06 -0000 Original-Received: from melancholia.rimspace.net (HELO melancholia.danann.net) (210.23.138.19) by gnus.org with SMTP; 20 Apr 2002 16:04:06 -0000 Original-Received: from localhost (melancholia.rimspace.net [210.23.138.19]) by melancholia.danann.net (Postfix) with ESMTP id 8CA952A823 for ; Sun, 21 Apr 2002 02:03:49 +1000 (EST) Original-Received: by localhost (Postfix, from userid 1000) id 5F5B28200B; Sun, 21 Apr 2002 02:03:45 +1000 (EST) Original-To: ding@gnus.org In-Reply-To: <87r8la8ks2.fsf@alum.wpi.edu> (Josh Huber's message of "Sat, 20 Apr 2002 11:14:21 -0400") Original-Lines: 38 User-Agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.5 (bamboo, i686-pc-linux) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:44320 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:44320 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 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