git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@54 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 4 insertions, 1 deletions

diff --git a/HsBot/IRC.hs b/HsBot/IRC.hs
index da488ea..c0382cc 100644
--- a/HsBot/IRC.hs
+++ b/HsBot/IRC.hs
@@ -88,9 +88,12 @@ ircEval h msg env@(DispatchEnv state conf dispatch) = ircEval' (clean msg)
    where
       ircEval' "+x" = do
          ircWrite h "JOIN" (currentChannel state)
+         return (env)
+      ircEval' "End of /NAMES list." = 
          return (DispatchEnv state { isReady = True } conf dispatch)
       ircEval' cleanMsg = do
-         (Env s c) <- dispatch cleanMsg sendReplyMsg (castEnv env)
+         let env' = (Env state { currentSender = from msg } conf)
+         (Env s c) <- dispatch cleanMsg sendReplyMsg env'
          return (DispatchEnv s c dispatch)
       sendReplyMsg = ircPrivMsg h msg (castEnv env)