Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.21.6.10 -r1.21.6.11
--- openacs-4/packages/dotlrn/www/spam.tcl	11 Nov 2004 18:42:56 -0000	1.21.6.10
+++ openacs-4/packages/dotlrn/www/spam.tcl	6 Mar 2005 15:44:22 -0000	1.21.6.11
@@ -53,10 +53,15 @@
 	    set recipients_p 1
 	} elseif { [info exists recipients_str] && ![empty_string_p $recipients_str] } {
 	    set recipients_p 1
-	}
+	} 
 	
 	if { $recipients_p == 0} {
-	    ad_complain "[_ dotlrn.Must_specify_recipients]"
+	    if {[exists_and_not_null community_id]} {
+		# This is call using the old URL reference
+		ad_returnredirect "spam-recipients?referer=$referer"
+	    } else {
+		ad_complain "[_ dotlrn.Must_specify_recipients]"
+	    }
 	}
     }
     if_bad_combination {