From: exmh-workers-admin@redhat.com  Thu Oct  3 12:22:09 2002
Return-Path: <exmh-workers-admin@example.com>
Delivered-To: yyyy@localhost.example.com
Received: from localhost (jalapeno [127.0.0.1])
	by jmason.org (Postfix) with ESMTP id 6403D16F16
	for <jm@localhost>; Thu,  3 Oct 2002 12:22:08 +0100 (IST)
Received: from jalapeno [127.0.0.1]
	by localhost with IMAP (fetchmail-5.9.0)
	for jm@localhost (single-drop); Thu, 03 Oct 2002 12:22:08 +0100 (IST)
Received: from listman.example.com (listman.example.com [66.187.233.211]) by
    dogma.slashnull.org (8.11.6/8.11.6) with ESMTP id g92N1VK00712 for
    <jm-exmh@jmason.org>; Thu, 3 Oct 2002 00:01:32 +0100
Received: from listman.example.com (localhost.localdomain [127.0.0.1]) by
    listman.redhat.com (Postfix) with ESMTP id 870D83EBE8; Wed,  2 Oct 2002
    19:02:03 -0400 (EDT)
Delivered-To: exmh-workers@listman.example.com
Received: from int-mx1.corp.example.com (int-mx1.corp.example.com
    [172.16.52.254]) by listman.redhat.com (Postfix) with ESMTP id 9EC323ECDA
    for <exmh-workers@listman.redhat.com>; Wed,  2 Oct 2002 19:01:00 -0400
    (EDT)
Received: (from mail@localhost) by int-mx1.corp.example.com (8.11.6/8.11.6)
    id g92N10M15340 for exmh-workers@listman.redhat.com; Wed, 2 Oct 2002
    19:01:00 -0400
Received: from mx1.example.com (mx1.example.com [172.16.48.31]) by
    int-mx1.corp.redhat.com (8.11.6/8.11.6) with SMTP id g92N10f15334 for
    <exmh-workers@redhat.com>; Wed, 2 Oct 2002 19:01:00 -0400
Received: from dimebox.bmc.com (adsl-66-140-152-233.dsl.hstntx.swbell.net
    [66.140.152.233]) by mx1.redhat.com (8.11.6/8.11.6) with SMTP id
    g92Mg5i19652 for <exmh-workers@redhat.com>; Wed, 2 Oct 2002 18:42:05 -0400
Received: by dimebox.bmc.com (Postfix, from userid 1205) id 126E937EBF;
    Wed,  2 Oct 2002 18:00:58 -0500 (CDT)
Received: from dimebox.bmc.com (localhost [127.0.0.1]) by dimebox.bmc.com
    (Postfix) with ESMTP id DFD8637EBE for <exmh-workers@redhat.com>;
    Wed,  2 Oct 2002 18:00:58 -0500 (CDT)
X-Mailer: exmh version 2.5 07/13/2001 cvs 10/01/2002 with nmh-1.0.4
In-Reply-To: <22745.1033456497@munnari.OZ.AU>
References: <3703.1033415613@dimebox.bmc.com>
    <20020930185727.5ACA84A3@gray.impulse.net>
    <22745.1033456497@munnari.OZ.AU>
Comments: In-reply-to Robert Elz <kre@munnari.OZ.AU> message dated "Tue,
    01 Oct 2002 14:14:57 +0700."
To: exmh-workers@example.com
Subject: Re: Working My_Mark2CurSeen
MIME-Version: 1.0
From: Hal DeVore <haldevore@acm.org>
X-Image-Url: http://www.geocities.com/hal_devore_ii/haleye48.gif
Content-Type: text/plain; charset=us-ascii
Message-Id: <16828.1033599653@dimebox.bmc.com>
X-Loop: exmh-workers@example.com
Sender: exmh-workers-admin@example.com
Errors-To: exmh-workers-admin@example.com
X-Beenthere: exmh-workers@example.com
X-Mailman-Version: 2.0.1
Precedence: bulk
List-Help: <mailto:exmh-workers-request@example.com?subject=help>
List-Post: <mailto:exmh-workers@example.com>
List-Subscribe: <https://listman.example.com/mailman/listinfo/exmh-workers>,
    <mailto:exmh-workers-request@redhat.com?subject=subscribe>
List-Id: Discussion list for EXMH developers <exmh-workers.example.com>
List-Unsubscribe: <https://listman.example.com/mailman/listinfo/exmh-workers>,
    <mailto:exmh-workers-request@redhat.com?subject=unsubscribe>
List-Archive: <https://listman.example.com/mailman/private/exmh-workers/>
Date: Wed, 02 Oct 2002 18:00:53 -0500
X-Spam-Status: No, hits=-19.9 required=5.0
	tests=AWL,IN_REP_TO,KNOWN_MAILING_LIST,REFERENCES,X_LOOP
	version=2.50-cvs
X-Spam-Level: 


[I wrote this last night but it appears I never sent it... still 
haven't had time to dig in to it...]


>>>>> On Tue, 1 Oct 2002, "Robert" == Robert Elz wrote:

  Robert> No, but using PickMarkSeen (and pick(ids)) as an
  Robert> alternative to just doing

  Robert> Seq_Del $exmh(folder) $mhProfile(unseen-sequence) $results


Ah.  Neither Ted nor I were particularly up to date.  I pulled 
down the lates from CVS and am now running with it.  I miss the 
blue ftoc lines but I'll sort that out soon, iirc Chris said 
it's a simple resource change.

Ted's code to "ketchup" made use of some of the procs that went 
away in the sequence generalization.  I've fixed it up... almost 
and it looks like this now:

proc Cabeen_Mark2CurSeen {} {
    global exmh mhProfile msg
    set results {}
    Exmh_Status "Clearing unseen up to cur..." red
    Mh_SetCur $exmh(folder) $msg(id)
    set unseen [Mh_Sequence $exmh(folder) $mhProfile(unseen-sequence) ]
    foreach elem $unseen {
         if { $elem <= $msg(id) } {
            lappend results $elem
         }
    }
    busy Seq_Del $exmh(folder) $mhProfile(unseen-sequence) $results
    Exmh_Status ok blue
}


The "almost" is because it's not updating the highlighting on 
the ftoc.  I'm too tired to go figure out how to fix that just 
now and have to move on to other stuff.  If someone wants to 
forward me a clue feel free.

Now that I've got all of Chris' sequence stuff I discovered that 
my sequences are ... cluttered.

--Hal






_______________________________________________
Exmh-workers mailing list
Exmh-workers@redhat.com
https://listman.redhat.com/mailman/listinfo/exmh-workers


