sequencerの改造

[ Nob's Home | Mailing List ]

  • reply時に Re:や(*****)や[*****]が重なる問題
    FCSの高橋さん(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;
    
    

  • [ Nob's Home | Mailing List ]
    nob@makioka.y-min.or.jp