rcpt-USER.AT.HOST@jankratochvil.net for lists.

[PerlMail.git] / perlmail-sendmail

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 5ea95ab..276e3dd 100755 (executable)
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -153,7 +153,11 @@ for my $rcpt (@rcpts) {
        if (defined $rcpt) {    # !defined($rcpt) if we have no recipients
                local $_;
                $opt_f=FromAddress($rcpt,1)->address() if !defined $opt_f;
-               $head->replace($from_headername,FromAddress($rcpt,0)->format()) if $from_headername;
+               if ($from_headername) {
+                       if (my $fromaddr=FromAddress($rcpt,0)->format()) {
+                               $head->replace($from_headername,$fromaddr);
+                               }
+                       }
                }
 
        1;      # drop '-bm' if present as it is default anyway