view release on metacpan or  search on metacpan

share/SpamAssassin/easy_ham/01133.d9329be5511d9ba5af54e36ce4cb3777  view on Meta::CPAN

Message-Id: <200209241808.g8OI8LM8068943@schooner.loverso.southborough.ma.us>
To: Ted Cabeen <secabeen@pobox.com>
Cc: exmh-workers@spamassassin.taint.org
Subject: Re: Minor feature request
In-Reply-To: Message from Ted Cabeen <secabeen@pobox.com>
    <20020924170024.1935256D@gray.impulse.net> .
X-Face: "UZ!}1W2N?eJdN(`1%|/OOPqJ).Idk?UyvWw'W-%`Gto8^IkEm>.g1O$[.;~}8E=Ire0|lO
    .o>:NlJS1@vO9bVmswRoq3j<A2*d2*S+2%tyPf2|dwcrNgSx%#^d@7'85{"$i2,xw/T,I<]R$FG"{>
    DdX9YGSeJ5a(mfX[1u>Z63G5_^+'8LVqjqvn
X-Url: http://surf.to/loverso
From: "John R. LoVerso" <john@loverso.southborough.ma.us>
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: Tue, 24 Sep 2002 14:08:21 -0400

> 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