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.21 -r1.21.2.1
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	21 Dec 2018 15:16:26 -0000	1.21
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	17 Jun 2019 10:15:36 -0000	1.21.2.1
@@ -160,7 +160,7 @@
     set email [email_image::get_email -user_id $user_id]
     set image_name "email${user_id}.gif"
     set email_length [string length $email]
-    set dest_path "/tmp/$image_name"
+    set dest_path "[ad_tmpdir]/$image_name"
     set width [expr {($email_length * ($font_size / 2)) + 2}]
     set height $font_size
     set ypos [expr { ($height / 2) + 3 }]
@@ -245,7 +245,7 @@
     set folder_id [email_image::get_folder_id]
     set image_name "email${user_id}.gif"
     set email_length [string length $new_email]
-    set dest_path "/tmp/$image_name"
+    set dest_path "[ad_tmpdir]/$image_name"
     set width [expr {($email_length * ($font_size / 2)) + 2}]
     set height $font_size
     set ypos [expr { ($height / 2) + 3 }]