sequencerの改造

reply時に Re:や(*****)や[*****]が重なる問題

ＦＣＳの高橋さん(hiro@dp.fcs.ts.fujitsu.co.jp)やmjjp mailing listのみなさんに感謝を

いろいろ試していますが、現在のところ、以下のようにしています。
もっと良い案があったら mjjp mailing listで紹介してください。

〜〜〜diff結果 ここから〜〜〜
*** sequencer.org       Wed Jul  2 20:29:42 1997
--- sequencer   Wed Jul  2 20:21:24 1997
***************
*** 153,158 ****
--- 153,164 ----
      &abort("sequencer: Can't open /tmp/sequencer.$$.in: $!");

  while (<STDIN>) {
+       # by nob
+       if (/^Subject:/) {
+                 s/R[eE]¥:.*[¥(¥[]$opt_l.*¥d+[¥)¥]]/Re¥:/;
+                 s/R[eE]¥:¥s+R[eE]¥:/Re¥:/g;
+       }
+
      print IN $_;
  }
〜〜〜ここまで〜〜〜

1997.10.3現在の書き換えは

                s/R[eE]¥:.*[¥(¥[]¥w+¥W*¥d+[¥)¥]]/Re¥:/;
                s/R[eE]¥:¥s+R[eE]¥:/Re¥:/g;

としています。

1997.11.18 '-'が入ると上の書き換えではうまくいかないので、 三輪＠ラックさん Nobuo Miwa <n-miwa@lac.co.jp>の修正案です。

				s/R[eE]¥:.*[¥(¥[].*¥d+[¥)¥]]/Re¥:/;

もし他にうまい方法がありましたら、
mjjp MLで紹介してください。

空のsubjectの問題

以下の修正を加えてください。

*** sequencer.old       Sat Aug 16 18:02:34 1997
--- sequencer   Sat Aug 16 18:05:17 1997
***************
*** 201,207 ****
                                        $foo = $foo . " ";
                                }
                        }
!                       $subject = $foo . "Message for " . $opt_l;
                        print OUT $subject, "¥n";
                }

--- 201,207 ----
                                        $foo = $foo . " ";
                                }
                        }
!                       $subject = "Subject: " . $foo . "Message for " . $opt_l;
                        print OUT $subject, "¥n";
                }

sequencer が Subject: の継続行の面倒を見てくれない問題

藤原誠さん　/ Makoto Fujiwara <makoto@komekome.bay.prug.or.jp>より

sequencer が Subject: の継続行の面倒を見てくれないのを見るよ
うにする修正のつもりのものです。(INDEX 行用)

--- /home2/majordomo-1.94.4/contrib/sequencer   Thu Nov 13 22:20:13 1997
+++ contrib/sequencer   Mon Nov 17 00:46:50 1997
@@ -278,8 +278,19 @@
                         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;