[Mimedefang] delete_recipient not removing the recipient from @Recipients

[David F. Skoll]

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.