#!/bin/sh -

/usr/local/bin/gawk '

BEGIN {

  getline seq < "/var/mlist/ML.seq"

  close("/var/mlist/ML.seq")

  ++seq

  print seq > "/var/mlist/ML.seq"

  close("/var/mlist/ML.seq")

  IGNORECASE=1

  RS=""

}

NR==1 {

  gsub(/\nReply-To:[^\n]*(\n[ \t][^\n]*)*/, "")

  gsub(/\nReturn-Receipt-To:[^\n]*(\n[ \t][^\n]*)*/, "")

  gsub(/\nErrors-To:[^\n]*(\n[ \t][^\n]*)*/, "")

  gsub(/\nDisposition-Notification-To:[^\n]*(\n[ \t][^\n]*)*/, "")

  if (match($0, /\nSubject:(\n?[ \t])*(\[ML [0-9]+\] *)*Re:/))
    gsub(/\nSubject:(\n?[ \t])*((\[ML [0-9]+\] *)*(Re: *)*)*/, \
         "\nSubject: [ML " seq "] Re: ")

  else
    gsub(/\nSubject:(\n?[ \t])*(\[ML [0-9]+\] *)*/, \
         "\nSubject: [ML " seq "] ")

  print

  if (!match($0, /\nSubject:/))
    print "Subject: [ML " seq "] "

  print "Reply-To: ML@DOMAIN"

  print ""

  print "[ML " seq "]\n"

  RS="\n"

  next

}

{print}

' | /usr/lib/sendmail -oi -f owner-ML@DOMAIN ML-outgoing