X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-handle.el;h=0e35d5cf2fc537519819316750e9557e08f9a1eb;hp=6d3657741c60fc0e844fe0953f2a588829ee9322;hb=0c4cac0995b71622df3bf2616b9cfed407c42b2a;hpb=9174f38ace6e8cd879b41adc4d6aa4b5b727f7ea

diff --git a/lisp/riece-handle.el b/lisp/riece-handle.el
index 6d36577..0e35d5c 100644
--- a/lisp/riece-handle.el
+++ b/lisp/riece-handle.el
@@ -107,6 +107,9 @@
 	 (user-identity (riece-make-identity user riece-server-name)))
     (while channels
       (riece-naming-assert-join user (car channels))
+      (if (and riece-gather-channel-modes
+	       (riece-identity-equal-no-server user riece-real-nickname))
+	  (riece-send-string (format "MODE %s\r\n" (car channels))))
       (let* ((channel-identity (riece-make-identity (car channels)
 						    riece-server-name))
 	     (buffer (riece-channel-buffer channel-identity)))