From 3ddd88c9b663f287275a378d8bfb9a4d2eb0afd2 Mon Sep 17 00:00:00 2001
From: Jaidyn Levesque <10477760+JadedCtrl@users.noreply.github.com>
Date: Sun, 8 Jan 2023 13:05:50 -0600
Subject: [PATCH] Fetch users' hostmasks when 'userhost-in-name' isn't
 supported

---
 ircc.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ircc.scm b/ircc.scm
index cd650a9..8bb19da 100644
--- a/ircc.scm
+++ b/ircc.scm
@@ -137,8 +137,15 @@
 			  (irc:channel-user-add! conn channel (irc:hostmask-nick user))
 			  (irc:user-add! conn (irc:hostmask-nick user))
 			  (if (irc:hostmask? user)
-				  (irc:user-set! conn (irc:hostmask-nick user) 'hostmask user)))
-			users))]))
+				  (irc:user-set! conn (irc:hostmask-nick user) 'hostmask user)
+				  (irc:write-cmd conn "WHO" channel)))
+			users))]
+		[(eq? reply RPL_WHOREPLY)
+		 (let ([nick (sixth params)]
+			   [ident (third params)]
+			   [host (fourth params)])
+		   (irc:user-set! conn nick 'hostmask
+						  (string-append nick "!" ident "@" host)))]))
 
 
 ;; Handle some commands necessary for basic functionality