add X-Spam-Status: Yes if spam.

1 files changed, 43 insertions, 1 deletions

diff --git a/fml/doc/ja/tutorial/customize/recipe.filter.spamassassin.sgml b/fml/doc/ja/tutorial/customize/recipe.filter.spamassassin.sgml
index 14d73963..39f64181 100644
--- a/fml/doc/ja/tutorial/customize/recipe.filter.spamassassin.sgml
+++ b/fml/doc/ja/tutorial/customize/recipe.filter.spamassassin.sgml
@@ -1,5 +1,5 @@
 <!--
-   $FML: recipe.filter.notice.sgml,v 1.3 2004/04/07 11:07:02 fukachan Exp $
+   $FML: recipe.filter.spamassassin.sgml,v 1.1 2004/05/19 13:18:00 fukachan Exp $
 -->
 
 
@@ -39,3 +39,45 @@ $distribute_verify_request_end_hook = q{
 </answer>
 
 </qandaentry>
+
+
+<qandaentry>
+<question>
+<para>
+spamassassin で SPAM メールと判定したら、
+ヘッダに X-Spam-Status: Yes をつける。
+</para>
+</question>
+
+<answer>
+<para>
+<screen>
+$distribute_verify_request_end_hook = q{
+	my $spamassassin = '/usr/pkg/bin/spamc -c';
+
+	use FileHandle;
+	my $wh  = new FileHandle "| $spamassassin";
+
+	if (defined $wh) {
+		$wh->autoflush(1);
+		my $msg = $curproc->incoming_message();
+		$msg->print($wh);
+		$wh->close();
+		if ($?) {
+			$curproc->log("spam: (code = $?)");
+			my $hdr = $curproc->incoming_message_header();
+			$hdr->add('X-Spam-Status', 'Yes');
+		}
+	}
+};
+</screen>
+</para>
+
+<para>
+ちょっとトリッキーだが、動作はする。
+そのうち、もうちょっと変えるつもりでつ。
+</para>
+
+</answer>
+
+</qandaentry>