Fixed.

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

diff --git a/lisp/riece-300.el b/lisp/riece-300.el
index dd33c6d..6a92ac5 100644 (file)
--- a/lisp/riece-300.el
+++ b/lisp/riece-300.el
@@ -419,7 +419,8 @@
             (start 0)
             users)
        (if entry
-           (setcdr entry nil))
+           (setq riece-353-message-alist
+                 (delq entry riece-353-message-alist)))
        (while (string-match
                (concat "\\([@+]\\)?\\(" riece-user-regexp "\\) *")
                string start)