1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
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
|
