From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/42148
Path: main.gmane.org!not-for-mail
From: Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai =?iso-8859-1?q?Gro=DFjohann?=)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: possible strange idea about hierarchical lists
Date: Fri, 18 Jan 2002 10:18:41 +0100
Sender: owner-ding@hpc.uh.edu
Message-ID: <vaflmewyq32.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de>
References: <m3d71ukjkr.fsf@onyx.nimbus.northernlight.com>
	<vaf4rn6gacx.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de>
	<m3r8qayjwh.fsf@onyx.nimbus.northernlight.com>
	<m3bshej2wn.fsf@multivac.cwru.edu>
	<m3bsheubq6.fsf@onyx.nimbus.northernlight.com>
	<vafbshe59mw.fsf@INBOX.auto.gnus.tok.lucy.cs.uni-dortmund.de>
	<m3her3m8al.fsf@onyx.nimbus.northernlight.com>
	<m3bsgivl5m.fsf@quimbies.gnus.org>
	<m3hepmt7jh.fsf@onyx.nimbus.northernlight.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035177429 9834 80.91.224.250 (21 Oct 2002 05:17:09 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 05:17:09 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 23287 invoked from network); 18 Jan 2002 09:21:01 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 18 Jan 2002 09:21:01 -0000
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 16RVC2-0003sb-00; Fri, 18 Jan 2002 03:20:14 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 18 Jan 2002 03:20:08 -0600 (CST)
Original-Received: from sclp3.sclp.com (qmailr@[209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id DAA10828
	for <ding@hpc.uh.edu>; Fri, 18 Jan 2002 03:19:56 -0600 (CST)
Original-Received: (qmail 21988 invoked by alias); 18 Jan 2002 09:19:15 -0000
Original-Received: (qmail 21977 invoked from network); 18 Jan 2002 09:19:14 -0000
Original-Received: from waldorf.cs.uni-dortmund.de (129.217.4.42)
  by gnus.org with SMTP; 18 Jan 2002 09:19:14 -0000
Original-Received: from lothlorien.cs.uni-dortmund.de (lothlorien [129.217.19.67])
        by waldorf.cs.uni-dortmund.de  with ESMTP id g0I9Ikb16216
        for <ding@gnus.org>; Fri, 18 Jan 2002 10:18:46 +0100 (MET)
Original-Received: from lucy.cs.uni-dortmund.de (lucy [129.217.19.80])
	by lothlorien.cs.uni-dortmund.de id KAA04955; Fri, 18 Jan 2002 10:18:41 +0100 (MET)
Original-Received: by lucy.cs.uni-dortmund.de (Postfix, from userid 6104)
	id 28ABC3B2AA; Fri, 18 Jan 2002 10:18:41 +0100 (CET)
Original-To: ding@gnus.org
In-Reply-To: <m3hepmt7jh.fsf@onyx.nimbus.northernlight.com> (Ted Zlatanov's
 message of "Wed, 16 Jan 2002 14:33:38 -0500")
Original-Lines: 22
User-Agent: Gnus/5.090005 (Oort Gnus v0.05) Emacs/21.2.50
 (i686-pc-linux-gnu)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:42148
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:42148

Ted Zlatanov <tzz@northernlight.com> writes:

> (let* ((recipients '(("foo@bar" . "Name <foo@bar>") ("baz@quux" . "None <baz@quux>")))
>        (s recipients)
>        (gnus-hierarchical-lists '( ("foo@bar" . "baz@quux"))))
>   (while gnus-hierarchical-lists
>     (let* ((node (pop gnus-hierarchical-lists))
> 	   (parent (car node))
> 	   (child (cdr node)))
>       (when (and (assoc parent recipients) (assoc child recipients))
> 	  (delq parent recipients)))))

Does ist help to replace the delq statement with this?

    (setq recipients (delete parent recipients))

The side-effect thing does not work to delete the first element of a
list; I used delete instead of delq because (eq "x" "x") is false.

kai
-- 
Simplification good!  Oversimplification bad!  (Larry Wall)