Newsgroups: fj.mail
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.iij.ad.jp!news.mri.co.jp!marrella.mri.co.jp!kiyokawa-jhs!news.ipc.chiba-u!news.tj.chiba-u!asada
From: asada@ics.tj.chiba-u.ac.jp (Takuya Asada)
Subject: Re: procmail
Message-ID: <DDpv5y.1p9@ics.tj.chiba-u.ac.jp>
Sender: usenet@ics.tj.chiba-u.ac.jp
Nntp-Posting-Host: icsj6.tj.chiba-u.ac.jp
Organization: Chiba-University
References: <AKI.95Aug22174904@nocs3.noc.titech.ac.jp>
Date: Tue, 22 Aug 1995 14:34:45 GMT
Lines: 50
Xref: galaxy.trc.rwcp.or.jp fj.mail:2961
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.mail&nb=2961&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B$"$5$@$J$N$G$9!#(B

$BHSEg$5$s(B>
> > $B0lEY(Bspool$B$KMn$A$?%a%$%k$r(BPOP$B$d(BIMAP$B$r;H$C$F%a%$%k$r<h$C$F$/$k:]!"(B
> > $B$=$N;~$K(Bprocmail$B$rDL$9;v$,=PMh$l$P$$$$$J$C$F;W$C$?$s$G$9!#(B
> Windows$B$N(BPOP$B%/%i%$%"%s%H$J%a!<%k%j!<%@$G(B $B$=$&$$$&5!G=$r<B8=$7$F$k$d$D(B
> $B$O7k9=$"$j$^$9$M!#(BAL-Mail$B$H$+(B.

$B$G$9$M!#(B

> $B$^$?(B winbiff$B$K$O$3$N5!G=$O$"$j$^$;$s$,(B $B30$E$1$G(B $B!V%Z%j%+%s7/!W(B
> $B$F$N$,(B $BJ,N`$r$d$C$F$/$l$k$=$&$G$9!#(B

$B$J$+$J$+L>A0$,%*%7%c%l$G$9$M$'(B ^^

# $B$=$&$$$($P$3$N4V!"K?=j$G$bOCBj$K$J$C$?$G$9$,!"(BWindows $B$d(B Mac $B$N(B
# $B%a!<%k%j!<%@!J$d3HD%5!G=!K$G!"(B"X-*:" $B%X%C%@$J$I$r;H$($k$b$N$C$F(B
# $B$"$k$s$G$7$g$&$+!)(B

> UNIX$B$G$d$m$&$H$7$?$i(B $BNc$($P(B mh-e$B$J$i(B inc$B$H$$$&%3%^%s%I$r(B mh-prog $B$G@_(B
> $BDj$7$?%Q%9$+$i<B9T$7$^$9$N$G!"8D?M$N%G%#%l%/%H%j$K(B inc$B$H$$$&%9%/%j%W%H(B
> $B$rMQ0U$7!"(B
> $B!D(B

$B$J$k$[$I$G$9!#;d$,9M$($?$N$O!D(B

$B2<5-$N(B perl $B%9%/%j%W%H$r!"Nc$($P(B piprocmail $B!J%@%5$$L>A0$@(B ^^;$B!K(B
$B$H$+$$$&L>A0$G!"%Q%9$NDL$C$?=j$KJ]B8$7$F$*$$$F!"(Bpopclient $B$H$$$&(B
$B%D!<%k$r;H$C$F!"(B

popclient -3 -c $B$[$9$H(B | piprocmail

$B$J$s$F%+%s%8$G$9!#%^%8%a$K$d$k$J$i!"(Bpopclient $B$K$A$g$C$H<j$r$$$l(B
$B$F!"(B~/.forward $B$r8+$k$h$&$K$9$k$N$b!"%$%$$+$b$7$l$^$;$s!#(B

$B$"$5$@(B $B$?$/$d(B

--
#!/usr/local/bin/perl
$PROCMAIL = "/usr/local/bin/procmail";
while (<>) {
    if (/^From /) {
        close(PM) if ($sending);
        open(PM, "| $PROCMAIL") || die("can't exec procmail.\n");
        $sending = 1;
    }
    print PM;
}


