procmail が sendmail にメールを渡すときにエラー

procmail が sendmail にメールを渡すときに、

procmail: Error while writing to "/usr/sbin/sendmail"

というエラーが出ることがある。
エラーになるメールを調べてみると、以下の共通点があることがわかった。To: には数百人の名前が指定されており、サイズも 50KB を超える。また、E-Mail アドレスにマルチバイト文字列を使っているユーザがいる。どちらが原因になっているかはわからないので、まずはマルチバイト文字を削除してから sendmail に渡すようフィルタを書いてみることにする。

- 対象となる文字列

<Unknown_Internet_Mail_Address@10.3.50.200>,
"=?ISO-2022-JP?B?GyRCQX4kJCQiJHMkQSQvJDckZyQmGyhC?="
<マルチバイトの文字列>,

これを以下のように置換する。

<Unknown_Internet_Mail_Address@10.3.50.200>,
"=?ISO-2022-JP?B?GyRCQX4kJCQiJHMkQSQvJDckZyQmGyhC?="
<NGSTRING_nn_NGSTRING>,

- スクリプトを書いて試してみる

久々の one liner だ。ちょっとマッチする範囲が大きすぎるかもしれない。

|perl -pe 's/<(\W+)>/"<NGSTRING_" . unpack("H2", $1) . "_NGSTRING>"/eg;'

上記フィルタを .procmailrc に入れて試してみたが効果がない。やはり To: の数が多すぎるのか。では、ヘッダが大きすぎるとき To: を削除するフィルタを書くとしよう。

|perl -0777 -pe 's/(To: .*?),.*?(?=^\w)/$1\n/sm;'

procmail は一通ごとにフィルタを起動するので、正規表現の g オプションは付けない。

上記フィルタを組み込んだところ、正常動作するようになった。フィルタ発動の閾値は、ヘッダが 8192 バイトを超えた場合とした。

PATH=/usr/bin:/usr/sbin:/usr/ucb:/usr/local/bin:/pub/bin:.
LOGFILE=$HOME/log/procmail.log

# ヘッダだけを対象にしたフィルタ
:0 fhH
* > 8192
|perl -0777 -pe 's/^(To: .*?),.*?(?=^\w)/$1\n/sm;'
# |perl -pe 's/<(\W+)>/"<NGSTRING_" . unpack("H2", $1) . "_NGSTRING>"/eg;'

:0
! saitou-hiroaki@example.co.jp