Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.197 -r1.198
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	15 Dec 2006 22:45:22 -0000	1.197
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Dec 2006 15:57:53 -0000	1.198
@@ -863,8 +863,6 @@
                 -op AddUserToCommunity \
                 -list_args [list $community_id $user_id]
 
-	    # Send membership email
-            send_member_email -community_id $community_id -to_user $user_id -type "on join"
         }
     }
 
@@ -2344,7 +2342,6 @@
                     -subject $subject \
                     -body $message \
                     -extraheaders $extra_headers
-                
                 set return_val 1
             } else {
                 set return_val 0