From exmh-workers-admin@redhat.com Mon Sep 30 21:43:56 2002 Return-Path: Delivered-To: yyyy@localhost.example.com Received: from localhost (jalapeno [127.0.0.1]) by jmason.org (Postfix) with ESMTP id 805F016F03 for ; 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 ; 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 ; 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 ; 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 ; 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 ; 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 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: List-Post: List-Subscribe: , List-Id: Discussion list for EXMH developers List-Unsubscribe: , List-Archive: 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