Index: openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl,v
diff -u -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	22 Mar 2007 18:14:22 -0000	1.7.2.2
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	6 Apr 2007 17:00:00 -0000	1.7.2.3
@@ -144,15 +144,21 @@
     set bg "xc:$bgcolor"
     
     # Creating an image of the rigth length where the email will be
-    exec convert -size $size $bg $dest_path
+    if {[catch {exec convert -size $size $bg $dest_path} errmsg]} {
+	return ""
+    }
     
     # Creating the image with the email of the user on it
-    exec convert -font $font_type -fill blue -pointsize $font_size -draw "text 0,$ypos $email" \
-        $dest_path $dest_path
+    if {[catch {exec convert -font $font_type -fill blue -pointsize $font_size -draw "text 0,$ypos $email" \
+		    $dest_path $dest_path} errmsg]} {
+	return ""
+    }
 
     if { [string equal $transparent ""] || [string equal $transparent "1"] } {
-        # Making the bg color transparent
-        exec convert $dest_path -transparent $bgcolor $dest_path
+	# Making the bg color transparent
+	if {[catch {exec convert $dest_path -transparent $bgcolor $dest_path} errmsg]} {
+	    return ""
+	}
     }
     
     # Time to store the image in the content repository