byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@936 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Radu Greab 2008-08-05 09:06:07 +00:00 committed by Ask Bjørn Hansen
parent 3c8766f683
commit 6ad7e24315
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

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

2
plugins/queue/maildir
View File

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