From owner-FreeBSD-users-jp@jp.freebsd.org  Tue Apr 20 21:19:46 1999
Received: by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) id VAA16702;
	Tue, 20 Apr 1999 21:19:46 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from wildagain.scphys.kyoto-u.ac.jp (wildagain.scphys.kyoto-u.ac.jp [130.54.54.119])
	by jaz.jp.freebsd.org (8.9.2+3.1W/8.7.3) with ESMTP id VAA16696
	for <FreeBSD-users-jp@jp.freebsd.org>; Tue, 20 Apr 1999 21:19:43 +0900 (JST)
	(envelope-from hata@cr.scphys.kyoto-u.ac.jp)
Received: from localhost (localhost [127.0.0.1])
	by wildagain.scphys.kyoto-u.ac.jp (8.9.2/3.7W) with ESMTP id VAA00440
	for <FreeBSD-users-jp@jp.freebsd.org>; Thu, 20 Apr 2000 21:19:45 +0900 (JST)
Message-Id: <200004201219.VAA00440@wildagain.scphys.kyoto-u.ac.jp>
To: FreeBSD-users-jp@jp.freebsd.org
From: HATA Ryuji <hata@wildagain.scphys.kyoto-u.ac.jp>
In-Reply-To: Your message of "Tue, 20 Apr 1999 21:00:59 +0900"
	<19990420210059W.nobu-s@shift.ne.jp>
References: <19990420210059W.nobu-s@shift.ne.jp>
X-Mailer: Mew version 1.93 on Emacs 19.34 / Mule 2.3
 =?iso-2022-jp?B?KBskQkt2RSYyVhsoQik=?=
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Thu, 20 Apr 2000 21:19:44 +0900
X-Dispatcher: imput version 980905(IM100)
Lines: 62
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+990405
X-Sequence: FreeBSD-users-jp 41470
Subject: [FreeBSD-users-jp 41470] Re: majordomo-1.94.4
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org
X-Originator: hata@wildagain.scphys.kyoto-u.ac.jp

$B?A$G$9!#(B

In mail "[FreeBSD-users-jp 41468] majordomo-1.94.4"
"Nobuyuki Sakai <nobu-s@shift.ne.jp>" wrote.....

> $B$O$8$a$^$7$F!":d0f$H?=$7$^$9!#(B
> FreeBSD $B$HA4A34X78$J$$OC$G$9$,!"$I$J$?$+65$($F$/$@$5$$!#(B
> $B8=:_!";d$O(B majordomo-1.94.4 $B$r(B Solaris-2.5.1 $B$K%$%s%9%H!<%k(B
> $B$7$F%a!<%j%s%0%j%9%H$r1?MQ$7$F$$$^$9!#(B

$BK\Ev$KL54X78$G$9$M!&!&!&(B(^^;;;;;;$B!#(B

> $B$3$N$h$&$KJV;v$N%a!<%k$N(B Subject $B$K(B [uu-readers ]
> $B$,$$$/$D$b$/$C$D$+$J$$$h$&$K$9$k$K$O$I$&$7$?$i$$$$$N$G$7$g$&$+!)(B

$B$3$NLdBj$r2r7h$9$k$K$O!"(Bhttp://www.y-min.or.jp/~nob/ML/ $B$K$"$k$h$&$K(B 
sequencer $B$r=$@5$7$J$/$F$O$J$j$^$;$s!#(B

$B;29M$^$G$K!";d$N=j$G;H$C$F$$$k(B sequencer $B$H86K\$H$N:9J,$rE:IU$7$F$*$-$^$9!#(B
$B$3$l$rEv$F$l$P2r7h$9$k$H;W$$$^$9!JJ]>Z$O$G$-$^$;$s$,!K!#(B

--- sequencer.orig Sat Feb  6 03:23:13 1999
+++ sequencer      Sat Feb  6 03:22:19 1999
@@ -153,6 +153,11 @@
     &abort("sequencer: Can't open /tmp/sequencer.$$.in: $!");
 
 while (<STDIN>) {
+      # by nob
+      if (/^Subject:/) {
+                s/R[eE]\:.*[\(\[].*\d+[\)\]]/Re\:/;
+                s/R[eE]\:\s+R[eE]\:/Re\:/g;
+      }
     print IN $_;
 }
 
@@ -195,7 +200,7 @@
                                        $foo = $foo . " ";
                                }
                        }
-                       $subject = $foo . "Message for " . $opt_l;
+                       $subject = "Subject: " . $foo . "Message for " . $opt_l;
                        print OUT $subject, "\n";
                }
 
@@ -277,8 +282,16 @@
                         local($foo_pat) = $foo;
                         $foo_pat =~ s/(\W)/\\$1/g;
                         s/^subject:\s*/Subject: $foo /i if !/$foo_pat/;
+                        $subject_last = 1 ;
+                       }
+                       elsif ( defined($subject_last) ){
+                               if ( /^\s+(.+)/ ){
+                                       $subject .= " $1";
+                               }
+                               else{
+                                       undef($subject_last);
+                               }
                        }
-
                    if ( /^from:\s*(.+)/i )
                    {
                        $from = $1;
