* riece-globals.el (riece-join-channel-candidate): New variable.

[riece] / lisp / riece-handle.el

diff --git a/lisp/riece-handle.el b/lisp/riece-handle.el
index 56852d0..e35515e 100644 (file)
--- a/lisp/riece-handle.el
+++ b/lisp/riece-handle.el
@@ -309,7 +309,10 @@
   (let* ((user (riece-prefix-nickname prefix))
         (parameters (riece-split-parameters string))
         (invited (car parameters))
   (let* ((user (riece-prefix-nickname prefix))
         (parameters (riece-split-parameters string))
         (invited (car parameters))

-        (channel (nth 1 parameters)))
+        (channel (nth 1 parameters))
+        (channel-identity (riece-make-identity channel riece-server-name)))
+    (if (riece-identity-equal-no-server invited riece-real-nickname)
+       (setq riece-join-channel-candidate channel-identity))

     (riece-insert-info
      (list riece-dialogue-buffer riece-others-buffer)
      (concat
     (riece-insert-info
      (list riece-dialogue-buffer riece-others-buffer)
      (concat


@@ -319,8 +322,7 @@
                                       user riece-server-name))
               (riece-format-identity (riece-make-identity
                                       invited riece-server-name))
                                       user riece-server-name))
               (riece-format-identity (riece-make-identity
                                       invited riece-server-name))

-              (riece-format-identity (riece-make-identity
-                                      channel riece-server-name))))
+              (riece-format-identity channel-identity)))

       "\n"))))
 
 (defun riece-handle-topic-message (prefix string)
       "\n"))))
 
 (defun riece-handle-topic-message (prefix string)