[Mew-dist 04734] Re: queuing error messages

[Gorochan ^o^]

國頭です。だいぶ前の話になりましたが.......

▲時刻 Wed, 22 Apr 1998 16:45:05 +0900 に
▲Gorochan ^o^さんの出した
▲Message-ID <19980422164454X.kunito at example.com>の
▲Newsgroup  hal.ml.mew-distの
▲[Mew-dist 04463] Re: queuing error messages という話題では...
▲(詳しくは <19980422123822E.motonori at example.com> も見てね)

Goro> IM でも 4xx と 5xx で分けているのですね。
Goro> RFC977 を見ると、4xx でも Queue しない方が良さそうなのがあります。

Goro>    435 article not wanted - do not send it
Goro>    437 article rejected - do not try again.
Goro>    440 posting not allowed
Goro>    441 posting failed

news server への post の時に、上記の 4xx のエラーの場合に致命的エラー
として扱うようにするパッチです。
queuing=yes でもエラーとして報告してくれます。

im-91/IM.in/Nntp.pm.in へのパッチです。

------------------------------------------------------------
\\  國頭 吾郎 ( Goro Kunito )  [ＪＦ７ＬＪＢ／１]  | I Love \
 \\  東京大学工学系研究科電子情報工学専攻          |  `WISH' \
  \\           羽鳥・相澤研究室 博士課程２年       |    and   \
   \\  Tel 03-3812-2111 or 03-3814-4251 (ext. 6761)|   `JWAVE' \  
    \\  E-mail : kunito at example.com        |  very much.\
     ============================================================
-------------- next part --------------
--- im-91/IM.in/Nntp.pm.in.dist	Wed May  6 12:52:08 1998
+++ im-91/IM.in/Nntp.pm.in	Fri May 15 16:18:19 1998
@@ -136,6 +136,7 @@
 	    &log_action('nntp', &get_cur_server(), $group,
 			($#$servers >= 0) ? 'skipped' : 'failed', @resp);
 	    return -1 if ($rc < 0);
+            return -1 if (grep(/^(435|437|440|441)/, @resp) > 0);
 	} else {
 	    &log_action('nntp', &get_cur_server(), $group, 'sent', @resp);
 	}