From 6ad7e243152f570af6679d725861f885aa1ac470 Mon Sep 17 00:00:00 2001
From: Radu Greab <radu@yx.ro>
Date: Tue, 5 Aug 2008 09:06:07 +0000
Subject: [PATCH] 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               | 2 ++
 plugins/queue/maildir | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/Changes b/Changes
index c43f4c8..102e4e1 100644
--- a/Changes
+++ b/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).
 
diff --git a/plugins/queue/maildir b/plugins/queue/maildir
index 5f69fd8..dd804f5 100644
--- a/plugins/queue/maildir
+++ b/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...