From adc7733120eff95f87f6dddb6ceab223fab00a6f Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 10 Oct 2001 14:56:59 +0000
Subject: is_member() accpepts $args->{ address }

---
 fml/lib/FML/Credential.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm
index 28e7fd0d..ecc7d085 100644
--- a/fml/lib/FML/Credential.pm
+++ b/fml/lib/FML/Credential.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself. 
 #
-# $FML: Credential.pm,v 1.14 2001/10/08 15:47:28 fukachan Exp $
+# $FML: Credential.pm,v 1.15 2001/10/10 12:52:25 fukachan Exp $
 #
 
 package FML::Credential;
@@ -141,7 +141,7 @@ sub is_member
     my $status = 0;
 
     my $member_maps = $curproc->{ config }->{ member_maps };
-    my $address = $curproc->{'credential'}->{'sender'};
+    my $address = $args->{ address } || $curproc->{'credential'}->{'sender'};
     my ($user, $domain) = ();
 
     if (defined $address) {
-- 
cgit v1.2.1