[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Nmh-workers] forms expert
From: |
bergman |
Subject: |
Re: [Nmh-workers] forms expert |
Date: |
Fri, 07 Oct 2005 10:19:01 -0400 |
I hesitate to call myself an "expert", but here goes.
In the message dated: Wed, 05 Oct 2005 12:25:13 EDT,
The pithy ruminations from Michael Richardson on
<[Nmh-workers] forms expert> were:
=> -----BEGIN PGP SIGNED MESSAGE-----
=>
=>
=> Is there anyone with a deep understanding of the forms stuff, i.e.
=> Mail/components and Mail/replcomps. Of the code.
=>
=> I have been trying to get replcomps to fill in a From: if it sees
=> certain things in To: or CC:. In perl:
Ah, yes, that problem.
=>
=> if($to =~ /xelerance.com/ || $cc =~ /xelerance.com/) {
=> $from = "address@hidden";
=> }
=>
=> At one point, what happened was that this worked, but the field which
=> had to xelerance.com got removed. Now it just doesn't work at all.
In my case, just changing $from wasn't enough (I wanted the Fcc and .sig to
change too). I ended up writing a front-end to repl (attached) that does what
you want. I'd really love to see it improved--or ideally, to have the concept
incorportated into the next+1 release.
My version of repl relies on getting environment variables to populate fields
(From, Fcc) in the reply:
--------------replcomps--------------------------
%(lit)%(formataddr %<{reply-to}%?{from}%?{sender}%?{return-path}%>)\
%(void(width))%(putaddr To: )
%(lit)%(formataddr{to})%(formataddr{cc})%(formataddr(me))\
%(formataddr{resent-to})%(formataddr{resent-cc})\
%<(nonnull)%(void(width))%(putaddr cc: )\n%>\
CC:
%(void(getenv REPLMASQ))From: %(putstr)
Reply-To: %(putstr)
%(void(getenv REPLMASQFCC))Fcc: %(putstr)
Subject: %<{subject}Re: %{subject}%>
%<{message-id}%<{date}In-Reply-To: Your message of "%<(nodate{date})%{date}%|%(p
retty{date})%>%>." %{message-id}\nReferences: %{message-id}%<{references} %{refe
rences}%>\n%>\
-----\n
-------------------------------------------------
Take a look at the attached script, try the "-h" or "--wrap--D" options (yes,
all those dashes are required), and try not to laugh too much. Suggestions &
bug fixes are welcome.
Mark
=>
=> I will try again with the 1.1rc4, I think I'm running older code again.
=>
=> My goal is to put together some kind of simpler test harness that I
=> can use to excercise the code.
=>
=> - --
=> ] ON HUMILITY: to err is human. To moo, bovine. | firewalls
[
=> ] Michael Richardson, Xelerance Corporation, Ottawa, ON |net
architect[
=> ] address@hidden http://www.sandelman.ottawa.on.ca/mcr/ |device driver[
=> ] panic("Just another Debian GNU/Linux using, kernel hacking, security
guy"); [
=> -----BEGIN PGP SIGNATURE-----
=> Version: GnuPG v1.2.2 (GNU/Linux)
=> Comment: Finger me for keys
=>
=> iQCVAwUBQ0P+ZYqHRg3pndX9AQHdswP+LjhjhjQPMBPpjgJcfZbNQLmq/FyaI+y0
=> d4JzPtDHdV4NTs1MgVoBMCYT6QDk9bF5JwDgXaozuOD//0K0PGV/1VHVpTg+ZF62
=> L9HKbbQOlucDcBFt8DaCnKnAdWxvst+5+dRvp1JIi9EXnYEupq+aXI5+IvWAGaWz
=> igcCSuM3Nkk=
=> =n/QW
=> -----END PGP SIGNATURE-----
=>
=>
=> _______________________________________________
=> Nmh-workers mailing list
=> address@hidden
=> http://lists.nongnu.org/mailman/listinfo/nmh-workers
=>
replwrap.pl
Description: replwrap.pl