(defcustom lurk-allow-ipv6 nil
"Set to non-nil to allow use of IPv6.")
+(defcustom lurk-show-joins nil
+ "Set to non-nil to be notified of joins, parts and quits.")
+
;;; Faces
;;
(defvar lurk-error-prefix
(propertize "!!!" 'face 'lurk-error))
-
(defvar lurk-prompt-string
(propertize "> " 'face 'lurk-prompt))
(dolist (context (lurk-get-context-list))
(lurk-del-context-user context user)))
+(defun lurk-rename-user (old-nick new-nick)
+ (dolist (context (lurk-get-context-list))
+ (lurk-del-context-user context old-nick)
+ (lurk-add-context-users context (list new-nick))))
+
(defun lurk-get-context-type (name)
(cond
((string-prefix-p "#" name) 'channel)
("NICK"
(let ((old-nick (lurk-msg-src msg))
(new-nick (car (lurk-msg-params msg))))
- (lurk-display-notice nil nick " is now known as " new-nick)
- (lurk-rename-user nick new-nick)))
+ (lurk-display-notice nil old-nick " is now known as " new-nick)
+ (lurk-rename-user old-nick new-nick)))
("NOTICE"
(let ((nick (lurk-msg-src msg))