Index: openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	12 Feb 2019 17:28:59 -0000	1.14
+++ openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	26 Nov 2024 09:10:55 -0000	1.15
@@ -238,7 +238,7 @@
                     } else {
                         # binary content - copy the blob to temp file
                         # that we will then uuencode
-                        set file [ns_tmpnam]
+                        set file [ns_mktemp]
                         db_blob_get_file copy_blob_to_file "
                             select r.content, i.storage_type
                             from cr_revisions r, cr_items i
@@ -349,7 +349,7 @@
             from acs_mail_bodies
             where body_id = :body_id
     }
-    set headers [ns_set new]
+    set headers [ns_set create]
     ns_set put $headers "Message-Id" "<$header_message_id>"
     # taking these out because they are redundant and
     # could conflict with the values in acs_mail_queue_outgoing