[Mimedefang] delete_recipient not removing the recipient from @Recipients
David F. Skoll
dfs at roaringpenguin.com
Thu Dec 13 19:08:20 EST 2012
On Thu, 13 Dec 2012 13:33:15 -0900
Matthew Schumacher <matt.s at aptalaska.net> wrote:
> Any reason why I wouldn't want to do this:
> sub delete_recipient ($) {
> my($recip) = @_;
> write_result_line("S", $recip);
> + @Recipients = grep { $_ ne $recip } @Recipients;
> return 1;
> }
Sure, but why not make your own wrapper:
sub my_delete_recipient {
my ($recip) = @_;
@Recipients = grep { $_ ne $recip } @Recipients;
return delete_recipient($recip);
}
I could put it directly in delete_recipient, but then people who don't
want @Recipients modified wouldn't have an easy way around that.
Regards,
David.
More information about the MIMEDefang
mailing list