From owner-FreeBSD-users-jp@jp.freebsd.org  Thu Jan 16 19:58:32 1997
Received: by jaz.jp.freebsd.org (8.8.4+2.7Wbeta4/8.7.3) id TAA01147
	Thu, 16 Jan 1997 19:58:32 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.4+2.7Wbeta4/8.7.3) with ESMTP id TAA01142
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 16 Jan 1997 19:58:29 +0900 (JST)
Received: from fr.a.u-tokyo.ac.jp (iwaoka@localhost [127.0.0.1]) by aesthete.fr.a.u-tokyo.ac.jp (8.8.3/m4-aesthete940604) with ESMTP id TAA22544 for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 16 Jan 1997 19:58:29 +0900 (JST)
Message-Id: <199701161058.TAA22544@aesthete.fr.a.u-tokyo.ac.jp>
To: FreeBSD-users-jp@jp.freebsd.org
In-reply-to: Your message of "Wed, 15 Jan 1997 14:21:23 JST."
             <199701150521.OAA06659@hirose.tohoku.iij.ad.jp> 
Date: Thu, 16 Jan 1997 19:58:24 +0900
From: IWAOKA Masahiro <iwaoka@fr.a.u-tokyo.ac.jp>
Reply-To: FreeBSD-users-jp@jp.freebsd.org
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: FreeBSD-users-jp 8674
Subject: [FreeBSD-users-jp 8674] Re: auto mail devide 4 silent biff 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

$B4d2,$G$9!#(B

In message <199701150521.OAA06659@hirose.tohoku.iij.ad.jp>
	Taguchi Takeshi <taguchi@tohoku.iij.ad.jp> writes:
> $B$($($H!";d$O(B popclient $B$G$O$J$/(B fetchmail (ports $B$K$"$j$^$9(B)$B$r$D$+$C$F!"(B

fetchmail $B$N%I%-%e%a%s%H$K$O(B popclient $B$N%P!<%8%g%s%"%C%WHG$G$"$k(B
$B$h$&$J$3$H$,=q$$$F$"$C$?5-21$,$"$k$N$G!"(Bfetchmail $B$r;H$&J}$,$*4+$a(B
$B$@$H;W$$$^$9!#%(%i!<=hM}$J$I$b$7$C$+$j$7$F$^$9$7!#(B

> /usr/local/bin/fetchmail -n --mda "/usr/local/lib/mh/slocal -user UserName" -
> d 300 -t 10

slocal $B$@$1$G$J$/!"(Bprocmail $B$G$b2DG=$G$9$M!#?&>l$G$O(B MH $B$r;H$C$F$$(B
$B$k$N$G(B slocal $B$G?6$jJ,$1$F$^$9$,!"<+Bp$G$O(B MH $B$r;H$C$F$$$J$$$N$G(B
procmail $B$G$9!#(B

> $B!t(B mh-biff $B$H$NAH9g$;$,!"6/0-$J$^$G$KJXMx$G$9(B^^;

$B;d$b0JA0$O(B mh-biff $B$r;H$C$F$$$?$s$G$9$,!"Dj4|E*$K(B scan $B$7$F$/$l$k(B
$B$N$GCN$i$J$$4V(B ($B$D!<$+<+J,$G@_Dj$9$k$o$1$G$9$+$iA4$/CN$i$J$$$o$1$G(B
$B$O$"$j$^$;$s$,(B:-) $B$K%+%l%s%H%U%)%k%@$,0\F0$7$F$7$^$C$F!"@8$G(B MH $B$r(B
$B;H$C$F$k$HHa$7$$;W$$$r$9$k$3$H$,$"$k$N$G;_$a$F$7$^$$$^$7$?(B ($B:G6a$O(B
mule $B<+BN$r;H$C$F$$$^$;$s$,(B)$B!#(B

$B:#$O(B mh-biff $B$H;w$?$h$&$J5!G=$r;}$D%9%/%j%W%H$r<+J,$G=q$$$F!"%a!<(B
$B%k$rFI$`2K$,$G$-$?;~$K<B9T$7$F$$$^$9!#(Bperl $B$r$[$H$s$ICN$i$J$$$^$^(B
$B=q$$$?$N$G$*CQ$:$+$7$$$N$G$9$,!"4JC1$J$N$G$I$J$?$+?F@Z$JJ}$,D>$7$F(B
$B2<$5$k$N$r4|BT$7$FE:IU$7$^$9!#(Bunseen $B$^$?$O(B uscan $B$H$$$&L>A0$G%;!<(B
$B%V$7$F!"B>J}$NL>A0$K%j%s%/$7$F2<$5$$!#(B

$B$$$o$*$+(B

P.S. $B$=!<$$$d!"(BSubject $B$N7o$O(B biff n $B$G:Q$`$H;W$$$^$9$,!#(B

BEGIN
#!/usr/bin/perl5
# unseen & uscan
@folders = ("inbox","freebsd-users-jp"); # folder names list
$mh_profile = $ENV{"HOME"}."/.mh_profile";
$mh_sequences = ".mh_sequences";
$_ = $0;
$myname = $2 if /^(.*)\/(.*)$/;
if ($myname eq "unseen") {
	$unseen = 1;
} else {
	if ($myname eq "uscan") {
		$uscan = 1;
	} else {
		return 1;
	}
}
open(MP, $mh_profile);
while (<MP>) {
	if (/^Path:/) {
		$folder_dir = "$2" if /^(.*?): (.*)$/;
	}
}
close(MP);
foreach $folder (@folders) {
	open(MS, $folder_dir."/".$folder."/".$mh_sequences);
	while (<MS>) {
		if (/^unseen:/) {
			if ($unseen) {
				$sequenses = $2 if /^(.*?): (.*)$/;
				$number = ($sequenses =~ /^(.*?)-(.*)$/) ? $2 - $1 + 1 : 1;
				print $folder."\t: $sequenses ($number)\n";
			} else {
				push @ufolders, $folder;
			}
		}
	}
	close(MS);
}
if ($uscan) {
	foreach $ufolder (@ufolders) {
		print "+".$ufolder."\n";
		system "scan +$ufolder unseen";
	}
}
END
