Changes on new server

[hcoop/zz_old/portal.git] / request.sml

diff --git a/request.sml b/request.sml
index 395bab4..738c341 100644 (file)
--- a/request.sml
+++ b/request.sml
@@ -101,10 +101,12 @@ fun notify f req =
            end
          | doOne r = rowError (table ^ ".doOne", r)
     in
-       Mail.mwrite (mail, "From: Hcoop Portal <portal@hcoop.net>\nTo: ");
+       Mail.mwrite (mail, "From: Hcoop Portal <portal");
+       Mail.mwrite (mail, emailSuffix);
+       Mail.mwrite (mail, ">\nTo: ");
        Mail.mwrite (mail, #name user);
-       Mail.mwrite (mail, "@hcoop.net\n");
-       Mail.mwrite (mail, "Bcc: ");
+       Mail.mwrite (mail, emailSuffix);                     
+       Mail.mwrite (mail, "\nBcc: ");
        C.app (getDb ()) doOne ($`SELECT name
                                  FROM WebUser JOIN Membership ON (usr = id AND grp = ^(C.intToSql grp))`);
        Mail.mwrite (mail, "\nSubject: ");
@@ -146,4 +148,4 @@ fun notifyMod (oldStatus, newStatus, changer, req) =
                Mail.mwrite (mail, statusToString newStatus);
                Mail.mwrite (mail, ".\n\n"))) req
                
-end
\ No newline at end of file
+end