--- postgrey    2006-06-29 18:49:37 +0600
+++ /opt/postgrey/postgrey      2006-07-28 16:13:35 +0600
@@ -364,6 +364,12 @@
             " seconds by postgrey-$VERSION at $self->{postgrey}{hostname}; $date";
     }

+       # R May 30 04:05:34 C1D8C23D53D <ktoto@gdeto.biz> <komuto@zdes.ru> mx.cheito.ru[1.2.3.4]
+       open (TRANS,">>/var/mail/p2pwl/trans-history.log");
+       print TRANS "R ".strftime("%d %b %Y %T", localtime)." ".$attr->{queue_id}." <$sender> ".
+               "<".$attr->{recipient}."> ".$attr->{client_name}."[".$attr->{client_address}."]\n";
+       close TRANS;
+
     return 'DUNNO';
 }