--- capa/capa51/GUITools/groupemail.tcl	2000/07/07 18:25:12	1.6
+++ capa/capa51/GUITools/groupemail.tcl	2000/11/13 21:36:17	1.8
@@ -2,16 +2,16 @@
 #  Copyright (C) 1992-2000 Michigan State University
 #
 #  The CAPA system is free software; you can redistribute it and/or
-#  modify it under the terms of the GNU Library General Public License as
+#  modify it under the terms of the GNU General Public License as
 #  published by the Free Software Foundation; either version 2 of the
 #  License, or (at your option) any later version.
 #
 #  The CAPA system is distributed in the hope that it will be useful,
 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-#  Library General Public License for more details.
+#  General Public License for more details.
 #
-#  You should have received a copy of the GNU Library General Public
+#  You should have received a copy of the GNU General Public
 #  License along with the CAPA system; see the file COPYING.  If not,
 #  write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 #  Boston, MA 02111-1307, USA.
@@ -215,7 +215,8 @@ proc emailGetSpecific { num } {
     set allids ""
     foreach element $temp { if { $element != "" } { lappend allids $element } }
     close $fileId
-    puts $allids
+#    puts $allids
+    set gCT($num.studentlist) ""
     set classlid [open [file join $gFile($num) classl] r]
     set aline [gets $classlid]
     while { ![eof $classlid] } {