git://git.jankratochvil.net
/
PerlMail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rcpt-USER.AT.HOST@jankratochvil.net for lists.
[PerlMail.git]
/
perlmail-sendmail
diff --git
a/perlmail-sendmail
b/perlmail-sendmail
index
c84847d
..
276e3dd
100755
(executable)
--- a/
perlmail-sendmail
+++ b/
perlmail-sendmail
@@
-59,8
+59,7
@@
my $opt_b;
my $opt_Q;
my $opt_q;
my $opt_t;
my $opt_Q;
my $opt_q;
my $opt_t;
-our $opt_f;
-our $opt_F; # from PerlMail::Config;
+our $opt_f; # not exported, just for local()
my $opt_perlmail_dry_run;
my @ARGV_save=@ARGV; # for non-bm mode
die if !Getopt::Long::GetOptions(
my $opt_perlmail_dry_run;
my @ARGV_save=@ARGV; # for non-bm mode
die if !Getopt::Long::GetOptions(
@@
-126,7
+125,6
@@
my $from_headername;
}
# to be utilized later by &FromAddress
}
# to be utilized later by &FromAddress
-our $is_pgp; # from PerlMail::Config;
$is_pgp=(1
&& do { local $_=$head->mime_attr("Content-Type"); $_ && ~m#^multipart/(?:signed|encrypted)$#; }
&& do { local $_=$head->mime_attr("Content-Type.protocol"); $_ && ~m#^application/pgp\b#; }
$is_pgp=(1
&& do { local $_=$head->mime_attr("Content-Type"); $_ && ~m#^multipart/(?:signed|encrypted)$#; }
&& do { local $_=$head->mime_attr("Content-Type.protocol"); $_ && ~m#^application/pgp\b#; }
@@
-155,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;
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
}
1; # drop '-bm' if present as it is default anyway