114 lines
4.7 KiB
Plaintext
114 lines
4.7 KiB
Plaintext
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
|
|
|
|
|