From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/44310 Path: main.gmane.org!not-for-mail From: Josh Huber Newsgroups: gmane.emacs.gnus.general Subject: Re: cl in message.el, etc Date: Fri, 19 Apr 2002 18:13:10 -0400 Sender: owner-ding@hpc.uh.edu Message-ID: <87adrz72x5.fsf@alum.wpi.edu> References: <87g01r74d7.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 1019254445 24971 127.0.0.1 (19 Apr 2002 22:14:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 19 Apr 2002 22:14:05 +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 16ygdo-0006Ue-00 for ; Sat, 20 Apr 2002 00:14:04 +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 16ygcg-0006n0-00; Fri, 19 Apr 2002 17:12:54 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 19 Apr 2002 17:13:05 -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 RAA06056 for ; Fri, 19 Apr 2002 17:12:50 -0500 (CDT) Original-Received: (qmail 3717 invoked by alias); 19 Apr 2002 22:12:19 -0000 Original-Received: (qmail 3712 invoked from network); 19 Apr 2002 22:12:19 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by gnus.org with SMTP; 19 Apr 2002 22:12:19 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 16ygvi-0003RJ-00 for ; Sat, 20 Apr 2002 00:32:34 +0200 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 25 Original-NNTP-Posting-Host: lowell.missioncriticallinux.com Original-X-Trace: quimby.gnus.org 1019255554 13224 64.244.21.16 (19 Apr 2002 22:32:34 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 19 Apr 2002 22:32:34 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 writes: > (loop for regexp in mft-regexps and recipient in recipients > thereis (when (string-match regexp recipient) > recipient)))) > > Since It's a lot shorter, and (I think) easier to read. Oh, and it also doesn't work. ;) Here's the working version: (loop for regexp in mft-regexps thereis (loop for recipient in recipients thereis (when (string-match regexp recipient) recipient))))) what do other people think? BTW, the execution speed seems to be about the same. For me most of the speed hit is taken in the gnus-find-subscribed-addresses function. (since I have so many groups) ttyl, -- Josh Huber