From: Daiki Ueno Date: Fri, 9 Jul 2004 23:31:50 +0000 (+0000) Subject: * riece-ignore.el (riece-startup-ignored-user-list): New user X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=841f8bfb9ffa6f7145f36b81290f1656b74dfe3d;hp=82d8ccfb945ca25d2444f398fc49caa724c3019d * riece-ignore.el (riece-startup-ignored-user-list): New user option. (riece-ignore-insinuate): Add identity objects from riece-startup-ignored-user-list to riece-ignored-user-list. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 93b34d7..d183a38 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2004-07-09 Daiki Ueno + + * riece-ignore.el (riece-startup-ignored-user-list): New user + option. + (riece-ignore-insinuate): Add identity objects from + riece-startup-ignored-user-list to riece-ignored-user-list. + 2004-07-07 Daiki Ueno * riece-commands.el (riece-command-enter-message-to-user): Signal diff --git a/lisp/riece-ignore.el b/lisp/riece-ignore.el index 75f2ba5..99ad310 100644 --- a/lisp/riece-ignore.el +++ b/lisp/riece-ignore.el @@ -53,13 +53,18 @@ Otherwise, they are not removed from IRC buffers, but are hidden with :group 'riece-ignore :type 'string) +(defcustom riece-startup-ignored-user-list nil + "List of user names whose messages are ignored." + :group 'riece-ignore + :type '(repeat string)) + (defvar riece-ignore-buffer nil) -(defvar riece-ignored-user-list nil) (defvar riece-ignore-enabled nil) (defconst riece-ignore-description "Ignore users") +(defvar riece-ignored-user-list nil) (defun riece-ignore-user-rename-signal-function (signal handback) (let ((pointer (riece-identity-member (car (riece-signal-args signal)) @@ -124,6 +129,8 @@ Otherwise, they are not removed from IRC buffers, but are hidden with (defvar riece-command-mode-map) (defun riece-ignore-insinuate () + (setq riece-ignored-user-list + (mapcar #'riece-parse-identity riece-startup-ignored-user-list)) (add-hook 'riece-message-filter-functions 'riece-ignore-message-filter)) (defun riece-ignore-enable ()