Re: possible strange idea about hierarchical lists

[Ted Zlatanov <tzz@northernlight.com>]

OK, after a lot of trial and error, I need some help with this.  Keep
in mind, this is my first attempt at writing Lisp beyond my .emacs
files.

The following:

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

(to be done after "Remove first duplicates" at line 4502 in
message.el, function message-get-reply-headers)

does not seem to do what I want.  What I want is, if the recipients
list has the parent and the child, to delete the parent from the
recipients (because the child is the more generic of the two).  This
should happen more than once, so now if the child is in the
gnus-hierarchical-lists list as well as a parent, then this new parent
will be removed in favor of ITS child.  I think my logic (go through
the hierarchical list, and delete all ocurrences of the parent if the
parent and the child exist) makes sense, but my Lisp is not expressing
it correctly.

e.g. ("zero" . "integers") ("integers" . "reals") applied to a list
with "zero", "integers", and "reals" in it should produce "reals"
only.  Does that make sense?

Thanks
Ted