From 3426e3f1ee7e833e4db3755bc6c2b51e63261620 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 24 Sep 2002 02:44:01 +0000 Subject: [PATCH] * liece-handle.el (liece-handle-mode-message): Check chnlp before passing mode argument to liece-channel-set-*. [cf. ] --- lisp/ChangeLog | 6 ++++++ lisp/liece-handle.el | 10 +++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4aa4047..4a79481 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-09-24 Daiki Ueno + + * liece-handle.el (liece-handle-mode-message): Check chnlp before + passing mode argument to liece-channel-set-*. + [cf. ] + 2002-09-03 Daiki Ueno * liece-handle.el (liece-handle-quit-message): Don't use diff --git a/lisp/liece-handle.el b/lisp/liece-handle.el index b481871..d5e2b67 100644 --- a/lisp/liece-handle.el +++ b/lisp/liece-handle.el @@ -280,19 +280,19 @@ (while mflgs (cond ((eq ?- (car mflgs)) (setq val nil)) ((eq ?+ (car mflgs)) (setq val t)) - ((eq ?o (car mflgs)) + ((and chnlp (eq ?o (car mflgs))) (liece-channel-set-operator chnl (car margs) val) (setq margs (cdr margs))) - ((eq ?v (car mflgs)) + ((and chnlp (eq ?v (car mflgs))) (liece-channel-set-voice chnl (car margs) val) (setq margs (cdr margs))) - ((eq ?b (car mflgs)) + ((and chnlp (eq ?b (car mflgs))) (liece-channel-set-ban chnl (car margs) val) (setq margs (cdr margs))) - ((eq ?e (car mflgs)) + ((and chnlp (eq ?e (car mflgs))) (liece-channel-set-exception chnl (car margs) val) (setq margs (cdr margs))) - ((eq ?I (car mflgs)) + ((and chnlp (eq ?I (car mflgs))) (liece-channel-set-invite chnl (car margs) val) (setq margs (cdr margs))) (chnlp (liece-channel-set-mode chnl (car mflgs) val)) -- 1.7.10.4