From: ueno <ueno>
Date: Tue, 24 Sep 2002 02:44:01 +0000 (+0000)
Subject: * liece-handle.el (liece-handle-mode-message): Check chnlp before
X-Git-Tag: liece-1_4_9~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3426e3f1ee7e833e4db3755bc6c2b51e63261620;p=elisp%2Fliece.git

* liece-handle.el (liece-handle-mode-message): Check chnlp before
passing mode argument to liece-channel-set-*.
[cf. <Bug#161779>]
---

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  <ueno@unixuser.org>
+
+	* liece-handle.el (liece-handle-mode-message): Check chnlp before
+	passing mode argument to liece-channel-set-*.
+	[cf. <Bug#161779>]
+
 2002-09-03  Daiki Ueno  <ueno@unixuser.org>
 
 	* 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))