From exmh-workers-admin@redhat.com Mon Sep 30 21:43:56 2002
Return-Path: <exmh-workers-admin@spamassassin.taint.org>
Delivered-To: yyyy@localhost.spamassassin.taint.org
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.spamassassin.taint.org (listman.spamassassin.taint.org [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.spamassassin.taint.org (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.spamassassin.taint.org
Received: from int-mx1.corp.spamassassin.taint.org (int-mx1.corp.spamassassin.taint.org
[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.spamassassin.taint.org (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.spamassassin.taint.org (mx1.spamassassin.taint.org [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@spamassassin.taint.org
From: Ted Cabeen <secabeen@pobox.com>
Subject: Working My_Mark2CurSeen
Message-Id: <20020930185727.5ACA84A3@gray.impulse.net>
X-Loop: exmh-workers@spamassassin.taint.org
Sender: exmh-workers-admin@spamassassin.taint.org
Errors-To: exmh-workers-admin@spamassassin.taint.org
X-Beenthere: exmh-workers@spamassassin.taint.org
X-Mailman-Version: 2.0.1
Precedence: bulk
List-Help: <mailto:exmh-workers-request@spamassassin.taint.org?subject=help>
List-Post: <mailto:exmh-workers@spamassassin.taint.org>
List-Subscribe: <https://listman.spamassassin.taint.org/mailman/listinfo/exmh-workers>,
<mailto:exmh-workers-request@redhat.com?subject=subscribe>
List-Id: Discussion list for EXMH developers <exmh-workers.spamassassin.taint.org>
List-Unsubscribe: <https://listman.spamassassin.taint.org/mailman/listinfo/exmh-workers>,
<mailto:exmh-workers-request@redhat.com?subject=unsubscribe>
List-Archive: <https://listman.spamassassin.taint.org/mailman/private/exmh-workers/>
Date: Mon, 30 Sep 2002 11:57:27 -0700
-----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