* riece-log.el (riece-log-flashback): Fixed custom spec.

[riece] / lisp / riece-handle.el

diff --git a/lisp/riece-handle.el b/lisp/riece-handle.el
index f19f62c..cf5e0be 100644 (file)
--- a/lisp/riece-handle.el
+++ b/lisp/riece-handle.el
@@ -161,7 +161,6 @@
         (message (nth 1 parameters))
         (user-identity (riece-make-identity user riece-server-name)))
     (while channels
         (message (nth 1 parameters))
         (user-identity (riece-make-identity user riece-server-name)))
     (while channels

-      (riece-naming-assert-part user (car channels))

       (let* ((channel-identity (riece-make-identity (car channels)
                                                    riece-server-name))
             (buffer (riece-channel-buffer channel-identity)))
       (let* ((channel-identity (riece-make-identity (car channels)
                                                    riece-server-name))
             (buffer (riece-channel-buffer channel-identity)))


@@ -187,6 +186,7 @@
                    (riece-format-identity channel-identity t))
            message))
          "\n")))
                    (riece-format-identity channel-identity t))
            message))
          "\n")))

+      (riece-naming-assert-part user (car channels))

       (setq channels (cdr channels)))))
 
 (defun riece-handle-kick-message (prefix string)
       (setq channels (cdr channels)))))
 
 (defun riece-handle-kick-message (prefix string)