* riece-options.el (riece-gather-channel-modes): Default to nil.

* riece-handle.el (riece-handle-join-message): Send MODE if
riece-gather-channel-modes is non-nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3640f4..ab05f75 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2003-10-24  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-options.el (riece-gather-channel-modes): Default to nil.
+       * riece-handle.el (riece-handle-join-message): Send MODE if
+       riece-gather-channel-modes is non-nil.
+
        * riece-url.el: Add autoload setting for 'browse-url.
 
        * riece-menu.el: Require 'riece-options, 'riece-globals,

diff --git a/lisp/riece-handle.el b/lisp/riece-handle.el
index 6d36577..f683a0a 100644 (file)
--- a/lisp/riece-handle.el
+++ b/lisp/riece-handle.el
@@ -107,6 +107,8 @@
         (user-identity (riece-make-identity user riece-server-name)))
     (while channels
       (riece-naming-assert-join user (car channels))
+      (if riece-gather-channel-modes
+         (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)))

diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index f4dbbed..945c699 100644 (file)
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -244,7 +244,7 @@ way is to put Riece variables on .emacs or file loaded from there."
   :type '(radio (string :tag "Away message"))
   :group 'riece-options)
 
-(defcustom riece-gather-channel-modes t
+(defcustom riece-gather-channel-modes nil
   "If non-nil, gather channel modes when we join a channel."
   :type 'boolean
   :group 'riece-options)