From 030a4be533690fd0e12c4cfb8f70ce6ac717e62e Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 3 Nov 2022 16:53:54 +0100
Subject: [PATCH] chore(mail): add supervisor mail tag only for supervisors

---
 src/Handler/Utils/Mail.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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