9d2718c6fb
This is popular mailing list manager package in Japan and it is stable but slightly legacy codes.
35 lines
901 B
Text
35 lines
901 B
Text
$NetBSD: patch-ae,v 1.1.1.1 2010/12/23 16:55:02 taca Exp $
|
|
|
|
Remove obsolete perl syntax.
|
|
|
|
--- src/libenvf.pl.orig 2003-12-17 23:46:54.000000000 +0900
|
|
+++ src/libenvf.pl
|
|
@@ -22,7 +22,7 @@ sub __EnvelopeFilter
|
|
local(*e, $mode) = @_;
|
|
local(@pmap); # paragraph map: the array of the first ptr in paragraph
|
|
my ($xbuf);
|
|
- my ($c, $p, $r, $org_mlp, $bodylen);
|
|
+ my ($c, $p, $r, $bodylen);
|
|
my ($lparbuf, $fparbuf, $n_paragraph);
|
|
my ($one_line_check_p);
|
|
|
|
@@ -30,10 +30,6 @@ sub __EnvelopeFilter
|
|
### 0. preparation
|
|
$bodylen = length($e{'Body'}); # body length
|
|
|
|
- # force plural line match
|
|
- $org_mlp = $*;
|
|
- $* = 0;
|
|
-
|
|
### 1. run-hooks
|
|
# compatible
|
|
# appending twice must be no problem since statments is "return".
|
|
@@ -267,8 +263,6 @@ sub __EnvelopeFilter
|
|
&MesgMailBodyCopyOn;
|
|
}
|
|
}
|
|
-
|
|
- $* = $org_mlp;
|
|
}
|
|
|
|
# return 0 if reject;
|