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;