More fun for the new server\!

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

diff --git a/support.sml b/support.sml
index c629b4d..48a818d 100644 (file)
--- a/support.sml
+++ b/support.sml
@@ -273,6 +273,7 @@ fun writeRecipients (mail, iss : issue, cat : category, noName) =
                    ()
                else
                    (Mail.mwrite (mail, name);
+                    Mail.mwrite (mail, emailSuffix);
                     Mail.mwrite (mail, ","))
            end
     in