diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 21:12:29 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 21:12:29 +0000 |
| commit | 61a59a6f49b9535ec65295893791d4007c3c9bf4 (patch) | |
| tree | 96396c1b7ae939805b003edfeb3719ac981b64a2 | |
| parent | e563a5c5b2af26641540699d05bc821a2bd1628d (diff) | |
Adjusting message-id settign to actually work
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1776 4979c152-3d1c-0410-bac9-87ea11338e46
| -rwxr-xr-x | LedgerSMB/Mailer.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/LedgerSMB/Mailer.pm b/LedgerSMB/Mailer.pm index c7225480..c1128d0e 100755 --- a/LedgerSMB/Mailer.pm +++ b/LedgerSMB/Mailer.pm @@ -54,10 +54,9 @@ sub send { my $boundary = time; $boundary = "LSMB-$boundary"; $domain =~ s/(.*?\@|>)//g; - my $msgid = "$boundary\@$domain"; + my $msg_id = "$boundary\@$domain"; $self->{contenttype} = "text/plain" unless $self->{contenttype}; - my $msgid = "$boundary\@$domain"; for (qw(from to cc bcc)) { $self->{$_} =~ s/\</</g; |