From exmh-workers-admin@redhat.com Tue Sep 24 19:48:43 2002 Return-Path: Delivered-To: yyyy@localhost.example.com Received: from localhost (jalapeno [127.0.0.1]) by jmason.org (Postfix) with ESMTP id 50CAB16F03 for ; Tue, 24 Sep 2002 19:48:42 +0100 (IST) Received: from jalapeno [127.0.0.1] by localhost with IMAP (fetchmail-5.9.0) for jm@localhost (single-drop); Tue, 24 Sep 2002 19:48:42 +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 g8OIEpC16178 for ; Tue, 24 Sep 2002 19:14:51 +0100 Received: from listman.example.com (localhost.localdomain [127.0.0.1]) by listman.redhat.com (Postfix) with ESMTP id 24B3C40491; Tue, 24 Sep 2002 14:15:17 -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 0173F406B6 for ; Tue, 24 Sep 2002 14:08:25 -0400 (EDT) Received: (from mail@localhost) by int-mx1.corp.example.com (8.11.6/8.11.6) id g8OI8Pu06001 for exmh-workers@listman.redhat.com; Tue, 24 Sep 2002 14:08:25 -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 g8OI8Pf05994 for ; Tue, 24 Sep 2002 14:08:25 -0400 Received: from vnet0.virtual.net (vnet0.virtual.net [64.49.222.181]) by mx1.redhat.com (8.11.6/8.11.6) with SMTP id g8OHoZi12593 for ; Tue, 24 Sep 2002 13:50:35 -0400 Received: from schooner.loverso.southborough.ma.us (user233.64.47.28.dsli.com [64.47.28.233]) by vnet0.virtual.net (8.9.3/8.9.3) with ESMTP id NAA26862; Tue, 24 Sep 2002 13:08:23 -0500 Received: from loverso.southborough.ma.us (localhost [127.0.0.1]) by schooner.loverso.southborough.ma.us (8.12.3/8.11.3) with ESMTP id g8OI8LM8068943; Tue, 24 Sep 2002 14:08:21 -0400 (EDT) (envelope-from loverso@loverso.southborough.ma.us) Message-Id: <200209241808.g8OI8LM8068943@schooner.loverso.southborough.ma.us> To: Ted Cabeen Cc: exmh-workers@example.com Subject: Re: Minor feature request In-Reply-To: Message from Ted Cabeen <20020924170024.1935256D@gray.impulse.net> . X-Face: "UZ!}1W2N?eJdN(`1%|/OOPqJ).Idk?UyvWw'W-%`Gto8^IkEm>.g1O$[.;~}8E=Ire0|lO .o>:NlJS1@vO9bVmswRoq3j DdX9YGSeJ5a(mfX[1u>Z63G5_^+'8LVqjqvn X-Url: http://surf.to/loverso From: "John R. LoVerso" 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: Tue, 24 Sep 2002 14:08:21 -0400 X-Spam-Status: No, hits=-0.7 required=5.0 tests=AWL,IN_REP_TO,KNOWN_MAILING_LIST,QUOTED_EMAIL_TEXT,X_LOOP version=2.50-cvs X-Spam-Level: > How easy would it be to code a menu item that marks as read all messages > before the current message? I often have problems reading heavy-traffic > mailing lists in exmh because I want to read only a subset of a lists > messages, but I lose track of where I was in the particular folder. > > This could also be coded more generally in the new sequences code as a way to > remove all messages before current from a particular sequence. Easy. First, you'll have to excuse me as I'm still using 2.3.1 (*), so, this may not play well with recent changes. (I did look at 2.5.1, too). And, I just did this off the top of my head (I wanted to see if it (**) still worked), so this is somewhat untested. Adding a menu entry is trivial; add this to your ~/.exmh/exmh-defaults: *Fops.more.m.uentrylist: ketchup *Fops.more.m.l_ketchup: Catch-up all b4 cur *Fops.more.m.c_ketchup: My_Mark2CurSeen Then you just need to provide the source for My_Mark2CurSeen and arrange for Exmh to include it (put it in your ~/.tk/exmh directory in your user.tcl; or in pick.patch if you enable the "source hook" under Prefs->Hacking Support) It's going to look something like this: proc My_Mark2CurSeen {} { global exmh pick msg Exmh_Status "Clearing unseen up to cur..." red Mh_SetCur $exmh(folder) $msg(id) set pick(ids) [...get message ids for "pick 1-cur"...] busy PickMarkSeen Exmh_Status ok blue } (that's based upon the guts of Pick_MarkSeen) You need to fill in the code for the [...get...] section; I ran out of time! John (*) "It just works" (tm) (**) "it" == my head _______________________________________________ Exmh-workers mailing list Exmh-workers@redhat.com https://listman.redhat.com/mailman/listinfo/exmh-workers