From maddingue at free.fr  Tue Apr 16 00:58:46 2013
From: maddingue at free.fr (maddingue at free.fr)
Date: Tue, 16 Apr 2013 00:58:46 +0200 (CEST)
Subject: svn commit: [2294] trunk/lib/Act/Email.pm:
	in case more than one address is given, only use the first
Message-ID: <20130415225846.7E5AF84437@spectre.mongueurs.net>

Revision: 2294
Author:   maddingue
Date:     2013-04-16 00:58:46 +0200 (Tue, 16 Apr 2013)
Log Message:
-----------
in case more than one address is given, only use the first

Modified Paths:
--------------
    trunk/lib/Act/Email.pm

Modified: trunk/lib/Act/Email.pm
===================================================================
--- trunk/lib/Act/Email.pm	2011-07-19 00:15:59 UTC (rev 2293)
+++ trunk/lib/Act/Email.pm	2013-04-15 22:58:46 UTC (rev 2294)
@@ -46,7 +46,11 @@
 
     my @headers;
 
-    my $from = Email::Address->new( ref $args{from} ? ( @{ $args{from} }{ 'name', 'email' } ) : ( '', $args{from} ) );
+    my @from = ref $args{from}
+             ? ( @{ $args{from} }{ 'name', 'email' } )
+             : ( '', (split /,/, $args{from})[0] );
+
+    my $from = Email::Address->new(@from);
     push @headers, ( From => $from->format() );
     chomp $args{subject};
 


From maddingue at free.fr  Tue Apr 16 01:05:42 2013
From: maddingue at free.fr (maddingue at free.fr)
Date: Tue, 16 Apr 2013 01:05:42 +0200 (CEST)
Subject: svn commit: [2295] branches/stable/lib/Act/Email.pm: merge r2294:
	in case more than one address is given, only use the first
Message-ID: <20130415230542.943CF8443C@spectre.mongueurs.net>

Revision: 2295
Author:   maddingue
Date:     2013-04-16 01:05:42 +0200 (Tue, 16 Apr 2013)
Log Message:
-----------
merge r2294: in case more than one address is given, only use the first

Modified Paths:
--------------
    branches/stable/lib/Act/Email.pm

Modified: branches/stable/lib/Act/Email.pm
===================================================================
--- branches/stable/lib/Act/Email.pm	2013-04-15 22:58:46 UTC (rev 2294)
+++ branches/stable/lib/Act/Email.pm	2013-04-15 23:05:42 UTC (rev 2295)
@@ -46,7 +46,11 @@
 
     my @headers;
 
-    my $from = Email::Address->new( ref $args{from} ? ( @{ $args{from} }{ 'name', 'email' } ) : ( '', $args{from} ) );
+    my @from = ref $args{from}
+             ? ( @{ $args{from} }{ 'name', 'email' } )
+             : ( '', (split /,/, $args{from})[0] );
+
+    my $from = Email::Address->new(@from);
     push @headers, ( From => $from->format() );
     chomp $args{subject};
 


From maddingue at free.fr  Tue Apr 16 01:10:15 2013
From: maddingue at free.fr (maddingue at free.fr)
Date: Tue, 16 Apr 2013 01:10:15 +0200 (CEST)
Subject: svn commit: [2296] trunk/lib/Act/Handler/Talk/Edit.pm:
	in case more than one address is given, only use the first for the From:
Message-ID: <20130415231015.634048443C@spectre.mongueurs.net>

Revision: 2296
Author:   maddingue
Date:     2013-04-16 01:10:15 +0200 (Tue, 16 Apr 2013)
Log Message:
-----------
in case more than one address is given, only use the first for the From:

Modified Paths:
--------------
    trunk/lib/Act/Handler/Talk/Edit.pm

Modified: trunk/lib/Act/Handler/Talk/Edit.pm
===================================================================
--- trunk/lib/Act/Handler/Talk/Edit.pm	2013-04-15 23:05:42 UTC (rev 2295)
+++ trunk/lib/Act/Handler/Talk/Edit.pm	2013-04-15 23:10:15 UTC (rev 2296)
@@ -336,9 +336,11 @@
             }
             $template->process("talk/notify_$slot", \$output{$slot});
         }
+
         # send the notification email
+        my ($from) = split /,/, $Config->talks_submissions_notify_address;
         Act::Email::send(
-            from     => $Config->talks_submissions_notify_address,
+            from     => $from,
             to       => $Config->talks_submissions_notify_address,
             xheaders => {
                 'X-Act' => join(