diff --git a/src/Handler/Utils/Mail.hs b/src/Handler/Utils/Mail.hs
index 217e916ba..9da3ead49 100644
--- a/src/Handler/Utils/Mail.hs
+++ b/src/Handler/Utils/Mail.hs
@@ -84,8 +84,9 @@ userMailT uid mAct = do
     mailT ctx $ do
       _mailTo .= pure (userAddress supervisor)
       mAct
-      mapSubject ("[SUPERVISOR]"<>)  -- changing subject is easy 
-      --addPart explanationSupervisor  -- adding an attachment is also easy
+      unless (uid==svr) $ -- do 
+        mapSubject ("[SUPERVISOR]"<>)  -- changing subject is easy 
+        --addPart explanationSupervisor  -- adding an attachment is also easy
 
 
 _userMailTdirect :: ( MonadHandler m