From owner-FreeBSD-users-jp@jp.freebsd.org  Wed Jul  2 14:47:09 1997
Received: by jaz.jp.freebsd.org (8.8.6+2.7Wbeta5/8.7.3) id OAA24364
	Wed, 2 Jul 1997 14:47:09 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.6+2.7Wbeta5/8.7.3) with ESMTP id OAA24359
	for <FreeBSD-users-jp@jp.freebsd.org>; Wed, 2 Jul 1997 14:47:06 +0900 (JST)
Received: from cylon.on.rim.or.jp (ppp043.on.rim.or.jp [202.247.138.171]) by april.on.rim.or.jp (8.8.5/3.4Wbeta6-rim1.1) with ESMTP id OAA20619; Wed, 2 Jul 1997 14:44:23 +0900 (JST)
Message-Id: <199707020544.OAA20619@april.on.rim.or.jp>
Received: from on.rim.or.jp by cylon.on.rim.or.jp (8.8.5/3.5Wpl5-97062421)
	id OAA00554; Wed, 2 Jul 1997 14:44:27 +0900 (JST)
To: FreeBSD-users-jp@jp.freebsd.org
From: Yoshishige Arai <ryo2@on.rim.or.jp>
In-Reply-To: Your message of "Mon, 30 Jun 1997 17:21:23 +0900"
References: <199706300821.RAA16035@landau.t.u-tokyo.ac.jp>
X-Mailer: Mew version 1.70 on Emacs 19.28.1 / Mule 2.3
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Wed, 02 Jul 1997 14:44:25 +0900
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: bulk
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: FreeBSD-users-jp 15072
Subject: [FreeBSD-users-jp 15072] Re: How do I read them?
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

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

On Mon, 30 Jun 1997 13:28:58 +0900 (JST) ([FreeBSD-users-jp 14980] Re: How do I read them?)
ikarashi@itlb.te.noda.sut.ac.jp (IKARASHI Akira) wrote:

> $B;d$O!"(Bslocal$B$G%U%)%k%@!<$KJ,N`$7$F!"FI$s$G$$$J$$%a!<%k0lMw$rI=<($5$;$k(B
> $B$N$K$O!"!V(Bmh&xmh$B!W$K:\$C$F$$$?%9%/%j%W%H$r<c43=$@5$7$F;H$C$F$$$^$9!#(B
>
> ~/.mh_profile$B$K!"(B
> 
> Unseen-Sequence: unseen

$BF1$8$/(B slocal + .maildelivery$BGI$G$9!#(B
$B;d$b(B mh & xmh $B$r8+$F!"8^==Mr$5$s$H;w$?$h$&$J$3$H9M$(!"(Bmh_sequences 
$BA4It$r=&$$=P$9$h$&!"(Bperl$B%9%/%j%W%H(B unseen(uscan $B$NL>A0$G%O!<%I%j%s%/(B) 
$B$r:n$j!"(B
 unseen = $BL$FIHV9f%j%9%H!\?tI=<(!"(Buscan = $BL$FI(Bscan
$B$J$I$H$7$F$$$?$N$rK\F|H/8+$7$^$7$?(B($B>P(B)

On Mon, 30 Jun 1997 21:38:19 +0900 ([FreeBSD-users-jp 15005] Re: How do I read them?)
Ishikawa Ichiro <ichiro@tama.or.jp> wrote:

> $B3N$+$K(B Mew $B<+BN$O99?7$7$F$/$l$J$$$N$G$9$,!";d$O(B mh-biff $B$N4X?t$r;H$C$F(B
> 
> (add-hook 'mew-message-hook
> 	  '(lambda ()
> 	     (and (boundp 'fld)
> 		  (boundp 'msg)
> 		  (and fld
> 		       msg
> 		       (mh-biff-delete-unseen-sequence fld msg)))))
> 

$B$&$C!"4r$7$$!D$3$l$$$?$@$-$^$C$9!#(B
Mew $B$G3,AX%U%)%k%@7!$k$+$i$H(B unseen$B=q$$$?$N$K!"(B Mew $B$G%]%$%s%?$,99?7(B
$B$5$l$J$$$N$G!"7k6IA4A3;H$C$F$$$^$;$s$G$7$?!#(B
$B$3$l$GLr$KN)$D$+$b$7$l$J$$!#(B

$B$*B"F~$j$K$J$C$F$$$?(B unseen$B7s(Buscan$B%9%/%j%W%H$O0J2<$G$9!#(B
# IM $B$K4|BT$7$^$9!#(B
---- 
$B0z?t!"4D6-JQ?t(B FOLDERS $B$r=g$K8+$F!"$I$A$i$b$J$1$l$PA4%U%)%k%@$rD4$Y$^$9!#(B
#!/usr/bin/perl
# unseen & uscan

($myname) = ($0 =~ /([^\/]+)$/);
require 'getopts.pl';
$help = "usage: $myname [folders]\n\tEnvironment strings FOLDERS will be ".
    "used if folders is not specified\n";
&Getopts('h') || die "illegal option\n$help";
$opt_h && die $help;
$mh_profile = $ENV{"HOME"}."/.mh_profile";
%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);
$myname eq 'uscan' && ($uscan = 1);
$mh{'Path'} !~ m,/, && ($mh{'Path'} = "$ENV{'HOME'}/$mh{'Path'}");
if (@ARGV) {
    @folders = @ARGV;
} else {
    if ($ENV{'FOLDERS'}) {
	@folders = split(/[\s\t\n]+/, $ENV{'FOLDERS'});
    } else {
	@folders = split(/\n/, `find $mh{'Path'} -name \'$mh{'mh-sequences'}\' -print`);
    }
}
for (@folders) { s|$mh{'Path'}/||g; s|/$mh{'mh-sequences'}||g; }
$| = 1;
foreach $f (@folders) {
    open(MS, "$mh{'Path'}/$f/$mh{'mh-sequences'}") && do {
	while (<MS>) {
	    if (($seq) = /^$mh{'Unseen-Sequence'}:\s*(.*)/) {
		if ($uscan) {
		    print "============== +$f\n";
		    system "scan +$f $mh{'Unseen-Sequence'}";
		    last;
		} else {
		    $number = ($seq =~ /^(\d+)-(\d+)/) ? $2-$1+1 : 1;
		    print "$f\t: $seq ($number)\n";
		}
	    }
	}
	close(MS);
    };
}
--------
 $B9S0fNI=E(B(Yoshishige Arai)
 E-Mail: ryo2@on.rim.or.jp
