X-Git-Url: http://git.hcoop.net/hcoop/portal.git/blobdiff_plain/a75ed94bb4d8801149d1eff968bcd1d9163c3971..e4964ef9036ec719d052082b34af0deb0db89382:/requestH.sml

diff --git a/requestH.sml b/requestH.sml
index dd4e423..03e168d 100644
--- a/requestH.sml
+++ b/requestH.sml
@@ -154,12 +154,17 @@ val statusToString =
      | REJECTED => "Rejected"
 
 fun notifyMod {old, new, changer, req} =
-    notify (fn (_, mail) =>
+    if old = new then
+	notify (fn (_, mail) =>
 	       (Mail.mwrite (mail, changer);
-		Mail.mwrite (mail, " has changed the status of this request from ");
-		Mail.mwrite (mail, statusToString old);
-		Mail.mwrite (mail, " to ");
-		Mail.mwrite (mail, statusToString new);
-		Mail.mwrite (mail, ".\n\n"))) req
+		Mail.mwrite (mail, " has added a comment to this request.\n\n"))) req
+    else
+	notify (fn (_, mail) =>
+		   (Mail.mwrite (mail, changer);
+		    Mail.mwrite (mail, " has changed the status of this request from ");
+		    Mail.mwrite (mail, statusToString old);
+		    Mail.mwrite (mail, " to ");
+		    Mail.mwrite (mail, statusToString new);
+		    Mail.mwrite (mail, ".\n\n"))) req
 		
 end