From owner-FreeBSD-users-jp@jp.freebsd.org  Sat Jan 18 17:54:50 1997
Received: by jaz.jp.freebsd.org (8.8.4+2.7Wbeta4/8.7.3) id RAA28843
	Sat, 18 Jan 1997 17:54:50 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.4+2.7Wbeta4/8.7.3) with ESMTP id RAA28838
	for <FreeBSD-users-jp@jp.freebsd.org>; Sat, 18 Jan 1997 17:54:49 +0900 (JST)
Received: from cylon.on.rim.or.jp (ppp102.on.rim.or.jp [202.247.138.230]) by april.on.rim.or.jp (8.8.4/3.4Wbeta6-rim1.1) with ESMTP id RAA27255; Sat, 18 Jan 1997 17:53:32 +0900 (JST)
Received: from cylon.on.rim.or.jp by cylon.on.rim.or.jp (8.7.5/3.4Wbeta6-96021707)
	id RAA08699; Sat, 18 Jan 1997 17:52:41 +0900 (JST)
Message-Id: <199701180852.RAA08699@cylon.on.rim.or.jp>
To: FreeBSD-users-jp@jp.freebsd.org
Cc: hori@fsinet.or.jp
From: Yoshishige Arai <ryo2@on.rim.or.jp>
In-Reply-To: Your message of "Sat, 18 Jan 1997 09:36:27 +0900 (JST)"
References: <199701180036.JAA00892@jupiter.ozawa.elec.keio.ac.jp>
X-Mailer: Mew version 1.54 on Emacs 19.28.1, Mule 2.3
X-URL: http://www.on.rim.or.jp/~ryo2/
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Sat, 18 Jan 1997 17:52:40 +0900
Reply-To: ryo2@on.rim.or.jp
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: FreeBSD-users-jp 8736
Subject: [FreeBSD-users-jp 8736] Re: auto mail devide 4 silent biff
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

$B$"$i$$!w%j%`%M%C%H?73c$G$9!#(B

On Sat, 18 Jan 1997 09:36:27 +0900 (JST) ([FreeBSD-users-jp 8727] Re: auto mail devide 4 silent biff)
hori@fsinet.or.jp (Kazutoshi HORIGUCHI) writes:

> $B#2(B $BD>@\%a!<%k%9%W!<%k$KJ|$j9~$^$:$K%m!<%+%k%^%7%s$N(B sendmail$B$KEO$9(B($B$"$i$$$5$s(B write)
>    (-> http://www.on.rim.or.jp/~ryo2/archives/pickup-1.2.tar.gz )

$B$9$_$^$;$s!"$[$H$s$I<+J,$HCN?M@lMQ$@$C$?$N$G(B popclient-3.0b6$B$K9g$o(B
$B$;$FD>$7$?$N$rK:$l$F$^$7$?!#(B
http://www.on.rim.or.jp/~ryo2/archives/pickup-1.4.tar.gz
$B$KCV$-D>$7$^$7$?!#(B

On Thu, 16 Jan 1997 19:58:24 +0900 ([FreeBSD-users-jp 8674] Re: auto mail devide 4 silent biff )
IWAOKA Masahiro <iwaoka@fr.a.u-tokyo.ac.jp> writes:

> $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

unseen,uscan$B$,%+%l%s%H%G%#%l%/%H%j$K$"$C$F%Q%9$,DL$C$F$$$k$H$-!"(B
$myname=""$B$K$J$C$FF0$-$^$;$s$M!#(B
($B%+%l%s%H$K%Q%9$rDL$9$N$ONI$/$J$$$1$I(B)

$_ = $0;
$myname = $2 if /^(.*)\/(.*)$/;

$B$H$J$C$F$$$k$H$3$m$r!"(B

@path= split(/\//, $0);
$myname= pop(@path);

$B$K$7$?$i$I$&$G$7$g$&!#$G$J$1$l$P!"(B
$myname=substr($0, rindex($0,'/')+1);
$B$G$b$$$1$^$9!#$"$H!"(B

	if (/^Path:/) {
		$folder_dir = "$2" if /^(.*?): (.*)$/;
	}

$B$N$H$3$m$O(B .mh_profile$B$K(B
$B!V(BPath:   /home/ryo2/Mail$B!W$H=q$+$l$F$$$k$H(B $2$B$K6uGr$,F~$C$F<:GT$7(B
$B$^$9$7!"!V(BPath: Mail$B!W$@$H(B .mh_sequences$B$,8+$D$+$i$J$/$J$j$^$9!#(B
$BNc$($P!"(B
$folder_dir = $1 if (/^Path:[\s\t]*(\S+)/);
$folder_dir = "$ENV{'HOME'}/$folder_dir" if ($folder_dir !~ m,/,);
$B$J$i(BOK$B$G$9!#B>!"(B
.mh_sequence$B$N%U%!%$%kL>$d(B inbox$B$NL>A0!"(Bunseen$B%7!<%/%(%s%9$NL>A0$r(B
$BJQ$($F$k>l9g$KBP=h$7$F$^$;$s$7!"%U%)%k%@$,A}$($?$j!"3,AX2=$7$?$j$9(B
$B$kKh$K%9%/%j%W%H$N(B @folders$BItJ,$r=q$-49$($k$N$b$d$dLLE]$G$9!#(B

$B$3$l$i$r9MN8$7!"<+J,N.$K%"%l%s%8$7$F;H$o$;$F$b$i$&$3$H$K$7$^$7$?!#(B
$B0J2<(B .mh_sequence$BC5$9$N$O(B find$B$K$d$i$;$F8mKb2=$7$^$7$?(B(^^;)$B$,!"(B
$B3,AX2=$7$?%U%)%k%@$G$bL5;v;H$($^$7$?!#(B

#!/usr/local/bin/perl
# unseen & uscan
$mh_profile = $ENV{"HOME"}."/.mh_profile";
@path= split(/\//, $0);
$myname= pop(@path);
%mh = ('Path',"Mail",'mh-sequences',".mh_sequences");
open(MP, $mh_profile) || die "$myname: $mh_profile cannot be found\n";
while (<MP>) {
    /^(\S+):[\s\t]*(\S+)/ && ($mh{$1} = $2);
}
close(MP);
$uscan = 1 if $myname eq "uscan";
$mh{'Path'} = "$ENV{'HOME'}/$mh{'Path'}" if $mh{'Path'} !~ m,/,;
@folders =
    split(/\n/, `find $mh{'Path'} -name \'$mh{'mh-sequences'}\' -print`);
for (@folders) { s|$mh{'Path'}/||g; s|/$mh{'mh-sequences'}||g; }

foreach $f (@folders) {
    open(MS, "$mh{'Path'}/$f/$mh{'mh-sequences'}") && do {
	while (<MS>) {
	    if (($seq) = /^$mh{'Unseen-Sequence'}:\s*(.*)/) {
		if (!$uscan) {
		    $number = ($seq =~ /^(\d+)-(\d+)/) ? $2-$1+1 : 1;
		    print "$f\t: $seq ($number)\n";
		} else {
		    print "+$f\n";
		    system "scan +$f $mh{'Unseen-Sequence'}";
		    last;
		}
	    }
	}
	close(MS);
    };
}

fetchmail$B$O$3$l$+$i=&$$$K9T$C$FMh$^$9!#(B
--------
 $B9S0fNI=E(B(Yoshishige Arai)
 E-Mail: ryo2@on.rim.or.jp  arai@tmbiomec.eng.niigata-u.ac.jp
