From be155fc86eca2370f53590ff2b9a7abe4465a692 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 9 Jul 2004 23:31:50 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 7 +++++++ lisp/riece-ignore.el | 9 ++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) 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 () -- 1.7.10.4