Index: openacs-4/packages/acs-subsite/www/members/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-state-change.tcl,v
diff -u -N -r1.2.2.2 -r1.2.2.3
--- openacs-4/packages/acs-subsite/www/members/member-state-change.tcl	26 Apr 2017 18:16:13 -0000	1.2.2.2
+++ openacs-4/packages/acs-subsite/www/members/member-state-change.tcl	27 Jun 2017 17:18:41 -0000	1.2.2.3
@@ -71,25 +71,25 @@
     membership_rel::change_state \
         -rel_id $rel_id \
         -state $member_state
-    
-    if {$member_state eq "approved"} {
-        #
-        # In the approved state, we offer the admin to write a
-        # notification mail.
-        #
-        set action [group::get_member_state_pretty -component action \
-                        -member_state $member_state \
-                        -user_name $user_info(username) \
-                        -locale $locale]
-        set doc(title) $action
-        set context [list [list "./" "Members"] "$action"]
-        set email_link [export_vars -base member-state-change {
-            member_state rel_id {send_notification_mail 1}
-        }]
-    } else {
+
+    # if {$member_state eq "approved"} {
+    #     #
+    #     # In the approved state, we offer the admin to write a
+    #     # notification mail.
+    #     #
+    #     set action [group::get_member_state_pretty -component action \
+    #                     -member_state $member_state \
+    #                     -user_name $user_info(username) \
+    #                     -locale $locale]
+    #     set doc(title) $action
+    #     set context [list [list "./" "Members"] "$action"]
+    #     set email_link [export_vars -base member-state-change {
+    #         member_state rel_id {send_notification_mail 1}
+    #     }]
+    # } else {
         ad_returnredirect $return_url
         ad_script_abort
-    }
+    #}
 }
 
 # Local variables: