From: exmh-users-admin@redhat.com  Sat Sep 14 16:22:59 2002
Return-Path: <exmh-users-admin@example.com>
Delivered-To: yyyy@localhost.example.com
Received: from localhost (jalapeno [127.0.0.1])
	by jmason.org (Postfix) with ESMTP id D5BBA16F03
	for <jm@localhost>; Sat, 14 Sep 2002 16:22:58 +0100 (IST)
Received: from jalapeno [127.0.0.1]
	by localhost with IMAP (fetchmail-5.9.0)
	for jm@localhost (single-drop); Sat, 14 Sep 2002 16:22:58 +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 g8EDNbC04904 for
    <jm-exmh@jmason.org>; Sat, 14 Sep 2002 14:23:37 +0100
Received: from listman.example.com (localhost.localdomain [127.0.0.1]) by
    listman.redhat.com (Postfix) with ESMTP id 605E03FB5A; Sat, 14 Sep 2002
    09:24:02 -0400 (EDT)
Delivered-To: exmh-users@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 611563EC22
    for <exmh-users@listman.redhat.com>; Sat, 14 Sep 2002 09:23:12 -0400 (EDT)
Received: (from mail@localhost) by int-mx1.corp.example.com (8.11.6/8.11.6)
    id g8EDN7j14880 for exmh-users@listman.redhat.com; Sat, 14 Sep 2002
    09:23:07 -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 g8EDN6k14876 for
    <exmh-users@redhat.com>; Sat, 14 Sep 2002 09:23:06 -0400
Received: from dimebox.bmc.com (adsl-66-140-152-233.dsl.hstntx.swbell.net
    [66.140.152.233]) by mx1.redhat.com (8.11.6/8.11.6) with SMTP id
    g8ED6Kw05816 for <exmh-users@redhat.com>; Sat, 14 Sep 2002 09:06:21 -0400
Received: by dimebox.bmc.com (Postfix, from userid 1205) id 6C21138DAC;
    Sat, 14 Sep 2002 08:23:04 -0500 (CDT)
Received: from dimebox (localhost [127.0.0.1]) by dimebox.bmc.com
    (Postfix) with ESMTP id 2F41638DA7 for <exmh-users@redhat.com>;
    Sat, 14 Sep 2002 08:23:04 -0500 (CDT)
X-Mailer: exmh version 2.5 07/13/2001 with nmh-1.0.4
In-Reply-To: <200209132329.g8DNTx409571@head-cfa.harvard.edu>
References: <200209132329.g8DNTx409571@head-cfa.harvard.edu>
Comments: In-reply-to "Wendy P. Roberts" <wendy@head-cfa.harvard.edu>
    message dated "Fri, 13 Sep 2002 19:29:59 -0400."
To: exmh-users@example.com
Subject: Re: Automated forwarding
MIME-Version: 1.0
From: Hal DeVore <haldevore@acm.org>
X-Image-Url: http://www.geocities.com/hal_devore_ii/haleye48.gif
Content-Type: text/plain; charset=us-ascii
Message-Id: <29520.1032009778@dimebox>
X-Loop: exmh-users@example.com
Sender: exmh-users-admin@example.com
Errors-To: exmh-users-admin@example.com
X-Beenthere: exmh-users@example.com
X-Mailman-Version: 2.0.1
Precedence: bulk
Reply-To: exmh-users@example.com
List-Help: <mailto:exmh-users-request@example.com?subject=help>
List-Post: <mailto:exmh-users@example.com>
List-Subscribe: <https://listman.example.com/mailman/listinfo/exmh-users>,
    <mailto:exmh-users-request@redhat.com?subject=subscribe>
List-Id: Discussion list for EXMH users <exmh-users.example.com>
List-Unsubscribe: <https://listman.example.com/mailman/listinfo/exmh-users>,
    <mailto:exmh-users-request@redhat.com?subject=unsubscribe>
List-Archive: <https://listman.example.com/mailman/private/exmh-users/>
Date: Sat, 14 Sep 2002 08:22:58 -0500
X-Spam-Status: No, hits=-9.6 required=7.0
	tests=AWL,IN_REP_TO,KNOWN_MAILING_LIST,REFERENCES,
	      SPAM_PHRASE_00_01,X_LOOP
	version=2.50-cvs
X-Spam-Level: 


>>>>> On Fri, 13 Sep 2002, "Wendy" == Wendy P. Roberts wrote:

  Wendy> I've been trying to set a button called which
  Wendy> automatically forwards mail using a '-form mycomps'
  Wendy> without going through the editor, but so far haven't got
  Wendy> the right recipe.

I have one that uses dist to send stuff from my work mail to my 
home mail.  The binding looks like this:

set {bindings(key,HD_Dist_Silently -form distcomps.to-me)} <Meta-dollar>

The "HD_Dist_Silently" is a hacked up version of the proc that 
does dist in exmh and is pasted in below.  It's getting old and 
probably should be "resynced" with the current code.  But it 
still works (on a relatively recent CVS copy of exmh)

It's also possible that there's an easier way but I hacked this 
together quickly a year or more ago and when it worked I moved 
on to other tasks.

--Hal

proc HD_Dist_Silently { args } {

    global exmh msg
    set exmh(ctype) {dist}
    if {[string length $args] == 0} {
	set args Mh_DistSetup
    }

    if [MsgOk $msg(id) m] {
	if {[string compare [info command $args] $args] == 0} {
	    # Old interface with hook procedure
	    if [catch {$args $exmh(folder) $m} err] {   ;# Setup draft msg
		Exmh_Status "${args}: $err" purple
		return
	    }
	}  else {
	    if [catch {
		Exmh_Status "dist +$exmh(folder) $m"
		eval {MhExec dist +$exmh(folder) $m} -nowhatnowproc $args
		MhAnnoSetup $exmh(folder) $m dist
	    } err] {
		Exmh_Status "dist: $err" purple
		return
	    }
	}
        Edit_Done send				;# Just send it
    }
}




_______________________________________________
Exmh-users mailing list
Exmh-users@redhat.com
https://listman.redhat.com/mailman/listinfo/exmh-users


