[Mew-dist 05627] Re: b48

[OKUNISHI Fujikazu]

ちょっと浮気していたら、いつの間にか mew-summary-join() が動かなくなっ
ていました(^_^;

現象としては、mew-im-call-process を単純に使っているため、サマリモード
に imjoin の出力を書き込もうとしてエラーになるわけです。

mew-set-buffer-tmp するか、以下のようにする必要があると思います。
;; でもこれだと失敗しててもわからないので、もっと真面目にやったほうが
;; いいかも。かずさんのご判断に任せます。

-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: mew-summary.el.diff
型:         application/octet-stream
サイズ:     675 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19980722/a2bf9700/attachment.obj>
-------------- next part --------------

ただ、imjoin のヘッダ解析はまずいらしく、tm で作った message/partial 
を join しようとすると

> if ($header =~ /\nContent-Type:message\/partial(;[^\n]+)\n/i) {
>    my $rest = $1;

で引っ掛からず、変数 number も this_total も 0 のままなため

> im_warn("$_: not a partial message, skipping.\n");

してしまうという悲しい問題があって、結合できませんでした(;_;) しかもサ
イズ０のメッセージが出力されるという。。

> Content-Type: message/partial; id="Wed_Jul_22_18:32:39_1998 at example.com"; number=1; total=3

となっています。なぜだめなんでしょうか?

;; $header はちゃんと入ってたので、ドライブレター問題ではないです。

--ふ＠perl を知らないやつ(^_^;