From 9937b0f16403574d511fc985c5fd1bb226bf0e72 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Fri, 10 Aug 2012 16:01:20 +0100
Subject: [PATCH] Don't ask where that '$self -> {"recipients"}' came from...

---
 Message/Queue.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Message/Queue.pm b/Message/Queue.pm
index 141c01e..38e542b 100644
--- a/Message/Queue.pm
+++ b/Message/Queue.pm
@@ -113,11 +113,11 @@ sub queue_message {
     return $self -> self_error("Email subject not specified") unless($args -> {"subject"});
     return $self -> self_error("Email body not specified") unless($args -> {"message"});
     return $self -> self_error("No recipients specified")
-        if(!$self -> {"recipients"} || ref($self -> {"recipients"}) ne "ARRAY" || !scalar(@{$self -> {"recipients"}}));
+        unless($args -> {"recipients"} && (ref($args -> {"recipients"}) eq "ARRAY") && scalar(@{$args -> {"recipients"}}));
 
     # If unique recipients are set, each recipient gets a copy of the message
     if($args -> {"unique_recip"}) {
-        foreach my $recip (@{$self -> {"recipients"}}) {
+        foreach my $recip (@{$args -> {"recipients"}}) {
             my $msgid = $self -> _queue_message($args)
                 or return undef;
 
@@ -130,7 +130,7 @@ sub queue_message {
         my $msgid = $self -> _queue_message($args)
                 or return undef;
 
-        foreach my $recip (@{$self -> {"recipients"}}) {
+        foreach my $recip (@{$args -> {"recipients"}}) {
             $self -> _add_recipient($msgid, $recip)
                 or return undef;
         }