Set the Return-Path header when queuing into maildir mailboxes.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@936 958fd67b-6ff1-0310-b445-bb7760255be9

Changes

@@ -1,3 +1,5 @@
+  Set the Return-Path header when queuing into maildir mailboxes.
+
   prefork, forkserver: restart on SIGHUP (reload all modules, with register() /
   init() phase).
 

plugins/queue/maildir

@@ -166,6 +166,8 @@ sub write_file {
     $self->log(LOGWARN, "could not open $maildir/tmp/$file: $!"),
     return(DECLINED, "queue error (open)");
 
+  print MF "Return-Path: ", $transaction->sender->format , "\n";
+
   print MF "Delivered-To: ",$addr->address,"\n"
     if $addr; # else it had been added before...