Bugfixes, and allowed suppression of join messages.

diff --git a/lurk.el b/lurk.el
index becfff1..28fe5c6 100644 (file)
--- a/lurk.el
+++ b/lurk.el
@@ -55,6 +55,9 @@
 (defcustom lurk-allow-ipv6 nil
   "Set to non-nil to allow use of IPv6.")
 
 (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
 ;;
 
 ;;; Faces
 ;;
 


@@ -103,7 +106,6 @@
 (defvar lurk-error-prefix
   (propertize "!!!" 'face 'lurk-error))
 
 (defvar lurk-error-prefix
   (propertize "!!!" 'face 'lurk-error))
 

-

 (defvar lurk-prompt-string
   (propertize "> " 'face 'lurk-prompt))
 
 (defvar lurk-prompt-string
   (propertize "> " 'face 'lurk-prompt))
 


@@ -284,6 +286,11 @@ portion of the source component of the message, as LURK doesn't use this.")
   (dolist (context (lurk-get-context-list))
     (lurk-del-context-user context user)))
 
   (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)
 (defun lurk-get-context-type (name)
   (cond
    ((string-prefix-p "#" name) 'channel)