* Makefile.am (elc): Renamed from "compile".

[elisp/riece.git] / lisp / riece-300.el

diff --git a/lisp/riece-300.el b/lisp/riece-300.el
index bab3204..99f83c4 100644 (file)
--- a/lisp/riece-300.el
+++ b/lisp/riece-300.el
@@ -173,7 +173,8 @@
       (let* ((channel (match-string 1 string))
             (mode-string (substring string (match-beginning 2)))
             (modes (string-to-list (match-string 2 string)))
-            (toggle (pop modes)))
+            (toggle (car modes)))
+       (setq modes (cdr modes))
        (while modes
          (riece-channel-toggle-mode channel (car modes) (eq toggle ?+))
          (setq modes (cdr modes)))