The Lambda Lab
/
projects
/
lurk.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
2d5b239
)
Removed some residual lurk references
author
plugd
<plugd@thelambdalab.xyz>
Thu, 23 May 2024 18:21:13 +0000
(20:21 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Sun, 26 May 2024 19:14:05 +0000
(21:14 +0200)
murk.el
patch
|
blob
|
history
diff --git
a/murk.el
b/murk.el
index
0766b7d
..
e67d8e6
100644
(file)
--- a/
murk.el
+++ b/
murk.el
@@
-939,8
+939,8
@@
The head of this list is always the current context.")
(when (and (or (not target-server)
(and (equal server target-server)))
(murk--lists-equal (cdr matcher)
(when (and (or (not target-server)
(and (equal server target-server)))
(murk--lists-equal (cdr matcher)
- (append (list (
l
urk-msg-src msg)
- (
l
urk-msg-cmd msg))
+ (append (list (
m
urk-msg-src msg)
+ (
m
urk-msg-cmd msg))
(murk-msg-params msg))))
(murk-send-msg server
(murk-msg nil nil (car reply) (cdr reply)))))))
(murk-msg-params msg))))
(murk-send-msg server
(murk-msg nil nil (car reply) (cdr reply)))))))
@@
-1135,7
+1135,7
@@
The head of this list is always the current context.")
(let ((server (murk-context-server ctx))
(nick (car params)))
(murk-send-msg server
(let ((server (murk-context-server ctx))
(nick (car params)))
(murk-send-msg server
- (
l
urk-msg nil nil "PRIVMSG"
+ (
m
urk-msg nil nil "PRIVMSG"
(list nick "\01VERSION\01")))
(murk-display-notice ctx "CTCP version request sent to "
nick " on " server))
(list nick "\01VERSION\01")))
(murk-display-notice ctx "CTCP version request sent to "
nick " on " server))