From: exmh-workers-admin@redhat.com  Mon Sep 30 21:43:56 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 805F016F03
	for <jm@localhost>; Mon, 30 Sep 2002 21:43:55 +0100 (IST)
Received: from jalapeno [127.0.0.1]
	by localhost with IMAP (fetchmail-5.9.0)
	for jm@localhost (single-drop); Mon, 30 Sep 2002 21:43:55 +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 g8UJ3gK12263 for
    <jm-exmh@jmason.org>; Mon, 30 Sep 2002 20:03:42 +0100
Received: from listman.example.com (localhost.localdomain [127.0.0.1]) by
    listman.redhat.com (Postfix) with ESMTP id 183BB405BD; Mon, 30 Sep 2002
    15:03:45 -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 2B82F400D9
    for <exmh-workers@listman.redhat.com>; Mon, 30 Sep 2002 14:57:29 -0400
    (EDT)
Received: (from mail@localhost) by int-mx1.corp.example.com (8.11.6/8.11.6)
    id g8UIvTk08482 for exmh-workers@listman.redhat.com; Mon, 30 Sep 2002
    14:57:29 -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 g8UIvSf08478 for
    <exmh-workers@redhat.com>; Mon, 30 Sep 2002 14:57:28 -0400
Received: from gray.impulse.net (gray.impulse.net [207.154.64.174]) by
    mx1.redhat.com (8.11.6/8.11.6) with SMTP id g8UIcsi07025 for
    <exmh-workers@redhat.com>; Mon, 30 Sep 2002 14:38:54 -0400
Received: from gray.impulse.net (localhost [127.0.0.1]) by
    gray.impulse.net (Postfix) with ESMTP id 5ACA84A3 for
    <exmh-workers@redhat.com>; Mon, 30 Sep 2002 11:57:27 -0700 (PDT)
X-Mailer: exmh version 2.5 07/13/2001 with nmh-1.0.4
To: exmh-workers@example.com
From: Ted Cabeen <secabeen@pobox.com>
Subject: Working My_Mark2CurSeen
Message-Id: <20020930185727.5ACA84A3@gray.impulse.net>
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: Mon, 30 Sep 2002 11:57:27 -0700
X-Spam-Status: No, hits=-0.2 required=5.0
	tests=AWL,KNOWN_MAILING_LIST,PGP_SIGNATURE,T_URI_COUNT_5_8,X_LOOP
	version=2.50-cvs
X-Spam-Level: 

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Content-Type: text/plain; charset=us-ascii

After a bit of peeking through the exmh tcl and playing with tcl a bit, I got 
the "catchup unseen messages before cur" procedure working.  Here's the code 
for everybody and the list archives in case anyone wants it in the future.  
Thanks to John R. LoVerso for putting me on the right track.  

proc My_Mark2CurSeen {} {
    global exmh pick msg
    set results {}
    Exmh_Status "Clearing unseen up to cur..." red
    Mh_SetCur $exmh(folder) $msg(id)
    set unseen [Mh_Unseen $exmh(folder)]
    foreach elem $unseen {
         if { $elem < $msg(id) } {
            lappend results $elem
         }
    }
    set pick(ids) $results
    busy PickMarkSeen
    Exmh_Status ok blue
}

If you want to use this, stick it in your .tk/exmh directory, run auto_mkindex 
on it and add the following lines to your .exmh/exmh-defaults:
*Fops.more.m.uentrylist:        ketchup
*Fops.more.m.l_ketchup:         Catch-up all before current
*Fops.more.m.c_ketchup:         My_Mark2CurSeen

- -- 
Ted Cabeen           http://www.pobox.com/~secabeen            ted@impulse.net 
Check Website or Keyserver for PGP/GPG Key BA0349D2         secabeen@pobox.com
"I have taken all knowledge to be my province." -F. Bacon  secabeen@cabeen.org
"Human kind cannot bear very much reality."-T.S.Eliot        cabeen@netcom.com


-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (FreeBSD)
Comment: Exmh version 2.5 07/13/2001

iD8DBQE9mJ6XoayJfLoDSdIRAkaQAJ9NL83MUU6bJRB19x7MgRaDQhc3ZwCfRK5d
PXat04+AnSx4tHjn5p8mZVc=
=sJtk
-----END PGP SIGNATURE-----



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


