* 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 (file)
--- 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 (file)
--- 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))