[siesta-commit] siesta/lib/Siesta/Plugin UnSubscribe.pm,1.6,1.7

[prev] [thread] [next] [lurker] [Date index for 2002/09/16]

Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv7540

Modified Files:
	UnSubscribe.pm 
Log Message:
fix copy and paste from Subscribe.pm


Index: UnSubscribe.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/UnSubscribe.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- UnSubscribe.pm	16 Sep 2002 05:27:24 -0000	1.6
+++ UnSubscribe.pm	16 Sep 2002 05:31:40 -0000	1.7
@@ -13,7 +13,8 @@
     my $mail = shift;
     my $list = $mail->list;
 
-    if ( $list->remove_member( $mail->from ) ) {
+    my $user_id = $mail->from;
+    if ( $list->remove_member( $user_id ) ) {
         $mail->reply( to => $list->owner,
                       body => "$user_id LEFT " . $list->id );
 

• [siesta-commit] siesta/lib/Siesta/Plugin UnSubscribe.pm,1.6,1.7 clampr 06:31 on 16 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52