--- mimedefang.pl.original	2005-12-20 12:05:33.000000000 -0800
+++ mimedefang.pl	2005-12-20 12:02:46.000000000 -0800
@@ -884,6 +884,23 @@
     write_result_line2("H", $header, $value);
 }
 
+#***********************************************************************
+# %PROCEDURE: action_insert_header
+# %ARGUMENTS:
+#  header -- header name (eg: X-My-Header)
+#  value -- header value (eg: any text goes here)
+#  position -- where to place it (eg: 0 [default] to make it first)
+# %RETURNS:
+#  Nothing
+# %DESCRIPTION:
+#  Makes a note for milter to insert a header in the message.
+#***********************************************************************
+sub action_insert_header ($$;$) {
+    my($header, $value, $pos) = @_;
+    $pos = 0 unless defined($pos);
+    return if (!in_message_context("action_insert_header"));
+    write_result_line3("N", $header, $pos, $value);
+}
 
 #***********************************************************************
 # %PROCEDURE: action_change_header