--- qmail-1.03/qmail-local.c.orig	Mon Jun 15 14:53:16 1998
+++ qmail-1.03/qmail-local.c	Fri Mar 22 09:58:45 2002
@@ -58,6 +58,7 @@
 stralloc rpline = {0};
 stralloc envrecip = {0};
 stralloc dtline = {0};
+stralloc diline = {0};
 stralloc qme = {0};
 stralloc ueo = {0};
 stralloc cmds = {0};
@@ -196,6 +197,7 @@
  if (substdio_put(&ssout,ufline.s,ufline.len)) goto writeerrs;
  if (substdio_put(&ssout,rpline.s,rpline.len)) goto writeerrs;
  if (substdio_put(&ssout,dtline.s,dtline.len)) goto writeerrs;
+ if (substdio_put(&ssout,diline.s,diline.len)) goto writeerrs;
  for (;;)
   {
    if (getln(&ss,&messline,&match,'\n') != 0) 
@@ -458,6 +460,7 @@
  datetime_sec starttime;
  int flagforwardonly;
  char *x;
+ char strnum[FMT_ULONG];
 
  umask(077);
  sig_pipeignore();
@@ -512,6 +515,12 @@
  if (!stralloc_copy(&foo,&dtline)) temp_nomem();
  if (!stralloc_0(&foo)) temp_nomem();
  if (!env_put2("DTLINE",foo.s)) temp_nomem();
+
+ if (!stralloc_copys(&diline,"X-Delivery-ID: ")) temp_nomem();
+ if (!stralloc_catb(&diline,strnum,fmt_ulong(strnum,(unsigned long) now()))) temp_nomem();
+ if (!stralloc_cats(&diline,".")) temp_nomem();
+ if (!stralloc_catb(&diline,strnum,fmt_ulong(strnum,(unsigned long) getpid()))) temp_nomem();
+ if (!stralloc_cats(&diline,"\n")) temp_nomem();
 
  if (flagdoit)
    bouncexf();